FMXのTStringGridでセル毎に文字色を変える (ID:149743)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 OnDrawColumnCellイベントで、 procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates); var isWordWrap: Boolean; begin isWordWrap := True; Canvas.Fill.Color := TAlphaColorRec.Black; とか Canvas.Fill.Color := TAlphaColorRec.Blue; Canvas.FillText(Bounds, Value.AsString, isWordWrap, 1.0, [], TTextAlign(Column.tag), TTextAlign.Center(*TTextAlign.Leading*)); end; みたいな感じは、いかがですか？