Changeset 189 for trunk/Start.pas

Timestamp:

May 7, 2020, 12:46:55 AM (5 years ago)

Author:

chronos

Message:

• Added: New Global unit with global constants.
• Modified: Multiple occurence of string constants used for subdirectories replaced by functions.

File:

• trunk/Start.pas (modified) (14 diffs)

trunk/Start.pas

@@ -153 +153 @@
       invalidateTab0: boolean = false); overload;
     procedure LoadConfig;
+    procedure SaveConfig;
   end;
 
@@ -162 +163 @@
 
 uses
-  Directories, Direct, ScreenTools, Inp, Back, Locale, PixelPointer;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Locale, PixelPointer;
 
 {$R *.lfm}
 
 const
-  CevoExt = '.cevo';
-  CevoMapExt = '.cevo map';
   // predefined world size
   // attention: lx*ly+1 must be prime!
@@ -467 +466 @@
   DirectDlg.Top := (Screen.Height - DirectDlg.Height) div 2;
 
-  if FullScreen then
-  begin
+  if FullScreen then begin
     Location := Point((Screen.Width - 800) * 3 div 8,
       Screen.Height - Height - (Screen.Height - 600) div 3);
@@ -484 +482 @@
     SetWindowRgn(Handle, r0, False);
     DeleteObject(r0); // causes crash with Windows 95
-  end
-  else
-  begin
+  end else begin
     Left := (Screen.Width - Width) div 2;
     Top := (Screen.Height - Height) div 2;
@@ -599 +595 @@
 procedure TStartDlg.FormDestroy(Sender: TObject);
 begin
+  SaveConfig;
   FreeAndNil(FormerGames);
   FreeAndNil(Maps);
@@ -622 +619 @@
       DeleteObject(r1);
     end;
-  if not invalidateTab0 then
-  begin
+  if not invalidateTab0 then begin
     r1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
     CombineRgn(r0, r0, r1, RGN_DIFF);
@@ -652 +648 @@
         WriteInteger('Diff' + IntToStr(I), 2);
     end;
-    WriteInteger('MultiControl', 0);
 
     OpenKey(AppRegistryKey, True);
+    if ValueExists('Gamma') then Gamma := ReadInteger('Gamma')
+      else Gamma := 100;
+    if Gamma <> 100 then InitGammaLookupTable;
+    if ValueExists('Locale') then LocaleCode := ReadString('Locale')
+      else LocaleCode := '';
     if ValueExists('WorldSize') then WorldSize := Reg.ReadInteger('WorldSize')
       else WorldSize := DefaultWorldSize;
@@ -680 +680 @@
     if ValueExists('ResolutionFreq') then
       ResolutionFreq := ReadInteger('ResolutionFreq');
+    if ValueExists('MultiControl') then
+      MultiControl := ReadInteger('MultiControl')
+      else MultiControl := 0;
     {$IFDEF WINDOWS}
     if ScreenMode = 2 then
@@ -685 +688 @@
         ResolutionFreq);
     {$ENDIF}
+  finally
+    Free;
+  end;
+end;
+
+procedure TStartDlg.SaveConfig;
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.Create;
+  with Reg do try
+    OpenKey(AppRegistryKey, True);
+    WriteInteger('WorldSize', WorldSize);
+    WriteInteger('LandMass', StartLandMass);
+    WriteString('Locale', LocaleCode);
+    WriteInteger('Gamma', Gamma);
+    if FullScreen then WriteInteger('ScreenMode', 1)
+      else WriteInteger('ScreenMode', 0);
+    WriteInteger('MultiControl', MultiControl);
   finally
     Free;
@@ -1163 +1185 @@
           end;
 
-          // save settings and AI assignment
+          // Save settings and AI assignment
           if Page = pgStartRandom then begin
-            WriteInteger('WorldSize', WorldSize);
-            WriteInteger('LandMass', StartLandMass);
-
+            SaveConfig;
             OpenKey(AppRegistryKey + '\AI', True);
             if AutoDiff < 0 then
@@ -1177 +1197 @@
                 WriteInteger('Diff' + IntToStr(I), Difficulty[I]);
               end;
-            WriteInteger('MultiControl', MultiControl);
           end;
 
@@ -1237 +1256 @@
         MapFileName := Format(Phrases.Lookup('MAP'), [MapCount]) + CevoMapExt;
         EditMap(MapFileName, WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass);
-      end
-  end
+      end;
+  end;
 end;
 
@@ -1505 +1524 @@
                       PlayersBrain[p1] := Brains[j];
               end;
-              MultiControl := Reg.ReadInteger('MultiControl');
             finally
               Free;
@@ -1655 +1673 @@
         OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));
       maWeb:
-        OpenURL('http://c-evo.org')
+        OpenURL(CevoHomepage);
     end;
   end