Zeilen im DBGrid einfärben

[Stanly]

Hi!
Ist es möglich eine ganze Zeile einzufärben oder in der ganzen Zeile die SChriftfarbe zu ändern?

Thanx,
Stanly

[Peter Bartelt]

Hallo,
versuch's mal damit.

<pre>
procedure TfrmDeinFormular.DeinDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if gdSelected in State then begin
DeinDBGrid.Canvas.Brush.Color := $0041CFFE;
DeinDBGrid.Canvas.Font.Color := clBlack;
end {need that highlight for 'focus'}
else if (DeineDataSource.DataSet.RecNo mod 2) > 0 then
begin
DeinDBGrid.Canvas.Font.Color := clBlack;
DeinDBGrid.Canvas.Brush.Color := clSilver;
end;
DeinDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
</pre>
Dieses Beispiel ermöglicht sich abwechselnde Zeileneinfärbungen ($0041CFFE und Schwarz) mit den Schriftfarben Black und Silver.

Pete

[Peter Bartelt]

Hallo,
versuch's mal damit.

<pre>
procedure TfrmPlandaten.grdDeinDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if gdSelected in State then begin
grdDeinDBGrid.Canvas.Brush.Color := $0041CFFE;
grdDeinDBGrid.Canvas.Font.Color := clBlack;
end//clNavy {need that highlight for 'focus'}
else if (DeineDataSource.DataSet.RecNo mod 2) > 0 then
begin
grdDeinDBGrid.Canvas.Font.Color := clBlack;
grdDeinDBGrid.Canvas.Brush.Color := clSilver;//$00BEDCBE;
end;
grdDeinDBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
</pre>
Pete