Changeset 474 for trunk/LocalPlayer/Select.pas
- Timestamp:
- Dec 4, 2023, 7:18:18 PM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Select.pas
r473 r474 856 856 begin 857 857 InputDlg.Caption := Phrases.Lookup('TITLE_CITYNAME'); 858 InputDlg.E Input.Text := CityName(MyCity[cix].ID);858 InputDlg.EditInput.Text := CityName(MyCity[cix].ID); 859 859 InputDlg.CenterToRect(BoundsRect); 860 860 InputDlg.ShowModal; 861 if (InputDlg.ModalResult = mrOK) and (InputDlg.E Input.Text <> '') and862 (InputDlg.E Input.Text <> CityName(MyCity[cix].ID)) then861 if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and 862 (InputDlg.EditInput.Text <> CityName(MyCity[cix].ID)) then 863 863 begin 864 864 CityNameInfo.ID := MyCity[cix].ID; 865 CityNameInfo.NewName := InputDlg.E Input.Text;865 CityNameInfo.NewName := InputDlg.EditInput.Text; 866 866 if CityNameInfo.GetCommandDataSize > CommandDataMaxSize then 867 867 Delete(CityNameInfo.NewName, Length(CityNameInfo.NewName) - … … 885 885 begin 886 886 InputDlg.Caption := Phrases.Lookup('TITLE_MODELNAME'); 887 InputDlg.E Input.Text := Tribe[Me].ModelName[mix];887 InputDlg.EditInput.Text := Tribe[Me].ModelName[mix]; 888 888 InputDlg.CenterToRect(BoundsRect); 889 889 InputDlg.ShowModal; 890 if (InputDlg.ModalResult = mrOK) and (InputDlg.E Input.Text <> '') and891 (InputDlg.E Input.Text <> Tribe[Me].ModelName[mix]) then890 if (InputDlg.ModalResult = mrOK) and (InputDlg.EditInput.Text <> '') and 891 (InputDlg.EditInput.Text <> Tribe[Me].ModelName[mix]) then 892 892 begin 893 893 ModelNameInfo.mix := mix; 894 ModelNameInfo.NewName := InputDlg.E Input.Text;894 ModelNameInfo.NewName := InputDlg.EditInput.Text; 895 895 if ModelNameInfo.GetCommandDataSize > CommandDataMaxSize then 896 896 Delete(ModelNameInfo.NewName, Length(ModelNameInfo.NewName) -
Note:
See TracChangeset
for help on using the changeset viewer.