Jump to content


Chtiot

Member Since 17 Oct 2011
Offline Last Active Oct 18 2011 09:53 AM
-----

Topics I've Started

Font change

17 October 2011 - 05:37 PM

Hi,


It seems that font changes are not effective :

Font style doen't change when I do :

NextSheet1.StylePainter.Alignment := caCenter;
  NextSheet1.StylePainter.Color := clMoneyGreen;
  NextSheet1.StylePainter.Font.Style := [fsBold] + [fsItalic];
  NextSheet1.StylePainter.Apply(0,0,NextSheet1.ColCount -1, 0);

It doesn't work too with this code :

NextSheet1.Cell[3,1].Font.Name := 'Free 3 of 9';
  NextSheet1.Cell[3,1].Font.Style := [fsBold];
  NextSheet1.Cell[3,1].Font.Height := 24;

Can you help me ?

Thanks