Création d'objets par clic de souris

Comme évoqué dans un autre topic ...

Code:: ' Création d'objets FLTK par clic de souris
' Adaptation d'un programme en C++ :
' http://seriss.com/people/erco/fltk/#PopupWindow

xform 0, 100, 100, 400, 400

on_event 0, event0

start 0

function event0%()
  dim_static n%
  dim x%, y%
  if FL_EVENT = FL_EVENT_PUSH then
   n = n + 1
   mouse_coord x, y
   button n, x, y, 75, 30, "Bouton " & n
   object_draw n
   event0 = 1
  else
   event0 = handle_event(0)
  end_if
end_function

Merci Jean pour le programme.

C'est un bon début pour réaliser une aide au positionnement d'objets FBPano/FLTK dans un FORM.

Pour aller plus loin, je vais essayer de modifier ton programme pour permettre le déplacement des boutons créés, voire leurs redimensionnements toujours avec la souris. Si tu as des pistes/idées sur le sujet, n'hésites pas (appel lancé aussi aux autres FBPanistes ou FBPanoramiciens !)

On devrait pouvoir utiliser le "DRAG and DROP" pour déplacer les objets (voir l'exemple ex85), mais dans ce cas il va y avoir conflit avec la création d'objet car l'événement FL_EVENT_PUSH sera capté par la FORM, d'où création d'un nouvel objet et pas de déplacement.

Il faudrait donc trouver un autre événement pour la création, peut-être l'appui sur une touche ?

Voici un exemple avec 6 boutons déplaçables (mais ils ont été créés auparavant !) :

Code:: dim i%

form 0, 100, 200, 300, 200, "Drag and Drop"

xmatwidget T_Button, 2, 3, 1, 10, 10, 75, 25, 20, 10

for i = 1 to 6
  caption i, "Bouton " & i
  on_event i, deplace
next i

start 0

function deplace% ()

  dim_static xStart%, yStart%
  dim n%, x%, y%, xm%, ym%

  n = nwidget(self)

  select FL_EVENT
   case FL_EVENT_PUSH ' Sauvegarder la position initiale
   get_coord n, x, y
   mouse_coord xm, ym
   xStart = x - xm
   yStart = y - ym
   deplace = 1
   case FL_EVENT_DRAG ' Glisser
   mouse_coord xm, ym
   set_coord n, xStart + xm, yStart + ym
   redraw
   deplace = 1
   case FL_EVENT_RELEASE ' Déposer
   redraw
   deplace = 1
   case else
   deplace = handle_event(n)
  end_select
end_function

» recup d' un clic souris
» Tolérance dans le clic souris
» Clic souris répétitif automatique
» Simuler un clic gauche souris
» Objets réagissant au survol de la souris, sans clic !