4.5 Fenster maximiert öffnen
Verfasst: 22.06.2010 21:23
Vielleicht ist es ja nur unter XP so, auf einem anderen Betriebssystem kann ich es zur Zeit nicht testen.
Wenn ich ein Fenster maximiert öffne und den Flag #PB_Window_MaximizeGadget weglasse, öffnet sich
das Fenster über den ganzen Bildschirm. Ohne den Flag #PB_Window_SizeGadget wird sogar die
Taskleiste verdeckt. Ich glaube mal nicht, daß dies wirklich so gewollt ist, zumindest nicht von mir... ^^
Der Debugger sollte natürlich an sein.
Wenn ich ein Fenster maximiert öffne und den Flag #PB_Window_MaximizeGadget weglasse, öffnet sich
das Fenster über den ganzen Bildschirm. Ohne den Flag #PB_Window_SizeGadget wird sogar die
Taskleiste verdeckt. Ich glaube mal nicht, daß dies wirklich so gewollt ist, zumindest nicht von mir... ^^
Code: Alles auswählen
Procedure Fenster(text$)
Protected aussen.RECT
GetWindowRect_(WindowID(0), aussen)
Debug text$
Debug "Links: " + Str(aussen\left)
Debug "Oben: " + Str(aussen\top)
Debug "Rechts: " + Str(aussen\right)
Debug "Unten: " + Str(aussen\bottom)
EndProcedure
If OpenWindow(0, 0, 0, 300, 200, "Maxi", #PB_Window_Maximize)
ButtonGadget(1, 5, 5, 100, 30, "aktuallisieren")
ButtonGadget(2, 5, 45, 100, 30, "beenden")
Fenster("[Start]")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case 1
Fenster("[Aktuell]")
Case 2
End
EndSelect
EndIf
ForEver
EndIf