[R] function button_pic down/over projet
Posté : jeu. 15 oct. 2009 12:08
bonjours je suis parti sur la base de ce script pour crée une apparence différente
que celle par Default de windows xp
quelle que petit souci:
n1: pour tomber juste sur mes cote
n2: pour en faire une mise a jour autolt
peutetre et meme surement quelque un du forum pourait maider un avencer dans mon
projet
je vous en remercie d'avance voici mon script et les fichier image.bmp (lien en bas de message) :
lien :
que celle par Default de windows xp
quelle que petit souci:
n1: pour tomber juste sur mes cote
n2: pour en faire une mise a jour autolt
peutetre et meme surement quelque un du forum pourait maider un avencer dans mon
projet
je vous en remercie d'avance voici mon script et les fichier image.bmp (lien en bas de message) :
Code : Tout sélectionner
;_button_bmp([button(pic)], [gui], [pic down], [pic oveer], [left pic], [top pic], [width pic], [heigth pic])
#include <GUIConstantsEx.au3>
_test()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _test()
Global $hWnd0 = GUICreate("Beta button_bmp", 800, 490, 10, 10)
GUISetBkColor(0x0000FF)
Global $exit = GUICtrlCreatePic("", 50, 40, 40, 40)
GUISetState()
While 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
_button_bmp($exit, $hWnd0, "exit.bmp", "exitover.bmp", 50, 40, 40, 40) ;ENNABLE__function _button_bmp_bata 1.0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Switch GUIGetMsg()
case $exit
Exit
case $GUI_EVENT_CLOSE
Exit
EndSwitch
wend
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
func _button_bmp($button, $win, $downbmp, $overbmp, $Bleft, $Btop, $Bwidth, $Bheigth);function _button_bmp_bata 1.0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $mousepos = MouseGetPos()
Local $winpos = WinGetPos($win)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;[problemes];;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $propleme_LW = 5
Local $propleme_WINTOP = 25
Local $propleme_TH = 5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;[/problemes];;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if $mousepos[0] > $winpos[0]+$Bleft And $mousepos[0] < $winpos[0]+$Bleft+$Bwidth+$propleme_LW And $mousepos[1] > $winpos[1]+$propleme_WINTOP+$Btop And $mousepos[1] < $winpos[1]+$propleme_WINTOP+$Btop+$Bheigth+$propleme_TH Then
GUICtrlSetImage($button, $overbmp)
Else
GUICtrlSetImage($button, $downbmp)
EndIf
GUISetState()
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;