怎么让dbgrid中的某行显示不同的颜色?
解决方案 »
- 求大神给个TSF(Text Service Framework )的例子!
- 如何判断摄像头 是无驱的?
- 如何在DELPHI窗体中显示EXCEL,希望大家都来看一看
- 我用iocp写了个服务器
- 请问字符'0'..'F'如何转换成16进制数?
- 各位高手!!!!小弟有事相求!!!救命啦!!!!!!救命啦!!!!令晚上必须解决不然客户要退货了!!!!!!!站等!!!!!!!!!!站等!!!!!
- delphi的小问题,请帮一下忙!
- 招聘程序员 工资不会很高
- 一个关于动态查询的问题
- 主从表都缓存时insert,delete的问题
- 怎样使Delphi的exe文件不能多重启动?急啊!!
- 用delphi如何实现网络实时 状况监控?
例如canvas。font。color := clBlue;
defaultDraw。
如果急,可以发给你!
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with (Sender as TDBGrid) do
begin
if ((State = [gdSelected]) or (State = [gdSelected, gdFocused])) then
begin
Canvas.Font.Color := clHighlightText;
Canvas.Brush.Color := clHighlight;
end
else
begin
if data.jtyhb.RecNo mod 2 <> 0 then
Canvas.brush.Color := $00DDFC8B
else
Canvas.brush.Color :=clwhite;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State); //这行是关键
end;
end;