procedure TXT_XinXi_Form.WuZiDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if column.Grid.Fields[5].Value < 5 then
wuzidbgrid.Canvas.Font.Color := clred;
wuzidbgrid.DefaultDrawColumnCell(rect, datacol, column, state);
end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if column.Grid.Fields[5].Value < 5 then
wuzidbgrid.Canvas.Font.Color := clred;
wuzidbgrid.DefaultDrawColumnCell(rect, datacol, column, state);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货