怎样在dxdbgrid里改变字体颜色! 如题,我想跟据条件改变字体颜色! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DBGrid中用过,dxDBGrid没用过,应该差不多下面的代码可以改变任意单元格的字体、背景颜色procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if (DataCol = 1)and(ADOTable1.FieldByName('UserName').Value = 'Administrator') then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.Brush.Color := clLime; end; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);end;以上代码仅把第一列(从零列开始),第UserName='Administgrator'行的单元格的字体颜色改为红色,背景颜色改为亮绿色 OnCustomDrawCell事件:if //你的条件 then begin AColor:=clBlack;//背景颜色 AFont.Color:=clRed;//字体颜色 end; Anylib 组件,自由界面和报表的完美组合!http://www.anylib.com 想要解决一个问题真难。大家都没用过dxdbgrid吗.用过后请试一下再发出来好吗 UInt64和string之间如何转换? 好久没来了,刚做完一个项目,心情好,散一下分~~~~~ 帮我看一段程序,统计一个目录的大小 ,不知问题在哪里,得到的结果不对,顶者有分!!!!!!!!!!! qreport求救,急用,请大家指教 关于bt下载的一些问题 ADOQUERY和DBEDIT 如何复制网页中的图片 有哪位大侠给传授点经验 以下程序在2000下运行没问题,98下有异常。各位高手帮忙看看 急!高分 FastReport3的分栏问题!跪求高手解急~~~~~~~~~~~~~~ 【高分请教高手关于adoquery的问题】
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (DataCol = 1)and(ADOTable1.FieldByName('UserName').Value = 'Administrator') then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.Brush.Color := clLime;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;以上代码仅把第一列(从零列开始),第UserName='Administgrator'行的单元格的字体颜色改为红色,背景颜色改为亮绿色
begin
AColor:=clBlack;//背景颜色
AFont.Color:=clRed;//字体颜色
end;
http://www.anylib.com