请问在grid中让不同的内容显示不同的颜色(100分)

  • 主题发起人 主题发起人 pal008
  • 开始时间 开始时间
P

pal008

Unregistered / Unconfirmed
GUEST, unregistred user!
请问在grid中让不同的内容显示不同的颜色?<br>比如说查询一个学生的成绩,将成绩输出到grid,并且使不及格的科目显示为红色。我用的是StringGrid。<br>请说详细一点,该用哪个控件,具体代码应该是什么样的,谢谢,我是一个新手
 
用dbgrid吧<br>dbgrid的内容连接学生数据库,给你个dbgrid按照不同内容改变颜色的例子<br>color1...colorn代表不同的颜色<br>procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;<br>&nbsp; DataCol: Integer; Column: TColumn; State: TGridDrawState);<br>begin<br>case &nbsp;dbgrid1.DataSource.DataSet.FieldByName('parttag').AsInteger of<br>&nbsp; &nbsp; &nbsp; 1:dbgrid1.Canvas.Brush.Color := color1; &nbsp;//行底色<br>&nbsp; &nbsp; &nbsp; 0:dbgrid1.Canvas.Brush.Color := color2; &nbsp;//行底色<br>&nbsp;else<br>&nbsp; &nbsp; dbgrid1.Canvas.Brush.Color := clWindow; &nbsp;//行底色<br>&nbsp;end;<br><br><br>&nbsp;If gdSelected in State then<br>&nbsp;begin<br>&nbsp; &nbsp;DBGrid1.Canvas.Brush.Color := clGradientActiveCaption;<br>&nbsp; &nbsp;DBGrid1.Canvas.Font.Color := clred;<br>&nbsp;end;<br>&nbsp; &nbsp;DBGrid1.DefaultDrawColumnCell(Rect,DataCol,column,state);<br>end;
 
接受答案了.
 
后退
顶部