Changeset 731 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 17, 2026, 9:14:41 AM (8 hours ago)

Author:

chronos

Message:

• Modified: Initialize Log dialog later from Term and NoTerm forms.

File:

• trunk/LocalPlayer/Term.pas (modified) (7 diffs)

trunk/LocalPlayer/Term.pas

@@ -13 +13 @@
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
   LCLIntf, LCLType, Menus, SysUtils, Classes, DrawDlg, Types, Math,
-  DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area, Help,
+  DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area, Help, Log,
   GraphicSet, MiniMap, IsoEngine, Wonders, TechTree, Enhance, Nego, CityType,
   Diagram, CityScreen, Rates, Battle, NatStat, UnitStat, Draft, Select, MessgEx,
@@ -357 +357 @@
     FMessgExDlg: TMessgExDlg;
     FHelpDlg: THelpDlg;
+    FLogDlg: TLogDlg;
     procedure ProcessMessagesWithDisabledKeyboard;
     procedure ResizeControls;
@@ -363 +364 @@
     function ChooseUnusedTribe: Integer;
     function DoJob(j0: Integer): Integer;
+    function GetLogDlg: TLogDlg;
     function GetBattleDlg: TBattleDlg;
     function GetCityDlg: TCityDlg;
@@ -470 +472 @@
     property MessgExDlg: TMessgExDlg read GetMessgExDlg;
     property HelpDlg: THelpDlg read GetHelpDlg;
+    property LogDlg: TLogDlg read GetLogDlg;
   end;
 
@@ -661 +664 @@
 
 uses
-  Directories, Log, Sound, Registry, Global, KeyBindings, CmdList, Music;
+  Directories, Sound, Registry, Global, KeyBindings, CmdList, Music;
 
 {$R *.lfm}
@@ -3642 +3645 @@
   if Assigned(FMessgExDlg) then FreeAndNil(FMessgExDlg);
   if Assigned(FHelpDlg) then FreeAndNil(FHelpDlg);
+  if Assigned(FLogDlg) then FreeAndNil(FLogDlg);
 
   MainFormKeyDown := nil;
@@ -6566 +6570 @@
   end;
   {$ENDIF}
+end;
+
+function TMainScreen.GetLogDlg: TLogDlg;
+begin
+  if not Assigned(FLogDlg) then FLogDlg := TLogDlg.Create(nil);
+  Result := FLogDlg;
 end;