|
|
@@ -827,7 +827,7 @@ procedure TProjectManagerFrame.actnRenameExecute(Sender: TObject);
|
|
|
var
|
|
|
sURL: string;
|
|
|
iRename: Integer;
|
|
|
- vArr: array of string;
|
|
|
+ vArr: array [0..0] of string;
|
|
|
begin
|
|
|
Result := True;
|
|
|
if not G_IsCloud then Exit;
|
|
|
@@ -854,7 +854,7 @@ begin
|
|
|
begin
|
|
|
if InputNewProjectName(sName, 'ÖØÃüÃû', stnNode.Parent, stnNode.ID) then
|
|
|
begin
|
|
|
- if CanRename(stnNode.Rec, sName) then
|
|
|
+ if (sName <> stnNode.Rec.ValueByName('Name').AsString) and CanRename(stnNode.Rec, sName) then
|
|
|
begin
|
|
|
stnNode.Rec.ValueByName('Name').AsString := sName;
|
|
|
ProjectManager.Save;
|
