Die Farbe der DBgridzeielen (Rows) unterschiedlich darstelle

[khalilazzz]

hallo zusammen
ich habe folgendes Problem und bin für jede Hilfe dankbar.
ich entwickle einen Datenbankanwendung mit einem DBGrid.
ich möchte dass die gerade Zeilen (Rows) des DBgrid rot gefärbt werden,und die ungerade Zeilen dieses DBgrid gründ gefärbt werden sollen,das heisst,dass die farbe der zeilen (1-3-5-7-..)rot und der zeilen (2-4-6-...)grün sein soll.
bei dem DBgrid kann im gegesatz zu stringgrid die Rowindex nicht erkannt werden. hat jemand einen Idee wie man so was realesieren kann?
Vielen Dank im Voraus

[Luckie]

Stell das Grid auf CustomDraw oder wie das heißt und zeichne die zellen in OnDrawCell selber. Beispiele (auch für ein normales StringGrid) solltest du hier im Forum finden.

[eddy]

Hallo khalilazzz,

Code:

procedure TFMoney.dbgKDDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid : TDBGrid;
  i : integer;
begin
  if (gdSelected in State) or (gdFocused in State) then exit;
  Grid:= TDBGrid(Sender);
  i := Grid.DataSource.DataSet.RecNo;
  if odd(i) 
    then Grid.Canvas.Brush.Color := clRed
    else Grid.Canvas.Brush.Color := clGreen;
    Grid.DefaultDrawColumnCell(Rect, 0, Column, State);
  end;  
end;

mfg
eddy