PureBasic Forums - English

Code: Select all

Procedure.i GetTxtLineHgt(iWinID.i, iFontID.i)
;---------------------------------------------
Protected iHgt.i = 0

              If StartDrawing(WindowOutput(iWinID))

                      DrawingMode(#PB_2DDrawing_Default)
                      DrawingFont(iFontID)
                        iHgt = TextHeight("My")
                      StopDrawing()
              EndIf

              ProcedureReturn(iHgt)
EndProcedure

Code: Select all

; OS X

Procedure ResizeTextGadget(TextGadget)
  Protected.i TextField, Cell, Rect.NSRect
  TextField = GadgetID(TextGadget)
  Cell = CocoaMessage(0, TextField, "cell")
  CocoaMessage(@Rect, TextField, "bounds")
  Rect\size\height = Infinity()
  CocoaMessage(@Rect\size, Cell, "cellSizeForBounds:@", @Rect)
  CocoaMessage(0, TextField, "setFrameSize:@", @Rect\size)
EndProcedure

If OpenWindow(0, 0, 0, 270, 160, "TextGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  TextGadget(0, 10, 10, 250, 20, "This is a word wrapping textfield with a border. We will set the height to adjust for the amount of text", #PB_Text_Border)
  ResizeTextGadget(0)
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Select all

Edit: code deleted.
See my working example below.

Code: Select all

Text$ = "  Lorem ipsum dolor sit amet, consectetur adipisici elit, sed" +
" eiusmod tempor incidunt ut labore et dolore magna aliqua." +
 " Ut enim ad minim veniam, quis nostrud exercitation ullamco" +
" laboris nisi ut aliquid ex ea commodi consequat." +
" Quis aute iure reprehenderit in voluptate velit esse" +
 " cillum dolore eu fugiat nulla pariatur." +
" Excepteur sint obcaecat cupiditat non proident, sunt" +
" in culpa qui officia deserunt mollit anim id est laborum."

LoadFont(0,"Georgia",14)

If OpenWindow(0, 0, 0, 400, 300, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    EditorGadget(0, -400,10, 380,300)
    TextGadget(1,10,10,380,20,"",#WS_BORDER)
    SetGadgetFont(0,FontID(0))
    SetGadgetFont(1,FontID(0))
    SetGadgetColor(1,#PB_Gadget_BackColor,$E6FEFE)
    SetGadgetColor(1,#PB_Gadget_FrontColor,#Red)
    SendMessage_(GadgetID(0), #EM_SETTARGETDEVICE, #Null, 0)
    ClearGadgetItems(0)
    SetGadgetText(0,Text$)
    
    nLines = CountGadgetItems(0)
    StartDrawing(WindowOutput(0))
      DrawingFont(FontID(0))
      hLine = TextHeight("W") + GetSystemMetrics_(#SM_CYBORDER)
    StopDrawing()
   
    ResizeGadget(1,10,10,380,hLine*nLines)
    ClearClipboard()
    SendMessage_(GadgetID(0),#EM_SETSEL,0,-1)
    SendMessage_(GadgetID(0),#WM_COPY,0,0)
    
    SetGadgetText(1,GetClipboardText())
Repeat
     Select WaitWindowEvent()
         Case #PB_Event_CloseWindow
                 Quit = 1
         Case #PB_Event_Gadget
                Select EventGadget()
                        Case 1
                 EndSelect
     EndSelect                             
Until Quit = 1
EndIf

Code: Select all

Enumeration
#DummyWin
#MainWin
#TxtSize
#BtnExit
#BtnGet01
#BtnGet02
#BtnGet03
#Txt01
#Txt02
#Txt03
EndEnumeration

Global    igDpi.i = GetDeviceCaps_(GetDC_(0),#LOGPIXELSX)
Global   igFS10.i = ((10 * 100) / igDpi)
Global   igFS14.i = ((14 * 100) / igDpi)
Global   igFS16.i = ((16 * 100) / igDpi)
Global igFont10.i = LoadFont(0, "Microsoft Sans Serif", igFS10, #PB_Font_HighQuality + 2)
Global igFont14.i = LoadFont(1, "Microsoft Sans Serif", igFS14, #PB_Font_HighQuality + 2)
Global igFont16.i = LoadFont(2, "Microsoft Sans Serif", igFS16, #PB_Font_HighQuality + 2)

Procedure FakeMainWin()
;----------------------

              If OpenWindow(#DummyWin, -10, -10, 500, 500, "fake parent", #PB_Window_Invisible)
             
                       EditorGadget(#TxtSize, 0, 0, 200, 500, #PB_Editor_WordWrap)
              EndIf
EndProcedure

Procedure.i GetTxtLineHgt(iWin.i, iFont.i)
;-----------------------------------------
Protected iLineHgt.i = 0

              If StartDrawing(WindowOutput(iWin))

                      DrawingMode(#PB_2DDrawing_Default)
                      DrawingFont(iFont)
                      iLineHgt = TextHeight("MyĚ")
                      StopDrawing()
              EndIf

              ProcedureReturn(iLineHgt)
EndProcedure

Procedure.i GetTxtGdtHgt(iGdtW.i, iLineHgt.i, iFont.i, sTxt.s)
;-------------------------------------------------------------
Protected iGdtHgt.i = 0, iLineTotal.i

                 ResizeGadget(#TxtSize, #PB_Ignore, #PB_Ignore, iGdtW, #PB_Ignore)
                SetGadgetFont(#TxtSize, iFont)
                SetGadgetText(#TxtSize, sTxt)

                           iLineTotal = CountGadgetItems(#TxtSize)
                              iGdtHgt = iLineHgt * iLineTotal 
              ProcedureReturn(iGdtHgt)
EndProcedure

Procedure GetText(iTargetGdtID.i, iFont.i)
;-----------------------------------------
Protected    sTest.s = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. "
               sTest = sTest + "Nullam molestie commodo magna, id rutrum enim suscipit ac. "
               sTest = sTest + "Nunc tempor faucibus magna, vel volutpat tellus luctus et. "

Protected    iGdtW.i = GadgetWidth(iTargetGdtID)
Protected iLineHgt.i = GetTxtLineHgt(#DummyWin, iFont)
Protected    iGdtH.i = GetTxtGdtHgt(iGdtW, iLineHgt, iFont, sTest)

                 ResizeGadget(iTargetGdtID, #PB_Ignore, #PB_Ignore, #PB_Ignore, iGdtH)
                SetGadgetText(iTargetGdtID, sTest)
EndProcedure

Procedure MainWin()
;------------------
Protected iFlags.i = #PB_Window_BorderLess|#PB_Window_ScreenCentered

              If OpenWindow(#MainWin, 0, 0, 800, 600, "MainWin", iFlags, WindowID(#DummyWin))

                     SetWindowColor(#MainWin, RGB(056,056,056))
                     
                       ButtonGadget(#BtnExit,  740,  0,  60,  20, "EXIT")
                     
                       ButtonGadget(#BtnGet01,  10, 10, 200,  20, "Get Text")
                         TextGadget(#Txt01,     10, 30, 200,  40, "Txt01")
                     
                       ButtonGadget(#BtnGet02, 220, 10, 200,  20, "Get Text")
                         TextGadget(#Txt02,    220, 30, 200,  40, "Txt02")
                     
                       ButtonGadget(#BtnGet03, 440, 10, 200,  20, "Get Text")
                         TextGadget(#Txt03,    440, 30, 200,  40, "Txt03")
                     
                      SetGadgetFont(#Txt01, igFont10)
                      SetGadgetFont(#Txt02, igFont14)
                      SetGadgetFont(#Txt03, igFont16)
              EndIf
EndProcedure

Procedure WaitForUser()
;----------------------
Protected iEvent.i, iExit.i = False

  Repeat
              iEvent = WaitWindowEvent()
       Select iEvent
                       Case #PB_Event_Gadget

                            Select EventGadget()

                                       Case #BtnGet01: GetText(#Txt01, igFont10)
                                       Case #BtnGet02: GetText(#Txt02, igFont14)
                                       Case #BtnGet03: GetText(#Txt03, igFont16)
                                       Case  #BtnExit: iExit = #True : CloseWindow(#MainWin)
                            EndSelect
       EndSelect

  Until iExit = #True

EndProcedure

FakeMainWin()
    MainWin()
WaitForUser()

End

Code: Select all

EnableExplicit

#MyWin = 0

Procedure SetTextGadgetHeight(gadget, text.s)
   ; Adjusts the height of a text gadget to match the
   ; text height of multi-line text.
   ; Use in place of SetGadgetText().
   ; Returns the new height of the text gadget
   
   Static secretEditGad, firstRun = #True
   Protected gad_w = GadgetWidth(gadget) + 7
   Protected fontID, txt_h, lineCount, result = #False
   
   If IsGadget(gadget) 
      If firstRun
         firstRun = #False
         ; locate EditorGadget off window
         secretEditGad = EditorGadget(#PB_Any, -1000, 0, gad_w, 1000, #PB_Editor_WordWrap)
      Else
         ResizeGadget(secretEditGad, #PB_Ignore, #PB_Ignore, gad_w, #PB_Ignore)
      EndIf
      
      FontID = GetGadgetFont(gadget)
      
      CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
         If FontID = 0 ; see help entry for GetGadgetFont()
            FontID = GetGadgetFont(#PB_Default)
         EndIf
      CompilerEndIf
      
      If StartDrawing(WindowOutput(#MyWin))
            DrawingFont(FontID)
            txt_h = TextHeight(text)
         StopDrawing()
         
         SetGadgetFont(secretEditGad, FontID)
         
         SetGadgetText(secretEditGad, text)
         lineCount = CountGadgetItems(secretEditGad)
         
         result = txt_h * lineCount
         ResizeGadget(gadget, #PB_Ignore, #PB_Ignore, #PB_Ignore, result)
         SetGadgetText(gadget, text)
      EndIf
   EndIf
   
   ProcedureReturn result
EndProcedure


; example
OpenWindow(#MyWin,0,0,600,300,"",#PB_Window_ScreenCentered | #PB_Window_SystemMenu)
   SetWindowColor(#MyWin, $FFDB85)
   
; load some fonts you wish to use
Define font_1 = LoadFont(#PB_Any, "Arial", 16)
Define font_2 = LoadFont(#PB_Any, "Times New Roman", 10)


; first create and position some text gadgets, height does not matter
Define tg_1 = TextGadget(#PB_Any, 010, 10, 100, 25, "")
Define tg_2 = TextGadget(#PB_Any, 120, 10, 100, 25, "")
Define tg_3 = TextGadget(#PB_Any, 230, 10, 100, 25, "")
Define tg_4 = TextGadget(#PB_Any, 340, 10, 100, 25, "")

; add text to the text gadgets, height will be adjusted by procedure

Define t$ = "The quick brown fox jumps over the lazy dog"
; use default font
SetTextGadgetHeight(tg_1, t$)

t$ = "One plus one equals two"
SetGadgetFont(tg_2, FontID(font_1)) ; use font_1
SetTextGadgetHeight(tg_2, t$)

t$ = "Merry Christmas!"
SetGadgetFont(#PB_Default, FontID(font_2)) ; make font_2 default font
SetTextGadgetHeight(tg_3, t$)

t$ = "Let's all fly down south and hide our heads in the sand."
SetTextGadgetHeight(tg_4, t$)


While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

Code: Select all

Global    igDpi.i = GetDeviceCaps_(GetDC_(0),#LOGPIXELSX)