dbgrid中的行怎样根据其内容的不同显示不同的背景颜色和字体颜色?(100分)

C

czdd

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TordersForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if orders_listForm.orders_d.fieldbyname('flag').asboolean=true then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
end
end;
这一段只能改变背景颜色,怎样改变字体的颜色呢?
 
用dbgrid1.DefaultDrawColumnCell
 
你已经设置字体颜色了。像楼上说的,丢了一行。
begin
if orders_listForm.orders_d.fieldbyname('flag').asboolean=true then
begin
DBGrid1.Canvas.Brush.Color := clMoneyGreen;
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.FillRect(Rect);
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

 
大喜:谢谢!谢谢![:D]
 
接受答案了.
 
顶部