maus berührt Buttongadget
Verfasst: 23.04.2005 13:53
wie kann ich ein bild anzeigen wenn die maus einen button berührt?
Pfad zu deiner Bitmap anpassen
Gruß
FGK
Code: Alles auswählen
#CMD_Test = 99
#IMG_Test = 98
If OpenWindow(0, 100, 200, 640,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_WindowCentered , "PureBasic Window")
If CreateGadgetList(WindowID())
ButtonGadget(#CMD_Test, 50, 50, 100, 30, "Touch me...")
If LoadImage(0, "Logo.bmp")
ImageGadget(#IMG_Test,50,100,100,100,UseImage(0))
EndIf
EndIf
GetWindowRect_(GadgetID(#CMD_Test),R.RECT)
Repeat
EventID.l = WaitWindowEvent()
GetCursorPos_(Cursor.POINT)
If PtInRect_(R,Cursor\x,Cursor\y)<>0
HideGadget(#IMG_Test,0)
Else
HideGadget(#IMG_Test,1)
EndIf
If EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button
Quit = 1
EndIf
Until Quit = 1
EndIf
End