Mega Code Archive

 

Categories / Delphi / VCL

 

[] Dbgridi satır satır renklendirme

Harun... DBGrid'i satır satır Renklendirme. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then Dbgrid1.Canvas.brush.Color:=clBlue else if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then Dbgrid1.Canvas.Brush.Color:=clred ; dbgrid1.Canvas.Brush.Color:=Dbgrid1.Canvas.Brush.Color; Dbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state); end;