掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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; みたいな感じは、いかがですか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.