procedure TSJWG2.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 DataGrid.DataSource.DataSet.FieldByName('lszd1').AsString = 'True' then
begin
AColor := $CCFFFF;
end ;