How perpendicular text for EditorGadget ?

[gurj]

How perpendicular text for EditorGadget ?

Code: Select all

If OpenWindow(0,0,0,600,500,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget)
 LoadFont(0,"宋体", 28, #PB_Font_Bold):SetGadgetFont(#PB_Default, FontID(0))
 EditorGadget(0, 10, 10,580, 480, #PB_Editor_WordWrap)
 SetGadgetText(0,"How perpendicular text for EditorGadget ? 如何竖排文本? bbb")
 Repeat
  Event= WaitWindowEvent()
  Select Event
   Case #PB_Event_Gadget
    Select EventGadget()
     Case 0:
    EndSelect
  EndSelect
 Until Event=#PB_Event_CloseWindow
EndIf
End

[Amilcar Matos]

Merry Christmas Gurj!

Code: Select all

EnableExplicit
;{ variable definition
Define Flags.l
Define Pos.l
Define Text$
Define Event.l
;}

Flags = #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget
If OpenWindow(0, 0, 0, 600, 500, #Null$, Flags) <> #False
  LoadFont(0,"宋体", 28, #PB_Font_Bold)
  SetGadgetFont(#PB_Default, FontID(0))
  EditorGadget(0, 10, 10, 580, 480, #PB_Editor_WordWrap)
  ; Previous text: "How perpendicular text for EditorGadget ? 如何竖排文本? bbb"
  Text$ = "Jo, jo, jo! Merry Christmas!!! 如何竖排文本? bbb"
  
  ;{ Perpendicularization loop.
  For Pos = 12 To Len(Text$) Step 2
    Text$ = InsertString(Text$, #LF$, Pos)
  Next Pos   
  ;} 
  
  SetGadgetText(0, Text$)
  Repeat
    Event= WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            ; do nothing
        EndSelect
    EndSelect
  Until Event=#PB_Event_CloseWindow
EndIf

End

[gurj]

Merry Christmas Amilcar Matos !
It isn't nice codes.