Changeset 732

Timestamp:

Jan 17, 2026, 9:21:53 AM (4 hours ago)

Author:

chronos

Message:

• Modified: Background form belongs to Start screen. Changed from global variable to local variable of StartDlg.

Location:

trunk

Files:

• Back.pas (modified) (1 diff)
• Direct.pas (modified) (4 diffs)
• Integrated.lpr (modified) (1 diff)
• Start.pas (modified) (5 diffs)

trunk/Back.pas

@@ -23 +23 @@
     procedure UpdateInterface;
   end;
-
-var
-  Background: TBackground;
 
 

trunk/Direct.pas

@@ -105 +105 @@
     ntEndInfo: begin
       Hide;
-      Background.Update;
+      StartDlg.Background.Update;
     end;
     ntLoadError: begin
@@ -133 +133 @@
       if not Quick then begin
         StartDlg.Hide;
-        Background.Update;
+        StartDlg.Background.Update;
       end;
       if MusicEnabled then begin
@@ -166 +166 @@
       end;
     ntBackOn: begin
-      Background.Show;
-      Background.Update;
+      StartDlg.Background.Show;
+      StartDlg.Background.Update;
       Sleep(50); // prevent flickering
     end;
-    ntBackOff: Background.Close;
+    ntBackOff: StartDlg.Background.Close;
   end;
 end;
@@ -260 +260 @@
   end;
   if not Quick then begin
-    Background.Show;
+    StartDlg.Background.Show;
     StartDlg.Show;
   end;

trunk/Integrated.lpr

@@ -37 +37 @@
   Application.CreateForm(TDirectDlg, DirectDlg);
   Application.CreateForm(TStartDlg, StartDlg);
-  Application.CreateForm(TBackground, Background);
   Application.Run;
   ScreenTools.UnitDone;

trunk/Start.pas

@@ -5 +5 @@
 
 uses
-  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
+  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Back,
   LCLIntf, LCLType, SysUtils, Classes, BaseWin, ListBoxEx, LazFileUtils, Math,
   Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator,
@@ -143 +143 @@
     procedure OffscreenPaint; override;
   public
+    Background: TBackground;
     EmptyPicture: TBitmap;
     Translator: TTranslator;
@@ -156 +157 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, KeyBindings,
+  Global, Directories, Direct, ScreenTools, Inp, Settings, KeyBindings,
   Languages, Music;
 
@@ -224 +225 @@
   AIBrains: TBrains;
 begin
+  Background := TBackground.Create(nil);
+
   TitleHeight := 0;
   PlayerSlots := TPlayerSlots.Create;
@@ -340 +343 @@
   FreeAndNil(PlayerSlots);
   FreeAndNil(MiniMap);
+  FreeAndNil(Background);
 end;