DBGrid间隔行颜色

[delphi]  view plain  copy

 print ?

1. procedure TFrmQueryData.DBGrid1DrawColumnCell(Sender: TObject;  
2.   const Rect: TRect; DataCol: Integer; Column: TColumn;  
3.   State: TGridDrawState);  
4. var  
5.   FindFieldCol: integer;  
6. begin  
7.   if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then  
8.   begin  
9.     DBGrid1.Canvas.Font.Color := clBlue;  
10.     DBGrid1.Canvas.Brush.Color :=RGB(181, 230, 255);// clyellow;  
11.   end  
12.   else  
13.   begin  
14.     DBGrid1.Canvas.Font.Color := clGreen;//clred;  
15.     DBGrid1.Canvas.Brush.Color := RGB(251, 255, 170) ;//clGradientActiveCaption;  
16.   end;  
17.   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);  
18.   
19.   if datacol = 0 then //定义行号列  
20.     (Sender as TDBGrid).Canvas.TextOut(Rect.Left, Rect.Top, 
21. IntToStr(DBGrid1.DataSource.DataSet.RecNo));  
22. end;