Post by Deleted on Jan 16, 2009 12:02:28 GMT -5
Hi Guilect,
Somewhat does not operate correctly here.
Sub Main
Graphics.Initialize 640,480,True,32
Key.Initialize
Mouse.Initialize
While Key.Pressed(vk_escape) = False
Graphics.SetBox 10,10,100,100,&HFFFFFF00 'Weird Box
Graphics.SetLine 0,200,600,200,&HFF6400FF 'Cannot see this Line
Graphics.SetLine 0,200,600,208,&HFF00FF64 'Bravo !
System.ProcessMessages
Graphics.Display
Wend
Graphics.Terminate
Key.Terminate
Mouse.Terminate
End Sub
Call Main
Somewhat does not operate correctly here.
Sub Main
Graphics.Initialize 640,480,True,32
Key.Initialize
Mouse.Initialize
While Key.Pressed(vk_escape) = False
Graphics.SetBox 10,10,100,100,&HFFFFFF00 'Weird Box
Graphics.SetLine 0,200,600,200,&HFF6400FF 'Cannot see this Line
Graphics.SetLine 0,200,600,208,&HFF00FF64 'Bravo !
System.ProcessMessages
Graphics.Display
Wend
Graphics.Terminate
Key.Terminate
Mouse.Terminate
End Sub
Call Main
