|
|
@@ -2036,13 +2036,14 @@ procedure TProjectManagerFrame.zgProjectsCellGetColor(Sender: TObject;
|
|
|
var
|
|
|
vItem: TsdIDTreeNode;
|
|
|
value: String;
|
|
|
+ pc: Integer;
|
|
|
begin
|
|
|
if ACoord.X = 11 then
|
|
|
begin
|
|
|
vItem := stdProjects.IDTree.Items[ACoord.Y - zgProjects.FixedRowCount];
|
|
|
value := vItem.Rec.ValueByName('AuditStatus').asString;
|
|
|
-
|
|
|
- if (value = '-1') then
|
|
|
+ pc := vItem.Rec.ValueByName('PhaseCount').AsInteger;
|
|
|
+ if (value = '-1') and (pc <> 0) then
|
|
|
AColor := TColor($00daedd4);
|
|
|
end;
|
|
|
end;
|
