Parcourir la source

Epure Online, enable or not by Cloud

MaiXinRong il y a 8 ans
Parent
commit
f8eb472c8c
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      Frames/ProjectManagerFme.pas

+ 1 - 1
Frames/ProjectManagerFme.pas

@@ -2018,7 +2018,7 @@ procedure TProjectManagerFrame.actnEpureUpdate(Sender: TObject);
 
 begin
   TAction(Sender).Visible := G_IsCloud and (not IsGuest) and (stdProjects.IDTree.Selected.Rec.ValueByName('WebAuthorID').AsInteger = PHPWeb.UserID);
-  TAction(Sender).Enabled := (FSignOnlineSwitch = 1) and
+  TAction(Sender).Enabled := (FEpureOnlineSwitch = 1) and
        Assigned(stdProjects.IDTree.Selected) and
       (stdProjects.IDTree.Selected.Rec.ValueByName('Type').AsInteger = 1) and
       HasCompletePhase(stdProjects.IDTree.Selected.Rec);