Changeset 725 for trunk/LocalPlayer/Select.pas

Timestamp:

Jan 13, 2026, 4:01:26 PM (3 hours ago)

Author:

chronos

Message:

• Modified: Initialize InputDlg, MessgDlg and SettingsDlg dialogs dynamically on demand.

File:

• trunk/LocalPlayer/Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Select.pas

@@ -967 +967 @@
 var
   CityNameInfo: TCityNameInfo;
-begin
-  InputDlg.Caption := Phrases.Lookup('TITLE_CITYNAME');
-  InputDlg.EditInput.Text := CityName(MyCity[cix].ID);
-  InputDlg.CenterToRect(BoundsRect);
-  InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and
-    (InputDlg.EditInput.Text <> CityName(MyCity[cix].ID)) then
-  begin
-    CityNameInfo.ID := MyCity[cix].ID;
-    CityNameInfo.NewName := InputDlg.EditInput.Text;
-    if CityNameInfo.GetCommandDataSize > CommandDataMaxSize then
-      Delete(CityNameInfo.NewName, Length(CityNameInfo.NewName) -
-        (CityNameInfo.GetCommandDataSize - 1 - CommandDataMaxSize), MaxInt);
-    Server(CommandWithData(cSetCityName, CityNameInfo.GetCommandDataSize),
-      Me, 0, CityNameInfo);
-    if MainScreen.CityDlg.Visible then
+  InputDlg: TInputDlg;
+begin
+  InputDlg := TInputDlg.Create(nil);
+  try
+    InputDlg.Caption := Phrases.Lookup('TITLE_CITYNAME');
+    InputDlg.EditInput.Text := CityName(MyCity[cix].ID);
+    InputDlg.CenterToRect(BoundsRect);
+    InputDlg.ShowModal;
+    if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and
+      (InputDlg.EditInput.Text <> CityName(MyCity[cix].ID)) then
     begin
-      MainScreen.CityDlg.FormShow(nil);
-      MainScreen.CityDlg.Invalidate;
-    end;
-    Result := True;
-  end
-  else
-    Result := False;
+      CityNameInfo.ID := MyCity[cix].ID;
+      CityNameInfo.NewName := InputDlg.EditInput.Text;
+      if CityNameInfo.GetCommandDataSize > CommandDataMaxSize then
+        Delete(CityNameInfo.NewName, Length(CityNameInfo.NewName) -
+          (CityNameInfo.GetCommandDataSize - 1 - CommandDataMaxSize), MaxInt);
+      Server(CommandWithData(cSetCityName, CityNameInfo.GetCommandDataSize),
+        Me, 0, CityNameInfo);
+      if MainScreen.CityDlg.Visible then
+      begin
+        MainScreen.CityDlg.FormShow(nil);
+        MainScreen.CityDlg.Invalidate;
+      end;
+      Result := True;
+    end else Result := False;
+  finally
+    InputDlg.Free;
+  end;
 end;
 
@@ -996 +1000 @@
 var
   ModelNameInfo: TModelNameInfo;
-begin
-  InputDlg.Caption := Phrases.Lookup('TITLE_MODELNAME');
-  InputDlg.EditInput.Text := Tribe[Me].ModelName[mix];
-  InputDlg.CenterToRect(BoundsRect);
-  InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and
-    (InputDlg.EditInput.Text <> Tribe[Me].ModelName[mix]) then
-  begin
-    ModelNameInfo.mix := mix;
-    ModelNameInfo.NewName := InputDlg.EditInput.Text;
-    if ModelNameInfo.GetCommandDataSize > CommandDataMaxSize then
-      Delete(ModelNameInfo.NewName, Length(ModelNameInfo.NewName) -
-        (ModelNameInfo.GetCommandDataSize - 1 - CommandDataMaxSize), MaxInt);
-    Server(CommandWithData(cSetModelName, ModelNameInfo.GetCommandDataSize),
-      Me, 0, ModelNameInfo);
-    if MainScreen.UnitStatDlg.Visible then
+  InputDlg: TInputDlg;
+begin
+  InputDlg := TInputDlg.Create(nil);
+  try
+    InputDlg.Caption := Phrases.Lookup('TITLE_MODELNAME');
+    InputDlg.EditInput.Text := Tribe[Me].ModelName[mix];
+    InputDlg.CenterToRect(BoundsRect);
+    InputDlg.ShowModal;
+    if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and
+      (InputDlg.EditInput.Text <> Tribe[Me].ModelName[mix]) then
     begin
-      MainScreen.UnitStatDlg.FormShow(nil);
-      MainScreen.UnitStatDlg.Invalidate;
-    end;
-    Result := True;
-  end
-  else
-    Result := False;
+      ModelNameInfo.mix := mix;
+      ModelNameInfo.NewName := InputDlg.EditInput.Text;
+      if ModelNameInfo.GetCommandDataSize > CommandDataMaxSize then
+        Delete(ModelNameInfo.NewName, Length(ModelNameInfo.NewName) -
+          (ModelNameInfo.GetCommandDataSize - 1 - CommandDataMaxSize), MaxInt);
+      Server(CommandWithData(cSetModelName, ModelNameInfo.GetCommandDataSize),
+        Me, 0, ModelNameInfo);
+      if MainScreen.UnitStatDlg.Visible then
+      begin
+        MainScreen.UnitStatDlg.FormShow(nil);
+        MainScreen.UnitStatDlg.Invalidate;
+      end;
+      Result := True;
+    end else Result := False;
+  finally
+    InputDlg.Free;
+  end;
 end;