procedure TLRecFrm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
iValue:Byte;
begin
iValue :=DBGrid1.DataSource.DataSet.RecNo mod 2;
If (gdFocused in State) or (gdSelected in State) then
dbgrid1.canvas.brush.color :=ClBlue
else
case iValue of
1: DBGrid1.Canvas.Brush.Color := $00D1D9DC;
0: DBGrid1.Canvas.Brush.Color := clWhite;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
کامپوننت فکس نداری .
یکی هم به داد ما برسه بد نیست