Fenster Maximieren
Fenster Maximieren
Wie kann ich ein Fenster beim Programmstart automatisch Maximieren?
So
Oder so
Code: Alles auswählen
hWnd=OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered | #PB_Window_SystemMenu,"Titel")
ShowWindow_(hWnd,#SW_MAXIMIZE)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Code: Alles auswählen
hWnd=OpenWindow(0,0,0,GetSystemMetrics_(#SM_CXFULLSCREEN),GetSystemMetrics_(#SM_CYFULLSCREEN),#PB_Window_ScreenCentered | #PB_Window_SystemMenu,"Titel")
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Buttons
Weißt du auch wie ich einen Button Anzeigen und seine Eigenschaften festlegen kann?
-
- Beiträge: 696
- Registriert: 26.09.2004 20:17
- Kontaktdaten:
Code: Alles auswählen
OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Titel")
CreateGadgetList(WindowID()) ;Legt fest auf welches Fenster der Button kommt.
ButtonGadget(0,10,10,150,30,"Text")
;Parameter von Button Gadget: ID,X-Position,Y-Position,Breite,Hoehe,Text
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Code: Alles auswählen
OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Titel")
CreateGadgetList(WindowID()) ;Legt fest auf welches Fenster der Button kommt.
ButtonGadget(0,10,10,150,30,"Text0")
ButtonGadget(1,100,100,150,30,"Text1")
ButtonGadget(2,200,200,150,30,"Text2")
;Parameter von Button Gadget: ID,X-Position,Y-Position,Breite,Hoehe,Text
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadgetID()
Case 0
MessageRequester("Text0","Text0")
Case 1
MessageRequester("Text1","Text1")
Case 2
MessageRequester("Text2","Text2")
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow