Window creation: Difference between revisions

→‎{{header|PureBasic}}: expanding the task
m (→‎{{header|Wren}}: Changed to Wren S/H)
(→‎{{header|PureBasic}}: expanding the task)
 
Line 1,833:
 
=={{header|PureBasic}}==
<syntaxhighlight lang="purebasic">Define MyWin.i MyWin, Event.i, x, y
x = 400
y = 300
 
MyWin =If OpenWindow(#PB_Any0, 4120, 1720, 402x, 94y, "I am a window - PureBasic", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateImage(0, x, y) And StartDrawing(ImageOutput(0))
 
DrawingMode(#PB_2DDrawing_Transparent)
; Event loop
Box(0, 0, x, y, #White)
Repeat
Event For i = WaitWindowEvent()1 To 10
DrawText(x/3, y/2, "Hello World!", #Black)
Select Event
;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</syntaxhighlight>
EndIf</syntaxhighlight>
 
=={{header|Python}}==
2,136

edits