Changeset 64 for trunk/ScreenTools.pas

Timestamp:

Jan 14, 2017, 12:52:41 AM (7 years ago)

Author:

chronos

Message:

• Added: New configuration dialog for selecting interface language.
• Added: Czech and Deutch language recoded to UTF-8.

File:

• trunk/ScreenTools.pas (modified) (5 diffs)

trunk/ScreenTools.pas

@@ -8 +8 @@
   Windows,
   {$ENDIF}
-  StringTables,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
+  StringTables, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
   Forms, Menus;
 
@@ -116 +115 @@
 procedure PaintLogo(ca: TCanvas; x, y, clLight, clShade: integer);
 function SetMainTextureByAge(Age: integer): boolean;
+procedure LoadPhrases;
 
 const
@@ -1522 +1522 @@
 end;
 
-procedure UnitInit;
-begin
-  Reg := TRegistry.create;
-  try
-    Reg.OpenKey('SOFTWARE\cevo\RegVer9', true);
-    if Reg.ValueExists('Gamma') then
-      Gamma := Reg.ReadInteger('Gamma')
-      else begin
-        Gamma := 100;
-        Reg.WriteInteger('Gamma', Gamma);
-      end;
-  finally
-    Reg.Free;
-  end;
-
-  if Gamma <> 100 then
-  begin
-    GammaLUT[0] := 0;
-    for i := 1 to 255 do
-    begin
-      p := round(255.0 * exp(ln(i / 255.0) * 100.0 / Gamma));
-      assert((p >= 0) and (p < 256));
-      GammaLUT[i] := p;
-    end;
-  end;
-
-  {$IFDEF WINDOWS}
-  EnumDisplaySettings(nil, $FFFFFFFF, StartResolution);
-  {$ENDIF}
-  ResolutionChanged := false;
-
-  Phrases := TStringTable.create;
-  Phrases2 := TStringTable.create;
+procedure LoadPhrases;
+begin
+  if Phrases = nil then Phrases := TStringTable.create;
+  if Phrases2 = nil then Phrases2 := TStringTable.create;
   Phrases2FallenBackToEnglish := false;
-  if FileExists(DataDir + 'Localization' + DirectorySeparator + 'Language.txt') then
-  begin
-    Phrases.loadfromfile(DataDir + 'Localization' + DirectorySeparator + 'Language.txt');
-    if FileExists(DataDir + 'Localization' + DirectorySeparator + 'Language2.txt') then
-      Phrases2.loadfromfile(DataDir + 'Localization' + DirectorySeparator + 'Language2.txt')
+  if FileExists(LocalizedFilePath('Language.txt')) then
+  begin
+    Phrases.loadfromfile(LocalizedFilePath('Language.txt'));
+    if FileExists(LocalizedFilePath('Language2.txt')) then
+      Phrases2.loadfromfile(LocalizedFilePath('Language2.txt'))
     else
     begin
@@ -1573 +1544 @@
   end;
 
-  Sounds := TStringTable.create;
+  if Sounds = nil then Sounds := TStringTable.create;
   if not Sounds.loadfromfile(HomeDir + 'Sounds' + DirectorySeparator + 'sound.txt') then
   begin
-    Sounds.Free;
-    Sounds := nil
-  end;
+    FreeAndNil(Sounds);
+  end;
+end;
+
+procedure UnitInit;
+begin
+  Reg := TRegistry.create;
+  with Reg do
+  try
+    OpenKey('SOFTWARE\cevo\RegVer9', true);
+    if ValueExists('Gamma') then
+      Gamma := ReadInteger('Gamma')
+      else begin
+        Gamma := 100;
+        WriteInteger('Gamma', Gamma);
+      end;
+    if ValueExists('Locale') then LocaleCode := ReadString('Locale')
+      else LocaleCode := '';
+  finally
+    Free;
+  end;
+
+  if Gamma <> 100 then
+  begin
+    GammaLUT[0] := 0;
+    for i := 1 to 255 do
+    begin
+      p := round(255.0 * exp(ln(i / 255.0) * 100.0 / Gamma));
+      assert((p >= 0) and (p < 256));
+      GammaLUT[i] := p;
+    end;
+  end;
+
+  {$IFDEF WINDOWS}
+  EnumDisplaySettings(nil, $FFFFFFFF, StartResolution);
+  {$ENDIF}
+  ResolutionChanged := false;
+
+  LoadPhrases;
 
   for section := Low(TFontType) to High(TFontType) do
@@ -1655 +1662 @@
 
 procedure UnitDone;
-begin
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.create;
+  with Reg do
+  try
+    OpenKey('SOFTWARE\cevo\RegVer9', true);
+    WriteString('Locale', LocaleCode);
+  finally
+    Free;
+  end;
+
   RestoreResolution;
   for i := 0 to nGrExt - 1 do