Code: Select all
If OpenWindow(0, 0, 0, 630, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EditorGadget(0, 8, 8, 300, 133)
CanvasGadget(1, 320, 8, 300, 133)
For a = 0 To 5
AddGadgetItem(0, a, "Line "+Str(a))
Next
LoadFont(0, "Arial", 20)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If StartVectorDrawing(CanvasVectorOutput(1))
VectorFont(FontID(0), 18)
VectorSourceColor(RGBA(255, 255, 255, 255))
FillVectorOutput()
MovePathCursor(5, 5)
VectorSourceColor(RGBA(0, 0, 0, 255))
DrawVectorParagraph(GetGadgetText(0), VectorOutputWidth() - 10, VectorOutputHeight() - 10)
MovePathCursor(VectorOutputWidth() - VectorTextWidth("Height: ###"), 5)
DrawVectorText("Height: " + Str(VectorTextHeight(GetGadgetText(0))))
StopVectorDrawing()
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf