Changeset 474 for trunk/LocalPlayer

Timestamp:

Dec 4, 2023, 7:18:18 PM (12 months ago)

Author:

chronos

Message:

• Fixed: More high dpi related fixes.

Location:

trunk/LocalPlayer

Files:

• Help.pas (modified) (2 diffs)
• Nego.pas (modified) (4 diffs)
• Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Help.pas

@@ -2044 +2044 @@
 begin
   InputDlg.Caption := Phrases.Lookup('SEARCH');
-  InputDlg.EInput.Text := SearchContent;
+  InputDlg.EditInput.Text := SearchContent;
   InputDlg.CenterToRect(BoundsRect);
   InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (Length(InputDlg.EInput.Text) >= 2) then
-  begin
-    Search(InputDlg.EInput.Text);
+  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.EInput.Text]));
+          [InputDlg.EditInput.Text]));
       end;
       1:
@@ -2060 +2060 @@
           ShowNewContent(FWindowMode, Category, Index);
       else begin
-        NewSearchContent := InputDlg.EInput.Text;
+        NewSearchContent := InputDlg.EditInput.Text;
         ShowNewContent(FWindowMode, hkMisc, Integer(miscSearchResult));
       end;

trunk/LocalPlayer/Nego.pas

@@ -741 +741 @@
         begin // choose amount
           InputDlg.Caption := Phrases.Lookup('TITLE_AMOUNT');
-          InputDlg.EInput.Text := '';
+          InputDlg.EditInput.Text := '';
           InputDlg.CenterToRect(BoundsRect);
           InputDlg.ShowModal;
           if InputDlg.ModalResult <> mrOK then
             Exit;
-          val(InputDlg.EInput.Text, A, I);
+          val(InputDlg.EditInput.Text, A, I);
           if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then
             Exit;
@@ -771 +771 @@
           Max := MyRO.Ship[DipMem[Me].pContact].Parts[MainScreen.ModalSelectDlg.Result];
           InputDlg.Caption := Phrases.Lookup('TITLE_NUMBER');
-          InputDlg.EInput.Text := '';
+          InputDlg.EditInput.Text := '';
           InputDlg.CenterToRect(BoundsRect);
           InputDlg.ShowModal;
           if InputDlg.ModalResult <> mrOK then
             Exit;
-          val(InputDlg.EInput.Text, A, I);
+          val(InputDlg.EditInput.Text, A, I);
           if (I <> 0) or (A <= 0) then
             Exit;
@@ -853 +853 @@
         begin // choose amount
           InputDlg.Caption := Phrases.Lookup('TITLE_AMOUNT');
-          InputDlg.EInput.Text := '';
+          InputDlg.EditInput.Text := '';
           InputDlg.CenterToRect(BoundsRect);
           InputDlg.ShowModal;
           if InputDlg.ModalResult <> mrOK then
             Exit;
-          val(InputDlg.EInput.Text, A, I);
+          val(InputDlg.EditInput.Text, A, I);
           if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then
             Exit;
@@ -873 +873 @@
           Max := MyRO.Ship[Me].Parts[MainScreen.ModalSelectDlg.Result];
           InputDlg.Caption := Phrases.Lookup('TITLE_NUMBER');
-          InputDlg.EInput.Text := '';
+          InputDlg.EditInput.Text := '';
           InputDlg.CenterToRect(BoundsRect);
           InputDlg.ShowModal;
           if InputDlg.ModalResult <> mrOK then
             Exit;
-          val(InputDlg.EInput.Text, A, I);
+          val(InputDlg.EditInput.Text, A, I);
           if (I <> 0) or (A <= 0) then
             Exit;

trunk/LocalPlayer/Select.pas

@@ -856 +856 @@
 begin
   InputDlg.Caption := Phrases.Lookup('TITLE_CITYNAME');
-  InputDlg.EInput.Text := CityName(MyCity[cix].ID);
+  InputDlg.EditInput.Text := CityName(MyCity[cix].ID);
   InputDlg.CenterToRect(BoundsRect);
   InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (InputDlg.EInput.Text <> '') and
-    (InputDlg.EInput.Text <> CityName(MyCity[cix].ID)) then
+  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.EInput.Text;
+    CityNameInfo.NewName := InputDlg.EditInput.Text;
     if CityNameInfo.GetCommandDataSize > CommandDataMaxSize then
       Delete(CityNameInfo.NewName, Length(CityNameInfo.NewName) -
@@ -885 +885 @@
 begin
   InputDlg.Caption := Phrases.Lookup('TITLE_MODELNAME');
-  InputDlg.EInput.Text := Tribe[Me].ModelName[mix];
+  InputDlg.EditInput.Text := Tribe[Me].ModelName[mix];
   InputDlg.CenterToRect(BoundsRect);
   InputDlg.ShowModal;
-  if (InputDlg.ModalResult = mrOK) and (InputDlg.EInput.Text <> '') and
-    (InputDlg.EInput.Text <> Tribe[Me].ModelName[mix]) then
+  if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and
+    (InputDlg.EditInput.Text <> Tribe[Me].ModelName[mix]) then
   begin
     ModelNameInfo.mix := mix;
-    ModelNameInfo.NewName := InputDlg.EInput.Text;
+    ModelNameInfo.NewName := InputDlg.EditInput.Text;
     if ModelNameInfo.GetCommandDataSize > CommandDataMaxSize then
       Delete(ModelNameInfo.NewName, Length(ModelNameInfo.NewName) -