Delphi中DBGrid行列颜色设置

1.   纵向斑马线效果:实现网格的奇数列和偶数列分别以不同的颜色显示,以区别相邻的数据列。  
   
    file://在DbGrid的DrawColumnCell事件中编写如下代码:  
   
    Case   DataCol   Mod   2   =   0   of  
   
     True:   DbGrid1.Canvas.Brush.Color:=   clBlue;   file://偶数列用蓝色  
   
     False:   DbGrid1.Canvas.Brush.Color:=   clAqua;   file://奇数列用浅绿色  
   
    End;  
   
    DbGrid1.Canvas.Pen.Mode:=pmMask;  
   
    DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  
   
   
  2.   纵向斑马线,同时以红色突出显示当前单元格效果:以突出显示当前选中的字段。    
    file://将上述代码修改为:  
   
    Case   DataCol   Mod   2   =   0   of  
   
     True:   DbGrid1.Canvas.Brush.Color:=   clBlue;   file://偶数列用蓝色  
   
     False:   DbGrid1.Canvas.Brush.Color:=   clAqua;   file://奇数列用浅绿色  
   
    End;  
   
    If   ((State   =   [gdSelected])   or   (State=[gdSelected,gdFocused]))   then  
   
      If   Not   DbGrid1.SelectedRows.CurrentRowSelected   then  
   
        DbGrid1.Canvas.Brush.Color:=clRed;   file://当前选中单元格显示红色         DbGrid1.Canvas.Pen.Mode:=pmMask;  
   
        DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  
   
  上述两种方法突出了列的显示效果。  
   
    3.在数据网格中以红色突出显示当前选中的行。  
   
    设置DbGrid控件的Options属性中的dgRowSelect属性为真,Color属性为clAqua(背景色),   在DbGrid的DrawColumnCell事件中编写如下代码:  
   
    if   ((State   =   [gdSelected])   or   (State=[gdSelected,gdFocused]))   then  
   
     DbGrid1.Canvas.Brush.color:=clRed;   file://当前行以红色显示,其它行使用背景的浅绿色  
   
     DbGrid1.Canvas.pen.mode:=pmmask;  
   
     DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  
   
    4.行突显的斑马线效果:既突出当前行,又区分不同的列(字段)。  
   
    file://其它属性设置同3,将上述代码修改为:  
   
    if   ((State   =   [gdSelected])   or   (State=[gdSelected,gdFocused]))   then  
   
     begin  
   
      Case   DataCol   Mod   2   =   0   of  
   
       True   :   DbGrid1.Canvas.Brush.color:=clRed;   file://当前选中行的偶数列显示红色  
   
       False:   DbGrid1.Canvas.Brush.color:=clblue;   file://当前选中行的奇数列显示蓝色  
   
      end;  
   
     DbGrid1.Canvas.pen.mode:=pmmask;  
   
     DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  
   
    end;  
   
   
   
    5.横向斑马线,   同时以红色突显当前行效果。    
    file://其它属性设置同3,将上述代码修改为:  
   
    Case   Table1.RecNo   mod   2   =   0   of   file://根据数据集的记录号进行判断  
   
     True   :   DbGrid1.Canvas.Brush.color:=clAqua;   file://偶数行用浅绿色显示  
   
     False:   DbGrid1.Canvas.Brush.color:=clblue;   file://奇数行用蓝色表示  
   
    end;  
   
    if   ((State   =   [gdSelected])   or   (State=[gdSelected,gdFocused]))   then   file://选中行用红色显示  
   
     DbGrid1.Canvas.Brush.color:=clRed;  
   
     DbGrid1.Canvas.pen.mode:=pmMask;  
   
     DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  
   
    6.双向斑马线效果:即行间用不同色区分,同时,选中行以纵向斑马线效果区分不同的列。  
   
    file://其它属性设置同3,将上述代码修改为:  
   
    Case   Table1.RecNo   mod   2   =   0   of   file://根据数据集的记录号进行判断  
   
     True   :   DbGrid1.Canvas.Brush.color:=clAqua;   file://偶数行用浅绿色显示  
   
     False:   DbGrid1.Canvas.Brush.color:=   clblue;   file://奇数行用蓝色表示  
   
    end;  
   
    If   ((State   =   [gdSelected])   or   (State=[gdSelected,gdFocused]))   then  
   
    Case   DataCol   mod   2   =   0   of  
   
     True   :   DbGrid1.Canvas.Brush.color:=clRed;   file://当前选中行的偶数列用红色  
   
     False:   DbGrid1.Canvas.Brush.color:=   clGreen;   file://当前选中行的奇数列用绿色表示  
   
    end;  
   
    DbGrid1.Canvas.pen.mode:=pmMask;  
   
    DbGrid1.DefaultDrawColumnCell   (Rect,   DataCol,   Column,   State);  

你可能感兴趣的:(Delphi)