【结帖】DBGrid行颜色控制问题**

webcrow

procedure TREPORTLIST.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
  if qryData.FieldByName('SCSL').AsString=qryData.FieldByName('RKSL').AsString then
  begin
    AFont.Color:=Graphics.clBlue;
    AColor := $CCFFFF;
  end;
end;

以上代码为什么会出现这种情况，点到符合条件的记录上，整个grid（不管符不符合条件）都变色，执行代码，而点到不符合条件的记录上面也是整个Grid都变色(本来颜色)

lixy

这个grid的数据源是qryData吗？

lixy

必须判断datagrid的数据源的字段值。已经测试了，以下代码没问题。
if DataSetBrokerBZSJJ1.dataset.FieldByName('zd1').AsString=DataSetBrokerBZSJJ1.dataset.FieldByName('zd2').AsString then
  begin
    AFont.Color:=Graphics.clBlue;
    AColor := $CCFFFF;
  end;

webcrow

我这个qryData是一个TQuery控件，通过一个datasource控件和DBGrid连接在一起的
请问这种情况你那里正常吗？

webcrow

我这里用DataSetBroker也是一样的情况
我的版本是2828
而且是GraphicPageControl1中的一个dbgrid
你可不可以测试一下

webcrow

不关GraphicPageControl1的事情
我这里确实就是这样的
你们有没有提供QQ远程协助
看看就知道了

webcrow

我新拖了一个DBGRID，运行正常
我以前用的DBGrid是从其它模块copy过来的
请问是不是有什么设置会导致这种情况

webcrow

请问DBGrid中的什么属性设置会影响OnCustomDrawCell事件正常运行？

lixy

procedure TSJWG1.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
begin
{if DataSetBrokerBZSJJ1.dataset.FieldByName('zd1').AsString=DataSetBrokerBZSJJ1.dataset.FieldByName('zd2').AsString then
  begin
    AFont.Color:=Graphics.clBlue;
    AColor := $CCFFFF;
  end;  }
  if Query1.FieldByName('zd1').AsString=Query1.FieldByName('zd2').AsString then
  begin
    AFont.Color:=Graphics.clBlue;
    AColor := $CCFFFF;
  end;
end;

正常

webcrow

我知道了
是OptionDB下面的edgoLoadAllRecords属性的问题
取消掉就好了
但是不知道取消这个属性有没有其它负作用？