Changeset 259
- Timestamp:
- Jun 10, 2020, 11:05:46 PM (4 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
- 2 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Integrated.lpi
r189 r259 318 318 </Unit37> 319 319 <Unit38> 320 <Filename Value=" Locale.pas"/>320 <Filename Value="Settings.pas"/> 321 321 <IsPartOfProject Value="True"/> 322 322 <ComponentName Value="LocaleDlg"/> -
trunk/Settings.lfm
r258 r259 1 object LocaleDlg: TLocaleDlg1 object SettingsDlg: TSettingsDlg 2 2 Left = 766 3 3 Height = 448 -
trunk/Settings.pas
r258 r259 1 unit Locale;1 unit Settings; 2 2 3 3 {$mode delphi} … … 24 24 end; 25 25 26 { T LocaleDlg }26 { TSettingsDlg } 27 27 28 T LocaleDlg = class(TDrawDlg)28 TSettingsDlg = class(TDrawDlg) 29 29 ButtonFullscreen: TButtonC; 30 30 List: TListBox; … … 45 45 46 46 var 47 LocaleDlg: TLocaleDlg;47 SettingsDlg: TSettingsDlg; 48 48 49 49 implementation … … 82 82 end; 83 83 84 { T LocaleDlg }84 { TSettingsDlg } 85 85 86 procedure T LocaleDlg.FormCreate(Sender: TObject);86 procedure TSettingsDlg.FormCreate(Sender: TObject); 87 87 begin 88 88 Canvas.Font.Assign(UniFont[ftNormal]); … … 109 109 end; 110 110 111 procedure T LocaleDlg.CancelBtnClick(Sender: TObject);111 procedure TSettingsDlg.CancelBtnClick(Sender: TObject); 112 112 begin 113 113 ModalResult := mrCancel; 114 114 end; 115 115 116 procedure T LocaleDlg.ButtonFullscreenClick(Sender: TObject);116 procedure TSettingsDlg.ButtonFullscreenClick(Sender: TObject); 117 117 begin 118 118 FullScreen := not FullScreen; … … 120 120 end; 121 121 122 procedure T LocaleDlg.FormDestroy(Sender: TObject);122 procedure TSettingsDlg.FormDestroy(Sender: TObject); 123 123 begin 124 124 FreeAndNil(Languages); 125 125 end; 126 126 127 procedure T LocaleDlg.FormPaint(Sender: TObject);127 procedure TSettingsDlg.FormPaint(Sender: TObject); 128 128 var 129 129 S: string; … … 148 148 end; 149 149 150 procedure T LocaleDlg.FormShow(Sender: TObject);150 procedure TSettingsDlg.FormShow(Sender: TObject); 151 151 begin 152 152 Languages.LoadToStrings(List.Items); … … 157 157 end; 158 158 159 procedure T LocaleDlg.OKBtnClick(Sender: TObject);159 procedure TSettingsDlg.OKBtnClick(Sender: TObject); 160 160 begin 161 161 LocaleCode := Languages[List.ItemIndex].ShortName; -
trunk/Start.pas
r245 r259 165 165 166 166 uses 167 Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;167 Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer; 168 168 169 169 {$R *.lfm} … … 1650 1650 maConfig: 1651 1651 begin 1652 LocaleDlg := TLocaleDlg.Create(nil);1653 if LocaleDlg.ShowModal = mrOk then begin1652 SettingsDlg := TSettingsDlg.Create(nil); 1653 if SettingsDlg.ShowModal = mrOk then begin 1654 1654 LoadAssets; 1655 1655 Invalidate; … … 1657 1657 Background.UpdateInterface; 1658 1658 end; 1659 FreeAndNil( LocaleDlg);1659 FreeAndNil(SettingsDlg); 1660 1660 end; 1661 1661 maManual:
Note:
See TracChangeset
for help on using the changeset viewer.