请问各位 :如何改变dbgrid里面的字体颜色呢??

Question

比如我是从select a+b+c as o from xxx得到的数据放到dbgrid中.现在我想让a是红色,b是兰色,c是黑色这样的防到dbgrid的一列中.请问这样的效果如何实现呢??不是整个单元格里面的字体颜色,也不是整行的字体颜色,
而是一个单元格里面有3种不同的颜色.谢谢!谢谢大家

Answer 1

Grid1.Canvas.Font.Color := clred;
Grid1.Canvas.Font.Name := '宋体';
Grid1.Canvas.TextOut(Rect.Left,Rect.Top,'红色');
Grid1.Canvas.Font.Color := clGreen ;
Grid1.Canvas.Font.Name := '隶书';
Grid1.Canvas.TextOut(Rect.Left+ StringGrid1.Canvas.TextWidth('红色') ,Rect.Top,'绿色');
Grid1.Canvas.Font.Color := clBlack;
Grid1.Canvas.Font.Name := '楷体_GB2312';
Grid1.Canvas.TextOut(Rect.Left+ StringGrid1.Canvas.TextWidth('红色绿色')  ,Rect.Top,'黑色');

Answer 2

我的意思就如何画,我textout3个是可以变色,但是
还有3个textout,这样如何控制rect.left和rect.top么?

Answer 3

照这个写吧，上面的那个原来用的是StringGrid.没改完整。
Grid1.Canvas.Font.Color := clred;
Grid1.Canvas.Font.Name := '宋体';
Grid1.Canvas.TextOut(Rect.Left,Rect.Top,'红色');
Grid1.Canvas.Font.Color := clGreen ;
Grid1.Canvas.Font.Name := '隶书';
Grid1.Canvas.TextOut(Rect.Left+ Grid1.Canvas.TextWidth('红色') ,Rect.Top,'绿色');
Grid1.Canvas.Font.Color := clBlack;
Grid1.Canvas.Font.Name := '楷体_GB2312';
Grid1.Canvas.TextOut(Rect.Left+ Grid1.Canvas.TextWidth('红色绿色')  ,Rect.Top,'黑色');

Answer 4

利用Rect.left + Grid1.Canvas.textWidth('已经画过的字符串');

Answer 5

示例程序的运行：    
在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var i :integer ;
  begin
 if gdSelected in State then Exit;//定义表头的字体和背景颜色：
 for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
    begin      (Sender as TDBGrid).Columns[i].Title.Font.Name :='宋体'; //字体
     (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小
      (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色)
      (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色)
       end;//隔行改变网格背景色：
        if Query1.RecNo mod 2 = 0 then
          (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色
           else    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色//定义网格线的颜色：
            DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
             with (Sender as TDBGrid).Canvas do //画 cell 的边框
             begin    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
              MoveTo(Rect.Left, Rect.Bottom); //画笔定位
              LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
              Pen.Color := $0000ff00; //定义画笔颜色(绿色)
              MoveTo(Rect.Right, Rect.Top); //画笔定位
              LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
              end;
end;

Answer 6

MoveFirst() ,我明白你的意思了,但是我用的ehlib,用到了单元格换行问题.如何解决
换行a之后,b和c跟在后面?这个时候top是变化的.不是一行啊谢谢

Answer 7

用个变量记录行数，行高就是DBGrid1.Canvas.TextHeight('字符串') * (行数-1)
每次换行Rect.left + DBGrid1.canvas.TextWidth('字符串')，中的字符串清空。这样就可以从左边开始画了。

Answer 8

除此自外可能还要根据画的行数，统计总的行高，来动态设置grid的行高。

Answer 9

找本Delphi编程百例之类的书看看，很多这样的特效例子！可以让你的界面增色不少！

Answer 10

MoveFirst,你好!我按照你的方法,自己画了.
但是:本来数据库数据量就大,有几十万条,而且,分行的时候,工作量太大.
比如,a有3行半,那个剩下的半行在和b拼一起,再比较是否要分行.
如果分行,最后的分行数据在和c比较,是否分行..
如果不分行,在加上c,再判断是否分行.....
最后在分配行高...这样在createFrom的时候,要等上好几分钟才出来数据...太慢了...
这样太慢了...可有好的方法呢?或者有什么控件可以达到这样的效果??stringgrid也可以..呵呵