TStringGridの列タイトルセルをすべて別の色にペイントする方法はありますか

Question

私はLazarus 0.9.30.2を実行しています。

TStringGridがあるTFormがあります。各列のタイトルは、実行時にグリッドに動的に追加したTGridColumnsオブジェクトです。各列のタイトルには、それに関連付けられたオブジェクト（作成してTListに格納したオブジェクト）があります。文字列グリッドの列タイトルセルの背景をペイントしたいが、すべてのセルが同じ色になることは望ましくない。列タイトルに関連付けられたオブジェクトのプロパティの1つの値に応じて、色が変わります。

私はStackoverflow（example）でTStringGridセルをペイントする方法に関する答えがあることを知っています。文字列グリッドDrawCellイベントを使用してセルをペイントする方法について説明していますが、このプロシージャを呼び出す方法がわかりません。

目的のセルを識別する（つまり、セルの「Rect」プロパティを識別する）別のプロシージャを用意し、必要な色を設定してから実際のグリッドのDrawCellプロシージャを呼び出します着色？

Answer 1

OnPrepareCanvasの方が良いイベントがあります。このイベントは、セルが描画を準備しているときはいつでも起動され、その段階で背景をペイントするためのブラシカラーなどのキャンバス属性の一部を変更できます。 OnPrepareCanvasイベントが示さ

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer; 
    aState: TGridDrawState); 
var 
    ColumnTitle: TTmColumnTitle; 
begin 
    if ARow = 0 then 
    begin 
    ColumnTitle := TTmColumnTitle(StringGrid1.Objects[ACol, ARow]); 
    if Assigned(ColumnTitle) then 
     StringGrid1.Canvas.Brush.Color := ColumnTitle.CellColor; 
    end; 
end; 

オブジェクトインスペクタで：

type 
    TTmColumnTitle = class(TTmObject) 
    private 
    FCellColor: TColor; 
    public 
    property CellColor: TColor read FCellColor write FCellColor; 
    end; 

そしてOnPrepareCanvasイベントのハンドラを記述します。だから、あなたが必要なものをどこかに色を格納することです