WEB开发网
开发学院软件开发Delphi 在DElphi中的DataGrid怎样使它显示的行间隔改变颜... 阅读

在DElphi中的DataGrid怎样使它显示的行间隔改变颜色

 2006-02-04 14:00:05 来源:WEB开发网   
核心提示:在DElphi中的DataGrid怎样使它显示的行间隔改变颜色?就向.NET中同名控件一样, --- 好像是在 OnDrawDataCell 事件中写代码,在DElphi中的DataGrid怎样使它显示的行间隔改变颜色, --- PRocedure TForm1.dbgridDrawColumnCel
在DElphi中的DataGrid怎样使它显示的行间隔改变颜色?就向.NET中同名控件一样。  
---------------------------------------------------------------  
 
好像是在  OnDrawDataCell  事件中写代码。  
---------------------------------------------------------------  
 
PRocedure  TForm1.dbgridDrawColumnCell(Sender:  TObject;  
   const  Rect:  TRect;  DataCol:  Integer;  Column:  TColumn;  
   State:  TGridDrawState);  
begin  
         if  DBGrid2.DataSource.DataSet.RecNo  mod  2=1  then  
         begin  
               DBGrid2.Canvas.Font.Color  :=  clBlue;  
               DBGrid2.Canvas.Brush.Color:=clyellow;  
         end  
         else  begin  
               DBGrid2.Canvas.Font.Color  :=  clred;  
               DBGrid2.Canvas.Brush.Color:=  clGradientActiveCaption;  
         end;  
         DBGrid2.DefaultDrawColumnCell(Rect,  DataCol,  Column,  State);  
end;

Tags:DElphi DataGrid 怎样

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接