Grafikproblem PB

[schleicher]

Punkt 1. trifft dann wohl den Nagel auf den Kopf. Ich das mal versuchen morgen umzusetzen. Danke
Für heute ist Feierabend.

[CodeCommander]

Feierabend

...wie das duftet. Kräftig, deftig, würzig, gut.
Wenn beim ersten Punkt wohl doch nicht den Nagel auf den Kopf trifft dann poste dein Code. Dann sehen wir wenigstens was falsch gemacht wurde und was du besser machen kannst.

[schleicher]

Am besten Du nutzt nur einen EventLoop für alle Fenster!

Muss ich denn die Buttongadgeds von den Sub-Windows dann auch alle ins Mainwindow übernehmem, oder bekomme ich
die irgendwie in der Procedur fürs Sub-Window gestartet ohne einen neuen Eventloop zu starten?

[RSBasic]

Die Gadgets erstellst du ganz normal in den jeweiligen Fenstern und die Events kannst du in deiner Haupt-Eventschleife abfragen, beispielsweise ob auf einen Button gedrückt wurde.

[ts-soft]

Du sollst alle Ereignisse in einem EventLoop abfragen. Die Buttons können sich selbstverständlich in irgend-
einem Fenster befinden. Am einfachsten ist es alle Fenster am Anfang zu öffnen, aber nur das Hauptfenster
anzuzeigen, d. h. die anderen werden versteckt.

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 800, 600, "Haupt")
  ButtonGadget(0, 10, 10, 100, 30, "Anderes Fenster")
  ; ....
EndIf

If OpenWindow(1, #PB_Ignore, #PB_Ignore, 600, 300, "Anderes Fenster", #PB_Window_SystemMenu | #PB_Window_Invisible)
  ;.....
EndIf

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case 0
          Break
        Case 1
          HideWindow(1, #True)
      EndSelect
    
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 0
          HideWindow(1, #False)
          SetActiveWindow(1)
      EndSelect
  EndSelect
ForEver

So in etwa. Es werden alle Ereignisse abgearbeitet und das in einem EventLoop.

[Danilo]

Mit Ereignisprozeduren spart man sich diese verschachtelte Ereignisabfrage:

Code: Alles auswählen

Procedure OnClick_Btn0()
    HideWindow(1, #False)
    SetActiveWindow(1)
EndProcedure

Procedure OnCloseWindow_0()
    End
EndProcedure

Procedure OnCloseWindow_1()
    HideWindow(1, #True)
    SetActiveWindow(0)
EndProcedure

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 800, 600, "Haupt")
    BindEvent(#PB_Event_CloseWindow, @OnCloseWindow_0(), 0)
    ButtonGadget(0, 10, 10, 100, 30, "Anderes Fenster")
    BindGadgetEvent(0, @OnClick_Btn0())
    ; ....
EndIf

If OpenWindow(1, #PB_Ignore, #PB_Ignore, 600, 300, "Anderes Fenster", #PB_Window_SystemMenu | #PB_Window_Invisible)
    BindEvent(#PB_Event_CloseWindow, @OnCloseWindow_1(), 1)
    ;.....
EndIf

Repeat : WaitWindowEvent() : ForEver

[schleicher]

Ich hatte meine Frage nur falsch formuliert. Meine Frage sollte heißen, ob die Events des 2. Windows ins 1. Window müssen
Also

Case #Button_2.Window muss in die Eventschleife des 1.Window ? Und diese Frage wurde von euch beantwortet.
Danke.

[schleicher]

Könnte man wegen der Übersichtlichkeit die Events der Unterfenster in der jeweiligen Unterfenster-Procedur belassen und diese trotzdem von der Eventschleife im Hauptfenster ausführbar machen ?

[ts-soft]

Nutze doch einfach BindEvent, BindGadgetEvent und BindMenuEvent, dann ergibt sich das doch.