warum bleibt in meinem Code DrawText wirkungslos?
Code: Alles auswählen
OpenWindow(0, 1,1, 400,400, "Test")
SetWindowColor(0, RGB(50,100,50))
StartDrawing(WindowOutput(0))
DrawText(10,10, "xxxxxxx")
MessageRequester("","")
Code: Alles auswählen
OpenWindow(0, 1,1, 400,400, "Test")
SetWindowColor(0, RGB(50,100,50))
StartDrawing(WindowOutput(0))
DrawText(10,10, "xxxxxxx")
MessageRequester("","")
Code: Alles auswählen
OpenWindow(0, 1,1, 400,200, "Test", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
SetWindowColor(0, RGB(50,100,50))
Repeat
StartDrawing(WindowOutput(0))
DrawText(10,10, "xxxxxxx")
StopDrawing()
Until WaitWindowEvent(100) = #PB_Event_CloseWindow
@Tirreg
Code: Alles auswählen
Procedure DrawOnWindow()
StartDrawing(WindowOutput(0))
DrawText(10,10, "xxxxxxx")
StopDrawing()
EndProcedure
Procedure Main()
If OpenWindow(0, 1,1, 400,200, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
SetWindowColor(0, RGB(50,100,50))
DrawOnWindow()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Select EventWindow()
Case 0
Break
EndSelect
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
Case #PB_Event_Repaint
Select EventWindow()
Case 0
DrawOnWindow()
EndSelect
EndSelect
ForEver
EndIf
EndProcedure : Main()