Code: Select all
function PrintLen( cString,nFontsize,cFontname)
return round(gettextwidth(Nil,cString,cFontname)*0.072/72*25.4*nFontsize,2)
Code: Select all
nMaxLength := 20
cLine := "Code"
do while PrintLen(cLine + ".", 12, "ARIAL") <= nMaxLength
cLine += "."
enddo