设置服务器后，刷新云版登陆URL

DataModules/PHPWebDm.pas

@@ -127,7 +127,6 @@ type
     property ServerDateTimeURL: string read FServerDateTimeURL;
     property UserImageURL: string read FUserImageURL write FUserImageURL;
     property LoginCloudURL: string read FLoginCloudURL write FLoginCloudURL;
-
   end;
 
 

Forms/IPFrm.pas

@@ -75,11 +75,13 @@ begin
 
     G_Server := sIP;
     G_CompanyName := sN;
+
     ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Cloud.ini');
     try
       ini.WriteString('URL', 'Server', sIP);
       ini.WriteString('URL', 'CompanyName', sN);
       ini.WriteString('URL', 'LoginCloudURL', 'http://' + sIP);
+      PHPWeb.LoginCloudURL := 'http://' + sIP;
     finally
       ini.Free;
     end;

Frames/ProjectManagerFme.pas

@@ -1725,7 +1725,7 @@ end;
 
 procedure TProjectManagerFrame.actnExportUpdate(Sender: TObject);
 begin
-  TToolButton(Sender).Enabled := Assigned(stdProjects.IDTree.Selected);
+  TAction(Sender).Enabled := Assigned(stdProjects.IDTree.Selected);
 end;
 
 end.