Changeset 259 for trunk/Settings.pas

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.

File:

• trunk/Settings.pas (moved) (moved from trunk/Locale.pas ) (8 diffs)

trunk/Settings.pas

@@ -1 @@
-unit Locale;
+unit Settings;
 
 {$mode delphi}
@@ -24 +24 @@
   end;
 
-  { TLocaleDlg }
+  { TSettingsDlg }
 
-  TLocaleDlg = class(TDrawDlg)
+  TSettingsDlg = class(TDrawDlg)
     ButtonFullscreen: TButtonC;
     List: TListBox;
@@ -45 +45 @@
 
 var
-  LocaleDlg: TLocaleDlg;
+  SettingsDlg: TSettingsDlg;
 
 implementation
@@ -82 +82 @@
 end;
 
-{ TLocaleDlg }
+{ TSettingsDlg }
 
-procedure TLocaleDlg.FormCreate(Sender: TObject);
+procedure TSettingsDlg.FormCreate(Sender: TObject);
 begin
   Canvas.Font.Assign(UniFont[ftNormal]);
@@ -109 +109 @@
 end;
 
-procedure TLocaleDlg.CancelBtnClick(Sender: TObject);
+procedure TSettingsDlg.CancelBtnClick(Sender: TObject);
 begin
   ModalResult := mrCancel;
 end;
 
-procedure TLocaleDlg.ButtonFullscreenClick(Sender: TObject);
+procedure TSettingsDlg.ButtonFullscreenClick(Sender: TObject);
 begin
   FullScreen := not FullScreen;
@@ -120 +120 @@
 end;
 
-procedure TLocaleDlg.FormDestroy(Sender: TObject);
+procedure TSettingsDlg.FormDestroy(Sender: TObject);
 begin
   FreeAndNil(Languages);
 end;
 
-procedure TLocaleDlg.FormPaint(Sender: TObject);
+procedure TSettingsDlg.FormPaint(Sender: TObject);
 var
   S: string;
@@ -148 +148 @@
 end;
 
-procedure TLocaleDlg.FormShow(Sender: TObject);
+procedure TSettingsDlg.FormShow(Sender: TObject);
 begin
   Languages.LoadToStrings(List.Items);
@@ -157 +157 @@
 end;
 
-procedure TLocaleDlg.OKBtnClick(Sender: TObject);
+procedure TSettingsDlg.OKBtnClick(Sender: TObject);
 begin
   LocaleCode := Languages[List.ItemIndex].ShortName;