Grid veya StringGrid Hücre Renklendirme

[ozcanm]

Merhaba,
Eski bir konu fakat, ihtiyaç doğrultusunda kullanmam gerekti, buradada cevaplanmamış konu olarak gördüğüm için paylaşmak istedim.

İyi Çalışmalar.

procedure TFrmMain.StringGrid1DrawColumnCell(Sender: TObject;
 const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
 const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
SatirRengi: TBrush;
begin
 SatirRengi := Tbrush.Create(TBrushKind.Solid,TAlphaColors.Alpha);
 if (Sender as TStringGrid).Cells[ 3, Row ] = '0' then  // 4. Stun Değeri 0 ise o satırı boyamak içindir.
 begin
   SatirRengi.Color := TAlphaColors.Yellow;
   Canvas.FillRect(Bounds, 0, 0, [], 1, SatirRengi);
   Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
 end;

 if Column.Header='DEPARTMAN' then // DEPARTMAN Başlıklı stunu komple boyamak içindir.
 begin
   SatirRengi.Color := TAlphaColors.RED;
   Canvas.FillRect(Bounds, 0, 0, [], 1, SatirRengi);
   Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
 end;
 SatirRengi.free;
end;