Changeset 732 for trunk/Start.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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;