Changeset 731 for trunk/NoTerm.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/NoTerm.pas (modified) (7 diffs)

trunk/NoTerm.pas

@@ -6 +6 @@
 uses
   ScreenTools, Protocol, Messg, LCLIntf, LCLType, DateUtils, Platform,
-  SysUtils, Classes, ButtonB, DrawDlg,
+  SysUtils, Classes, ButtonB, DrawDlg, Log,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Common, System.UITypes{$ELSE}
   Graphics, Controls, Forms{$ENDIF};
@@ -12 +12 @@
 type
   TRunMode = (rmStop, rmStopped, rmRunning, rmQuit);
+
+  { TNoTermDlg }
 
   TNoTermDlg = class(TDrawDlg)
@@ -20 +22 @@
     procedure FormPaint(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+  private
+    function GetLogDlg: TLogDlg;
   public
     procedure Client(Command, Player: Integer; var Data);
@@ -43 +48 @@
     TimeStat: array [0 .. nPl - 1] of Extended;
     Mode: TRunMode;
+    FLogDlg: TLogDlg;
     procedure NewStat;
     procedure EndPlaying;
     procedure ShowActive(P: Integer; Active: Boolean);
     procedure ShowYear;
+    property LogDlg: TLogDlg read GetLogDlg;
   end;
 
@@ -58 +65 @@
 
 uses
-  GameServer, Log;
+  GameServer;
 
 {$R *.lfm}
@@ -95 +102 @@
   InitButtons;
   LastShowYearTime := 0;
+end;
+
+procedure TNoTermDlg.FormDestroy(Sender: TObject);
+begin
+  if Assigned(FLogDlg) then FreeAndNil(FLogDlg);
 end;
 
@@ -397 +409 @@
 end;
 
+function TNoTermDlg.GetLogDlg: TLogDlg;
+begin
+  if not Assigned(FLogDlg) then FLogDlg := TLogDlg.Create(nil);
+  Result := FLogDlg;
+end;
+
 initialization