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

Board index FiveWin for Harbour/xHarbour How to calculate the max size of a font to be all in a tSay

AHF

Posts: 838

Joined: Fri Feb 10, 2006 12:14 PM

How to calculate the max size of a font to be all in a tSay
Posted: Mon Dec 01, 2008 10:14 AM

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

Regards

Antonio H Ferreira

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Text-Width
Posted: Mon Dec 01, 2008 05:35 PM

Hello AHF,

Code: Select all Collapse

REDEFINE SAY oSUBDIR  VAR cSUBDIR ID 115 OF oDlg3  UPDATE

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

Regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

FiveTech Support Forums

Continue the discussion