Changeset 259 for trunk

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:

• Integrated.lpi (modified) (1 diff)
• Settings.lfm (moved) (moved from trunk/Locale.lfm ) (1 diff)
• Settings.pas (moved) (moved from trunk/Locale.pas ) (8 diffs)
• Start.pas (modified) (3 diffs)

trunk/Integrated.lpi

@@ -318 +318 @@
       </Unit37>
       <Unit38>
-        <Filename Value="Locale.pas"/>
+        <Filename Value="Settings.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="LocaleDlg"/>

trunk/Settings.lfm

@@ -1 @@
-object LocaleDlg: TLocaleDlg
+object SettingsDlg: TSettingsDlg
   Left = 766
   Height = 448

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;

trunk/Start.pas

@@ -165 +165 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UPixelPointer;
 
 {$R *.lfm}
@@ -1650 +1650 @@
       maConfig:
         begin
-          LocaleDlg := TLocaleDlg.Create(nil);
-          if LocaleDlg.ShowModal = mrOk then begin
+          SettingsDlg := TSettingsDlg.Create(nil);
+          if SettingsDlg.ShowModal = mrOk then begin
             LoadAssets;
             Invalidate;
@@ -1657 +1657 @@
             Background.UpdateInterface;
           end;
-          FreeAndNil(LocaleDlg);
+          FreeAndNil(SettingsDlg);
         end;
       maManual: