Jest sobie aplikacja używająca stylów (dl przykładu Sky)
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TXColumn; State: TGridDrawState);
begin
if (Column.Index = 1) then
begin
if <warunek = true> then
begin
DBGrid1.Canvas.Brush.Color := clRed;
if gdSelected in State then
DBGrid1.Canvas.Brush.Color := clRed;
end;
XDBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Jak pokolorować kolumnę w sekcji <if gdSelected ...>
przy użyciu w/w stylu ?