V
VeryCoolBoy
Unregistered / Unconfirmed
GUEST, unregistred user!
Dev Express的dxDBGrid组件就不用我介绍了吧,想必大家都用过
procedure TShip.wwPGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
begin
inherited;
AColor:=clWindow;
if Focused then exit;
if PDataSet['Stat']=1 then
AColor:=clRed
else AColor:=clYellow;
........
end;
以上的代码在正常情况下运行是没问题的,但一旦进入LoadAllRecord状态后,就稀奇古怪的出错,
怎么办啊?
procedure TShip.wwPGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
begin
inherited;
AColor:=clWindow;
if Focused then exit;
if PDataSet['Stat']=1 then
AColor:=clRed
else AColor:=clYellow;
........
end;
以上的代码在正常情况下运行是没问题的,但一旦进入LoadAllRecord状态后,就稀奇古怪的出错,
怎么办啊?