>LOCAL lcFontStyle > >lcFontStyle = '' >FOR EACH loColumn IN THis.Columns > *** Get the font style > WITH loColumn > lcFontStyle = lcFontStyle + IIF( .FontBold, 'B', '' ) > lcFontStyle = lcFontStyle + IIF( .FontItalic, 'I', '' ) > lcFontStyle = lcFontStyle + IIF( .FontOutline, 'O', '' ) > lcFontStyle = lcFontStyle + IIF( .FontShadow, 'S', '' ) > lcFontStyle = lcFontStyle + IIF( .FontUnderline, 'U', '' ) > > *** Set the width according to the underlying data > .Width = LEN( EVALUATE( .ControlSOurce ) ) * FONTMETRIC( 6, .FontName, .FontSize, lcFontStyle ) > ENDWITH >ENDFOR >