Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
uff, Keine Ahnung habs bisher nie in die Richtung eingesetztKaeru Gaman hat geschrieben:@125
ist dir zufällig bekannt, ob ich auch ein Mouseover checken kann?
Welche PB Version nutzt du?komisch, ich bekomm bei nen ImageGadget kein Event !!! nur bei anderen wie z.B. ButtonGadget
Code: Alles auswählen
; PureBasic Visual Designer v3.90 build 1361
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Image_2
EndEnumeration
UseJPEGImageDecoder()
Image0=LoadImage(#PB_Any,"C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Blaue Berge.jpg")
ResizeImage(Image0,570,360)
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 593, 380, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
ImageGadget(#Image_2, 10, 10, 570, 360, ImageID())
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadgetID()
Case #Image_2
MessageRequester("","")
EndSelect
EndSelect
Until Event=#PB_event_CloseWindow
(Powered by Boardsuche + PureBoard Archive) :Code: Alles auswählen
#window=0
#image1=1
#image2=2
#normal1=1
#over1=2
#normal2=3
#over2=4
Procedure MakePlate(id.l,x.l,y.l,t$,fg.l,bg.l)
CreateImage(id,x,y)
StartDrawing(ImageOutput())
Box(0, 0,x,y,bg)
DrawingMode(1)
FrontColor(Red(fg),Green(fg), Blue(fg))
w.l=TextLength(t$)
h.l=TextLength("Mi")
Locate(x/2-w/2,y/2-h/2)
DrawText(t$)
StopDrawing()
EndProcedure
Procedure myMouseOver(hWnd)
GetCursorPos_(cursor.POINT)
MapWindowPoints_(0,hWnd,cursor,1)
ProcedureReturn ChildWindowFromPoint_(hWnd,cursor\x,cursor\y)
EndProcedure
MakePlate(#normal1,150,300,"Bild1a",$ffffff,$11ff11)
MakePlate(#over1,150,300,"Bild1b",$ffffff,$1111ff)
MakePlate(#normal2,200,200,"Bild2a",$ffffff,$ff1111)
MakePlate(#over2,200,200,"Bild2b",$ffffff,$11ffff)
OpenWindow(#window,600,400,600,400, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "mouseover")
CreateGadgetList(WindowID())
ImageGadget(#image1,10,10,150,300,UseImage(#normal1))
ImageGadget(#image2,300,100,200,200,UseImage(#normal2),#PB_Image_Border )
Repeat
EventID = WaitWindowEvent()
MouseOverID=myMouseOver(WindowID())
Select MouseOverID
Case GadgetID(#image1)
SetGadgetState(#image1,UseImage(#over1))
Case GadgetID(#image2)
SetGadgetState(#image2,UseImage(#over2))
Default
SetGadgetState(#image1,UseImage(#normal1))
SetGadgetState(#image2,UseImage(#normal2))
EndSelect
Until EventID=#PB_EventCloseWindow
