Unzwar zeichnet er nicht mit dem Box-Befehl nicht korekt.
das merkwürdige, bei Windows Home gehts, bei Windows Pro nicht.
Oder mach ich ma wieder was falsch?
Code: Alles auswählen
If InitSprite() = #False Or InitSprite3D() = #False
MessageRequester("Fehler", "Init failed", #MB_OK|#MB_ICONERROR)
End
EndIf
If OpenWindow(0, 0, 0, 640, 480, "Testfenster", #PB_Window_ScreenCentered|#PB_Window_SystemMenu) <> #False
If OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0), WindowHeight(0), 0, 0, 0) = #False
MessageRequester("Fehler", "WindowScreen failed", #MB_OK|#MB_ICONERROR)
End
EndIf
Else
MessageRequester("Fehler", "Window failed", #MB_OK|#MB_ICONERROR)
End
EndIf
spr = CreateSprite(#PB_Any, WindowWidth(0), WindowHeight(0), #PB_Sprite_Texture)
StartDrawing(SpriteOutput(spr))
Box(0, 0, 250, 250, $00FFFF)
Box(5, 5, 100, 100, $FF0000)
StopDrawing()
spr3d = CreateSprite3D(#PB_Any, spr)
Repeat
Repeat
Event = WindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
Until Event = 0
FlipBuffers()
ClearScreen($000000)
Start3D()
DisplaySprite3D(spr3d, 0, 0, 255)
Stop3D()
Delay(1)
ForEver
.
