如何使dbgrid中不同的值显示不同颜色_Delphi

  • 内容
  • 评论
  • 相关

在DBGrid的OnDrawDataCell事件下写:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if Table1.FieldByName('partno').AsFloat > 2500 then
  DBGrid1.Canvas.Brush.Color := clGreen;
  //DBGrid1.Canvas.Font.Color := clRed;
  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

http://www.gaodaima.com/65663.html如何使dbgrid中不同的值显示不同颜色_Delphi

或(注意是"或")在OnDrawColumnCell下写:

二者的区别是OnDrawDataCell必须是Columns属性为csDefault,既为空。而OnDrawColumnCell没这个要求。

procedure TForm_cost.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with DBGrid1 do
    begin
      if ((State = [gdSelected]) or (State=[gdSelected,gdFocused]))     then
      begin
        Canvas.Font.Color :=clLime;
        Canvas.Brush.Color :=clMaroon;
      end
    else
      if Table1.FieldByName('Salary').AsFloat < 40000 then
begin
canvas.Font.Color := clYellow;
canvas.Font.Style := [fsItalic];
Canvas.brush.Color := clGreen;
end
else
begin
canvas.Font.Color := clNavy;
Canvas.Font.Style := [fsBold];
Canvas.brush.Color := clRed;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
//DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

欢迎大家阅读《如何使dbgrid中不同的值显示不同颜色_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 如何使dbgrid中不同的值显示不同颜色_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注