Die Farbe der DBgridzeielen (Rows) unterschiedlich darstelle

[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