Problem mit #PB_Window_WindowCentered
Verfasst: 20.02.2016 13:34
Hallo PB'ler,
ich habe gerade versucht ein Fenster in einem Fenster, mittig, zu öffnen.
Bis dato hatte ich nie Probleme damit, selbst dann nicht wenn ich bei OpenWindow den Hinweis auf das Hauptfenster vergessen habe.
Jetzt unter PB 5.41 wird das Fenster nicht in der Mitte geöffnet sondern rechts unten.
Hier mal ein Beispielsource:
Hat sich grundsätzlich was bei #PB_Window_WindowCentered geändert und ich habe es nicht mitbekommen?
ich habe gerade versucht ein Fenster in einem Fenster, mittig, zu öffnen.
Bis dato hatte ich nie Probleme damit, selbst dann nicht wenn ich bei OpenWindow den Hinweis auf das Hauptfenster vergessen habe.
Jetzt unter PB 5.41 wird das Fenster nicht in der Mitte geöffnet sondern rechts unten.
Hier mal ein Beispielsource:
Code: Alles auswählen
Procedure NewWindow()
DisableWindow(0, #True)
If OpenWindow(1, 0, 0, 120, 60, "ButtonGadgets", #PB_Window_SystemMenu|#PB_Window_WindowCentered, WindowID(0))
ButtonGadget(1, 10, 10, 100, 20, "Exit")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow: Break
Case #PB_Event_Gadget: If (EventGadget()=1): Break: EndIf
EndSelect
ForEver
EndIf
CloseWindow(1)
DisableWindow(0, #False)
EndProcedure
If OpenWindow(0, 0, 0, 222, 200, "ButtonGadgets", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "New Window")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow: Break
Case #PB_Event_Gadget
If (EventGadget()=0): NewWindow(): EndIf
EndSelect
ForEver
EndIf