Changeset 64 for trunk/Start.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/Start.pas (modified) (5 diffs)

trunk/Start.pas

@@ -107 +107 @@
 
 uses
-  Directories, Protocol, Direct, ScreenTools, Inp, Back;
+  Directories, Protocol, Direct, ScreenTools, Inp, Back, Locale;
 
 {$R *.lfm}
@@ -249 +249 @@
 
   ActionsOffered := [maManual, maCredits, maWeb];
-  if FileExists(HomeDir + 'Configurator.exe') then
-    Include(ActionsOffered, maConfig);
+  Include(ActionsOffered, maConfig);
   if FileExists(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html') then
     Include(ActionsOffered, maAIDev);
@@ -404 +403 @@
   i: integer;
 begin
-  FormerGames.Free;
-  Maps.Free;
-  Mini.Free;
-  EmptyPicture.Free;
-  LogoBuffer.Free;
+  FreeAndNil(FormerGames);
+  FreeAndNil(Maps);
+  FreeAndNil(Mini);
+  FreeAndNil(EmptyPicture);
+  FreeAndNil(LogoBuffer);
   for i := 0 to nBrain - 1 do
-    BrainPicture[i].Free;
+    FreeAndNil(BrainPicture[i]);
 end;
 
@@ -1565 +1564 @@
       maConfig:
         begin
-           OpenDocument(pchar(HomeDir + 'Configurator.exe'));
-          Close
+          LocaleDlg := TLocaleDlg.Create(nil);
+          if LocaleDlg.ShowModal = mrOk then begin
+            LoadPhrases;
+            Invalidate;
+          end;
+          FreeAndNil(LocaleDlg);
         end;
       maManual:
@@ -1573 +1576 @@
         DirectHelp(cStartCredits);
       maAIDev:
-         OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));
+        OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));
       maWeb:
         OpenURL('http://c-evo.org')