PureBasic Forums - English

Code: Select all

OpenWindow(0, 0, 0, 400, 400, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 400)
LoadFont(0, "Arial", 18)
StartDrawing(CanvasOutput(0))
DrawingFont(FontID(0))
ClipOutput(10, 10, 400, 400)
DrawText(50, 50, "Test", #Green, #Blue)
StopDrawing()
Repeat
  event = WaitWindowEvent(10)
Until event = #PB_Event_CloseWindow

Code: Select all

OpenWindow(0, 0, 0, 400, 400, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 400)
LoadFont(0, "Arial", 24)
StartDrawing(CanvasOutput(0))
DrawingFont(FontID(0))
DrawText(10, 10, "I like PureBasic!", #Blue, #Green)
h = TextHeight("X")
ClipOutput(10, 10 + h/2, 400, 400)
DrawText(10, 10, "I like PureBasic!", #Green, #Blue)
StopDrawing()
Repeat
  event = WaitWindowEvent(10)
Until event = #PB_Event_CloseWindow