How to determine string HEIGHT and WIDTH

[avista]

Hi,
Please how can i determine string HEIGHT and WIDTH if i need to SAY it with some font on dialog.
I need that to can calculate DIALOG size where i want to SAY that string using some font too.
For example:

cString := "iiiiiiiiii"
or other solution
cString := "WWWWWWWWWW"

DEFINE DIALOG oDlg SIZE ?,?
@ 0,0 SAY cString FONT oFont

I want DIALOG to have size just to SAY string on it.

Best regards,

[Antonio Linares]

Try it this way:

Code: Select all  Expand view

   local oDlg, oSay, cText := "hello world"

   DEFINE DIALOG oDlg

   @ 0, 0 SAY oSay PROMPT cText OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oDlg:SetSize( oSay:nWidth, oSay:nHeight )
 

[ukoenig]

Antonio,

tested, but doesn't work.
The Result :



My Test and Function returns a adjusted Dialog ( a little bit more complicated ) :



Some space between Dlg-top / Text-top and Dlg-bottom / Text-bottom.
Can be adjusted to Dlg-top = Text-top and Dlg-bottom = Text-bottom

A little Test-tool, selecting any Font and changing Size and Style :
( I added only a small Space for g, j, p, q and y on Bottom )
You can change the top, left, right and bottom-space.
A INI-file is used, to save and restore a Font.



For the calculated Dialog-height, some Adjustments are needed.

For the Textheight :

oFont1 := TFont():New("Arial",,-nFSize,.F.,.T. ,,,,.F. )
nTxtHeight := INT( Abs( oFont1:nHeight ) ) + 22
( nFSize is selected, 22 = Height of Dialog-title )

For the calculated Textwidth and Dialog-size I used :

Code: Select all  Expand view

// -- calculated Text-width ----------------

FUNCTION TEXT_W( oSay, nTxtHeight )

hDC := oSay:GetDC()
IF oFont1:lItalic = .F. // Italic
    nTxtWidth :=  INT( GettextWidth( hDC, ALLTRIM(cText), oFont1:hFont, ) ) + 6
ELSE
    nTxtWidth :=  INT( GettextWidth( hDC, ALLTRIM(cText), oFont1:hFont, ) ) + 8
ENDIF
oSay:ReleaseDC()
oSay:nWidth := nTxtWidth
// 15 = added Space on Bottom
// ---------------------------------
oDlg2:Move( nPosT, nPosL, nTxtWidth, nTxtHeight + 15, .T. )
oSay:Refresh()

RETURN ( NIL )
 

Best regards
Uwe