项目管理界面，重命名可用状态刷新调整

Frames/ProjectManagerFme.pas

@@ -1419,21 +1419,23 @@ end;
 procedure TProjectManagerFrame.actnRenameUpdate(Sender: TObject);
 var
   Rec: TsdDataRecord;
-  bNet: Boolean;
+  bNet, bEnabled: Boolean;
 begin
   if Assigned(stdProjects.IDTree.Selected) and Assigned(stdProjects.IDTree.Selected.Rec) then
   begin
-    tobtnRenane.Enabled := True;
+    bEnabled := True;
     Rec := stdProjects.IDTree.Selected.Rec;
     bNet := G_IsCloud;
     if bNet then
     begin
-      tobtnRenane.Enabled := (Rec.ValueByName('Type').AsInteger = 1) and
+      bEnabled := (Rec.ValueByName('Type').AsInteger = 1) and
         (Rec.ValueByName('WebAuthorID').AsInteger = PHPWeb.UserID);
     end;
   end
   else
-    tobtnRenane.Enabled := False;
+    bEnabled := False;
+  if bEnabled <> TAction(Sender).Enabled then
+    TAction(Sender).Enabled := bEnabled;
 end;
 
 procedure TProjectManagerFrame.CheckBidName(AID: Integer; ANewBidName: string);