RightOffset-Bug mit OpenWindowedScreen() beim Verkleinern...
Verfasst: 25.03.2005 19:23
... des Fensters.
Wenn man das Fenster verkleinert, wird die größe des OpenWindowedScreens nicht mehr richtig berechnet. Der Button, bzw. die Gadgets an der rechten Seite werden überdeckt. Auch das würde ich als PureBasic-Bug bezeichnen. Der Fehler tritt mit und ohne XP-Skinaktivierung auf (zumindest bei XP). Alle Updates sind gemacht. Wenn jemand so nett wäre und diesen Fehler im englischen Board postet...
Wenn man das Fenster verkleinert, wird die größe des OpenWindowedScreens nicht mehr richtig berechnet. Der Button, bzw. die Gadgets an der rechten Seite werden überdeckt. Auch das würde ich als PureBasic-Bug bezeichnen. Der Fehler tritt mit und ohne XP-Skinaktivierung auf (zumindest bei XP). Alle Updates sind gemacht. Wenn jemand so nett wäre und diesen Fehler im englischen Board postet...
Code: Alles auswählen
WinID = OpenWindow(0, 0, 0, 800, 600, #PB_Window_MinimizeGadget| #PB_Window_ScreenCentered| #PB_Window_MaximizeGadget| #PB_Window_SizeGadget, "")
If WinID
If InitSprite()
If OpenWindowedScreen(WinID, 0, 0, 10, 10, #True, 100, 23)
EndIf
EndIf
If CreateGadgetList(WinID)
ButtonGadget(0, 705, 5, 90, 30,"Button")
EndIf
If CreateStatusBar(1, WinID)
AddStatusBarField(100)
StatusBarText(1, 0, "StatusBar", #PB_StatusBar_Center)
EndIf
Else
End
EndIf
Repeat
Event = WindowEvent()
If Event
Select EventWindowID()
Case 0
ResizeGadget(0, WindowWidth() - 95, 5, -1, -1)
StatusBarText(1, 0, "StatusBar", #PB_StatusBar_Center)
If Event = #PB_EventCloseWindow
End
EndIf
EndSelect
EndIf
Delay(1)
ClearScreen($00, $00, $00)
FlipBuffers()
ForEver