使dbgrid的某几笔资料变色.txt

大量Delphi开发资料

使dbgrid的某几笔资料变色



你可在 DBGrid 元件的 DrawDataCell 事件中

依资料的条件性来改变格子或文字的

颜色.


如 :


OnDrawDataCell(...)

begin

with TDBGrid(Sender) do

begin

if (条件) then

Canvas.TextOut(Rect.Left + 4

Rect.Top + 2

'要显示的文字

如表格的资料');

end;


而你会看到 DBGrid 的显示资料怎麽有重叠的情况

那是因为原本DBGrid

要显示的资料与 TextOut 所显示的资料重叠

解决方法 :


在 Query 元件所加入的栏位(在元件上按右键

会有 Add Fields...的选单)

在

不要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;


procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;

DisplayText: Boolean);

begin

// 决定在 DBGrid 得知表格资料时

要不要显示所得到的资料

False -> 不显示

// 就可避免与 TextOut 的文字重叠了

DisplayText : = False;

end;


end;




如果用 Delphi 3 处理很简单.


例如

对表中某字段当其数值小于0时为红字

其他为黑字.

在 DBGrid.OnDrawColumnCell(...) 中:

begin

if TableField.AsInteger < 0 then

DBGrid.Canvas.Font.Color := clRed

else

DBGrid.Canvas.Font.Color := clBlack;


DBGrid.DefaultDrawColumnCell(...);

end;


这样

对 Field 指定的格式仍旧生效

不必重写.