Поиск
Показаны результаты для тегов 'Delphi xe6'.
Найдено: 1 результат
-
в 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 этот код ошибок не выдает, но и не чего не делает (( Подскажите, что не так?