Ich war ja sehr von dem neuen Debugger angetan, aber ich glaube ich muß mich etwas revidieren.
Ich habe einen kleinen Codeschnipsel der Ohne Debugger hervorragend läuft, aber mit Debugger bekomme ich immer folgenden Fehlerbericht:
- Warte auf den Start des Executable...
Executable gestartet.
[ERROR] DebuggerTest.pb (Line: 10)
[ERROR] LoadFont() can't be called inside a StartDrawing()/StopDrawing() block.
Das Programm wurde beendet.
Vieleicht kann mir das jemand erklären, oder ? Hat der Debugger einen Bug.
Code: Alles auswählen
#Width =400
#Height=200
#Text1 ="Test Text 1"
#Text2 ="Test Text 2"
Procedure SetPicture()
CreateImage(0, #Width/2, #Height/2)
If StartDrawing(ImageOutput())
Box(0, 0, ImageWidth(), ImageHeight(), $FFFFFFFF)
DrawingFont(LoadFont(0, "Arial", 30))
DrawingMode(1)
FrontColor(Random(255),Random(255),Random(255))
Locate((ImageWidth()-TextLength(#Text1))/2, 0)
DrawText("Test Text 1")
DrawingFont(#PB_Default)
Locate((ImageWidth()-TextLength(#Text1))/2, ImageHeight()/2)
DrawText("Test Text 2")
StopDrawing()
EndIf
SetGadgetState(0, UseImage(0))
EndProcedure
If OpenWindow(0, 0, 0,#Width, #Height, #PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Test")
If CreateGadgetList(WindowID(0))
ImageGadget(0, (WindowWidth()-#Width/2)/2, (WindowHeight()-#Height/2)/2, #Width/2, #Height/2, 0)
SetPicture()
EndIf
EndIf
Repeat: Until (WaitWindowEvent()=#PB_Event_CloseWindow)
End
