1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| ' Gambas class file
PUBLIC SUB Quitter_Click()
ME.close()
END
PUBLIC SUB Form_MouseDown()
IF Mouse.Right THEN
Menu1.Popup '<----------------------------------------------' affichage contextuel du menu avec les items créés ici
ENDIF
END
PUBLIC SUB Form_MouseDrag()
ME.x += Mouse.x - Mouse.startx
ME.y += Mouse.y - Mouse.starty
END
PUBLIC SUB Form_Open()
ME.Mask = TRUE
ME.Picture = Picture["icon:/256/gambas"]
END
|