Gambas France BETA


Pas de compte ? Incription

Simuler Form_Déactivate sous[GB2]

1
AuteurMessages
Reivillo#1 Posté le 3/4/2012 à 14:19:47
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour a Tous.

Pour pallier, au manque de
l'Evènement Form_Deactivate sous GB2.
(Pour Cacher l'Application,
quand on Clic, à coté de la Fenêtre
)

Pré-requis: Installer xdotool.(Synaptic).

Si, il vaut d'être dans les Tutos de la Forge,
me le dire, et je ferai le nécessaire.

Reivillo.
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
30
31
32
33
34
35
36
37
38
39
40
41
PUBLIC uTrayIcon AS OBJECT
PUBLIC uTimer AS OBJECT

PUBLIC SUB Form_Open()

ME.W = 350
ME.H = 250
ME.X = Desktop.Width - ME.Width
ME.tag = ME.Handle
ME.visible = FALSE

uTrayIcon = NEW TrayIcon AS "uTrayIcon"
uTrayIcon.tooltip = "uTrayIcon"
'uTrayIcon.picture = Picture["Test.png"]
uTrayIcon.visible = TRUE

uTimer = NEW Timer AS "uTimer"
uTimer.delay = 100

uTrayIcon_MouseUp

END

PUBLIC SUB uTrayIcon_MouseUp()

ME.visible = NOT ME.visible
IF ME.visible THEN uTimer.enabled = TRUE

END

PUBLIC SUB uTimer_Timer()

DIM uMyWinAct AS INTEGER

SHELL "xdotool getactivewindow " TO uMyWinAct
IF (uMyWinAct <> ME.Tag) THEN
ME.visible = FALSE
uTimer.enabled = FALSE
ENDIF

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR