소스 검색

Epure Online, Hidden without Web Author

MaiXinRong 8 년 전
부모
커밋
54410a35fe
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      Frames/ProjectManagerFme.pas

+ 1 - 1
Frames/ProjectManagerFme.pas

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