Ignore:
Timestamp:
Dec 4, 2023, 7:18:18 PM (12 months ago)
Author:
chronos
Message:
  • Fixed: More high dpi related fixes.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Nego.pas

    r471 r474  
    741741        begin // choose amount
    742742          InputDlg.Caption := Phrases.Lookup('TITLE_AMOUNT');
    743           InputDlg.EInput.Text := '';
     743          InputDlg.EditInput.Text := '';
    744744          InputDlg.CenterToRect(BoundsRect);
    745745          InputDlg.ShowModal;
    746746          if InputDlg.ModalResult <> mrOK then
    747747            Exit;
    748           val(InputDlg.EInput.Text, A, I);
     748          val(InputDlg.EditInput.Text, A, I);
    749749          if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then
    750750            Exit;
    … …  
    771771          Max := MyRO.Ship[DipMem[Me].pContact].Parts[MainScreen.ModalSelectDlg.Result];
    772772          InputDlg.Caption := Phrases.Lookup('TITLE_NUMBER');
    773           InputDlg.EInput.Text := '';
     773          InputDlg.EditInput.Text := '';
    774774          InputDlg.CenterToRect(BoundsRect);
    775775          InputDlg.ShowModal;
    776776          if InputDlg.ModalResult <> mrOK then
    777777            Exit;
    778           val(InputDlg.EInput.Text, A, I);
     778          val(InputDlg.EditInput.Text, A, I);
    779779          if (I <> 0) or (A <= 0) then
    780780            Exit;
    … …  
    853853        begin // choose amount
    854854          InputDlg.Caption := Phrases.Lookup('TITLE_AMOUNT');
    855           InputDlg.EInput.Text := '';
     855          InputDlg.EditInput.Text := '';
    856856          InputDlg.CenterToRect(BoundsRect);
    857857          InputDlg.ShowModal;
    858858          if InputDlg.ModalResult <> mrOK then
    859859            Exit;
    860           val(InputDlg.EInput.Text, A, I);
     860          val(InputDlg.EditInput.Text, A, I);
    861861          if (I <> 0) or (A <= 0) or (A >= MaxMoneyPrice) then
    862862            Exit;
    … …  
    873873          Max := MyRO.Ship[Me].Parts[MainScreen.ModalSelectDlg.Result];
    874874          InputDlg.Caption := Phrases.Lookup('TITLE_NUMBER');
    875           InputDlg.EInput.Text := '';
     875          InputDlg.EditInput.Text := '';
    876876          InputDlg.CenterToRect(BoundsRect);
    877877          InputDlg.ShowModal;
    878878          if InputDlg.ModalResult <> mrOK then
    879879            Exit;
    880           val(InputDlg.EInput.Text, A, I);
     880          val(InputDlg.EditInput.Text, A, I);
    881881          if (I <> 0) or (A <= 0) then
    882882            Exit;
Note: See TracChangeset for help on using the changeset viewer.