Changeset 259


Ignore:
Timestamp:
Jun 10, 2020, 11:05:46 PM (4 years ago)
Author:
chronos
Message:
  • Modified: Locale dialog renamed to Settings as it contains and will contain more settings then just locale.
Location:
trunk
Files:
2 edited
2 moved

Legend:

Unmodified
Added
Removed
  • trunk/Integrated.lpi

    r189 r259  
    318318      </Unit37>
    319319      <Unit38>
    320         <Filename Value="Locale.pas"/>
     320        <Filename Value="Settings.pas"/>
    321321        <IsPartOfProject Value="True"/>
    322322        <ComponentName Value="LocaleDlg"/>
  • trunk/Settings.lfm

    r258 r259  
    1 object LocaleDlg: TLocaleDlg
     1object SettingsDlg: TSettingsDlg
    22  Left = 766
    33  Height = 448
  • trunk/Settings.pas

    r258 r259  
    1 unit Locale;
     1unit Settings;
    22
    33{$mode delphi}
     
    2424  end;
    2525
    26   { TLocaleDlg }
     26  { TSettingsDlg }
    2727
    28   TLocaleDlg = class(TDrawDlg)
     28  TSettingsDlg = class(TDrawDlg)
    2929    ButtonFullscreen: TButtonC;
    3030    List: TListBox;
     
    4545
    4646var
    47   LocaleDlg: TLocaleDlg;
     47  SettingsDlg: TSettingsDlg;
    4848
    4949implementation
     
    8282end;
    8383
    84 { TLocaleDlg }
     84{ TSettingsDlg }
    8585
    86 procedure TLocaleDlg.FormCreate(Sender: TObject);
     86procedure TSettingsDlg.FormCreate(Sender: TObject);
    8787begin
    8888  Canvas.Font.Assign(UniFont[ftNormal]);
     
    109109end;
    110110
    111 procedure TLocaleDlg.CancelBtnClick(Sender: TObject);
     111procedure TSettingsDlg.CancelBtnClick(Sender: TObject);
    112112begin
    113113  ModalResult := mrCancel;
    114114end;
    115115
    116 procedure TLocaleDlg.ButtonFullscreenClick(Sender: TObject);
     116procedure TSettingsDlg.ButtonFullscreenClick(Sender: TObject);
    117117begin
    118118  FullScreen := not FullScreen;
     
    120120end;
    121121
    122 procedure TLocaleDlg.FormDestroy(Sender: TObject);
     122procedure TSettingsDlg.FormDestroy(Sender: TObject);
    123123begin
    124124  FreeAndNil(Languages);
    125125end;
    126126
    127 procedure TLocaleDlg.FormPaint(Sender: TObject);
     127procedure TSettingsDlg.FormPaint(Sender: TObject);
    128128var
    129129  S: string;
     
    148148end;
    149149
    150 procedure TLocaleDlg.FormShow(Sender: TObject);
     150procedure TSettingsDlg.FormShow(Sender: TObject);
    151151begin
    152152  Languages.LoadToStrings(List.Items);
     
    157157end;
    158158
    159 procedure TLocaleDlg.OKBtnClick(Sender: TObject);
     159procedure TSettingsDlg.OKBtnClick(Sender: TObject);
    160160begin
    161161  LocaleCode := Languages[List.ItemIndex].ShortName;
  • trunk/Start.pas

    r245 r259  
    165165
    166166uses
    167   Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;
     167  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer;
    168168
    169169{$R *.lfm}
     
    16501650      maConfig:
    16511651        begin
    1652           LocaleDlg := TLocaleDlg.Create(nil);
    1653           if LocaleDlg.ShowModal = mrOk then begin
     1652          SettingsDlg := TSettingsDlg.Create(nil);
     1653          if SettingsDlg.ShowModal = mrOk then begin
    16541654            LoadAssets;
    16551655            Invalidate;
     
    16571657            Background.UpdateInterface;
    16581658          end;
    1659           FreeAndNil(LocaleDlg);
     1659          FreeAndNil(SettingsDlg);
    16601660        end;
    16611661      maManual:
Note: See TracChangeset for help on using the changeset viewer.