procedure TDD_YXRZJL.DataGrid2CustomDrawCell(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);
var
Id,StrLX,StrGLLXID,StrGLLXBM:string;
begin
if DSBYXRZJL.DataSet.RecordCount>1 then
begin
Id:=DSBYXRZJL.DataSet.FieldByName('INST_ID').AsString;
StrLX:=DSBYXRZJL.DataSet.FieldByName('LX').AsString;
StrGLLXID:=DSBYXRZJL.DataSet.FieldByName('GLLXID').AsString;
StrGLLXBM:=DSBYXRZJL.DataSet.FieldByName('GLLXBM').AsString;
DSBYXRZJL.DataSet.First;
while not DSBYXRZJL.DataSet.Eof do
begin
if ((StrLX=DSBYXRZJL.DataSet.FieldByName('LX').AsString)and(StrGLLXID=DSBYXRZJL.DataSet.FieldByName('GLLXID').AsString)and(StrGLLXBM=DSBYXRZJL.DataSet.FieldByName('GLLXBM').AsString)) or ((StrLX=DSBYXRZJL.DataSet.FieldByName('LX').AsString)and(StrGLLXID=DSBYXRZJL.DataSet.FieldByName('GLLXID').AsString)) then
AFont.Color :=$547C03;
DSBYXRZJL.DataSet.Next;
end;
DSBYXRZJL.DataSet.Locate('INST_ID',[Id],[]);
end;
end; |