How to calculate the max size of a font to be all in a tSay

[AHF]

How can I calculate the max size of a font based on the size of a string to be all visible in a Tsay object ?

Antonio

[ukoenig]

Hello AHF,

Code: Select all  Expand view


REDEFINE SAY oSUBDIR  VAR cSUBDIR ID 115 OF oDlg3  UPDATE

hDC := oDlg3:GETDC()
nCharWidth := GettextWidth( hDC, cSUBDIR )
MsgAlert( nCharWidth )
ReleaseDC(hDC)



Regards
Uwe