|
@@ -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
|