i use single cell code, Font not changed, font size ok.
Code: Select all
XLS[0].AsFloat[2, 3] := 125.5;
XLS[0].Cell[2, 3].FillPatternForeColorRGB := $AFAFAF;
XLS[0].Cell[2, 3].NumberFormat := '0.000';
XLS[0].Cell[2, 3].BorderLeftStyle := cbsThick;
XLS[0].Cell[2, 3].BorderLeftColor := xcRed;
XLS[0].Cell[2, 3].BorderRightStyle := cbsThick;
XLS[0].Cell[2, 3].BorderRightColor := xcRed;
XLS[0].Cell[2, 3].BorderTopStyle := cbsThick;
XLS[0].Cell[2, 3].BorderTopColor := xcRed;
XLS[0].Cell[2, 3].BorderBottomStyle := cbsThick;
XLS[0].Cell[2, 3].BorderBottomColor := xcRed;
XLS[0].Cell[2, 3].FontName := 'Verdana'; //Font not change verdana,
XLS[0].Cell[2, 3].FontSize := 50; //size ok.
XLS[0].Cell[2, 3].WrapText := true;
XLS[0].AsString[0, 0] := 'Kфvаgт Kаlmаn';
XLS[0].Cell[0, 0].FontName := 'Verdana'; //Font not change verdana,
XLS[0].Cell[0, 0].FontSize := 50; //size ok.