27 lines
737 B
Plaintext
27 lines
737 B
Plaintext
Define.i MyWin, Event, x, y
|
|
x = 400
|
|
y = 300
|
|
|
|
If OpenWindow(0, 0, 0, x, y, "I am a window - PureBasic", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
|
|
If CreateImage(0, x, y) And StartDrawing(ImageOutput(0))
|
|
DrawingMode(#PB_2DDrawing_Transparent)
|
|
Box(0, 0, x, y, #White)
|
|
For i = 1 To 10
|
|
DrawText(x/3, y/2, "Hello World!", #Black)
|
|
;DrawText(Random(200), Random(200), "Hello World!", RGB(Random(255), Random(255), Random(255)))
|
|
Next i
|
|
StopDrawing()
|
|
ImageGadget(0, 0, 0, x, y, ImageID(0))
|
|
EndIf
|
|
|
|
Repeat
|
|
Event = WaitWindowEvent()
|
|
Select Event
|
|
Case #PB_Event_Gadget
|
|
; Handle any gadget events here
|
|
Case #PB_Event_CloseWindow
|
|
Break
|
|
EndSelect
|
|
ForEver
|
|
EndIf
|