Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
<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.
<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
Comment