Changeset 725 for trunk/LocalPlayer/Help.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/Help.pas (modified) (1 diff)

trunk/LocalPlayer/Help.pas

@@ -2054 +2054 @@
 
 procedure THelpDlg.SearchBtnClick(Sender: TObject);
-begin
-  InputDlg.Caption := Phrases.Lookup('SEARCH');
-  InputDlg.EditInput.Text := SearchContent;
-  InputDlg.CenterToRect(BoundsRect);
-  InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (Length(InputDlg.EditInput.Text) >= 2) then
-  begin
-    Search(InputDlg.EditInput.Text);
-    case SearchResult.Count of
-      0: begin
-        Gtk2Fix;
-        SimpleMessage(Format(HelpText.Lookup('NOMATCHES'),
-          [InputDlg.EditInput.Text]));
-      end;
-      1:
-        with THelpLineInfo(SearchResult.Objects[0]) do
-          ShowNewContent(FWindowMode, Category, Index);
-      else begin
-        NewSearchContent := InputDlg.EditInput.Text;
-        ShowNewContent(FWindowMode, hkMisc, Integer(miscSearchResult));
+var
+  InputDlg: TInputDlg;
+begin
+  InputDlg := TInputDlg.Create(nil);
+  try
+    InputDlg.Caption := Phrases.Lookup('SEARCH');
+    InputDlg.EditInput.Text := SearchContent;
+    InputDlg.CenterToRect(BoundsRect);
+    InputDlg.ShowModal;
+    if (InputDlg.ModalResult = mrOK) and (Length(InputDlg.EditInput.Text) >= 2) then
+    begin
+      Search(InputDlg.EditInput.Text);
+      case SearchResult.Count of
+        0: begin
+          Gtk2Fix;
+          SimpleMessage(Format(HelpText.Lookup('NOMATCHES'),
+            [InputDlg.EditInput.Text]));
+        end;
+        1:
+          with THelpLineInfo(SearchResult.Objects[0]) do
+            ShowNewContent(FWindowMode, Category, Index);
+        else begin
+          NewSearchContent := InputDlg.EditInput.Text;
+          ShowNewContent(FWindowMode, hkMisc, Integer(miscSearchResult));
+        end;
       end;
     end;
+  finally
+    InputDlg.Free;
   end;
 end;