в delphi xe4 и xe5 это осуществлялось вот так:
procedure TForm1.FormCreate(Sender: TObject);
var
Col, Row: Integer;
CellCtrl: TStyledControl;
begin
StringGrid1.Cells[ 0, 0 ] := 'Cell00';
StringGrid1.Cells[ 1, 0 ] := 'Cell10';
StringGrid1.Cells[ 0, 1 ] := 'Cell01';
StringGrid1.Cells[ 1, 1 ] := 'Cell11';
for Col := 0 to StringGrid1.ColumnCount - 1 do
begin
for Row := 0 to StringGrid1.RowCount - 1 do
begin
CellCtrl := TColumnAccess( StringGrid1.Columns[ Col ] ).CellControlByRow( Row );
if ( CellCtrl <> nil ) and ( CellCtrl is TTextCell ) then
begin
TTextCell( CellCtrl ).StyledSettings := [];
TTextCell( CellCtrl ).FontColor := claBlueViolet;
TTextCell( CellCtrl ).Font.Family := 'Times New Roman';
TTextCell( CellCtrl ).Font.Style := [ TFontStyle.fsBold ];
TTextCell( CellCtrl ).Font.Size := 14;
end;
end;
end;
end;
в Delphi xe6 этот код ошибок не выдает, но и не чего не делает ((
Подскажите, что не так?