Und die kleinst mögliche Box() wird nicht gezeichnet....
Code: Alles auswählen
If InitSprite() And InitKeyboard() And InitMouse()
If OpenScreen(640, 480, 32, "Bug") = 0
MessageRequester("Fehler", "Auflösung ist nicht möglich." + #CRLF$ + "Programm wird beendet.")
End
EndIf
Else
MessageRequester("Fehler", "DirectX ist nicht aktuell." + #CRLF$ + "Bitte aktuallisieren!")
End
EndIf
Procedure Taste_verarbeiten(Wert.s)
If Asc(Wert) = 27
End
EndIf
EndProcedure
Repeat
ExamineMouse()
ExamineKeyboard()
Taste.s = KeyboardInkey()
If Taste
Taste_verarbeiten(Taste)
EndIf
StartDrawing(ScreenOutput())
Locate(400, 0): DrawText("Text 400, 0")
Plot(100, 100, $FF)
;Plot verursacht Fehler bei Locate...
Locate(400, 20): DrawText("Text 400, 20")
Box(100, 200, 3, 3, $FFFF)
Box(100, 205, 2, 2, $FFFF)
;Box 1*1 wird nicht gezeichnet
Box(100, 210, 1, 1, $FFFF)
StopDrawing()
FlipBuffers(0)
ClearScreen(0, 0, 0)
ForEver