Simulation eines GadgetEvents unter Windows

[Bisonte]

Hallo erstmal ...

Folgendes Beispiel :

Nehmen wir an, ich habe ein ImageGadget ausgeschaltet (DisableGadget), nun greift ja nicht mehr

Code: Alles auswählen

Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
  If EventGadget() = ImageGadget
    ; Do something
  EndIf
EndIf

wie kann ich nun der Eventloop mitteilen (per Post oder SendMessage denk ich...)
das ein #PB_EventGadget anliegt und EventGadget() die entsprechende Gadget PB Nummer rausrückt ?

Für EventMenu() gibts bei RSBasic ein Beispiel, aber für Gadgets hab ich das noch nicht so wirklich
hinbekommen/rausgefunden.

[Kiffi]

mh..., anstelle von '; Do something' wird bei Dir doch eine
Procedure aufgerufen, oder? Wie wäre es, wenn Du die
Proc direkt aufrufst (anstatt des aufwändigen Simulierens
eines Events)?

Grüße ... Kiffi

[Bisonte]

Das war jetzt nur ein Beispiel.

Es geht mir darum, eben diese Events zu simulieren.

Zum Beispiel ein selbstgebautes TextGadget (ein ImageGadget eben), das auch Mausklicks an die Eventloop leitet...
Und dann zum Einbau in eine Userlib oder Include, für allgemeines benutzen und nicht auf jede Anwendung zugeschnitten...

Irgendwie muss PB das ja auch hinkriegen ^^

[RSBasic]

Ich wär auch dafür, dass du einfach deine Aufgaben, die beispielsweise bei Click durchgeführt werden, in einer Prozedur auslagerst und diese Prozedur manuell aufrufst.

Aber wenn du dennoch beispielsweise einen Click-Event auf ImageGadget, welches deaktiviert wurde, simulieren möchtest:

Code: Alles auswählen

EnableExplicit

Define EventID

CreateImage(1, 200, 200)

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ImageGadget(1, 10, 10, 0, 0, ImageID(1), 0)
  DisableGadget(1, 1)
  ButtonGadget(2, 10, 220, 300, 20, "Click auf DisabledImage simulieren", 0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_Event_Gadget
      Select EventGadget()
       Case 1
         Debug "Event"
       Case 2
         SendMessage_(GadgetID(1),#WM_LBUTTONDOWN,0,0)
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
EndIf

[Bisonte]

Danke.

So einfach.... Da war meine Brille wohl wieder beschlagen

[Frabbing]

Direkt simulieren ginge so (hier Linksklick):

Code: Alles auswählen

Import ""
  PB_Gadget_SendGadgetCommand(hWnd, EventType)
EndImport

PB_Gadget_SendGadgetCommand(GadgetID(#gadget), #PB_EventType_LeftClick)