Changeset 318 for trunk/Core.pas

Timestamp:

Jun 21, 2024, 3:20:20 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Core.pas (modified) (4 diffs)

trunk/Core.pas

@@ -420 +420 @@
   if not Assigned(FormMain.FormPlayersStats) then
     FormMain.FormPlayersStats := TFormPlayersStats.Create(nil);
+  FormMain.FormPlayersStats.OnSpectate := Spectate;
   FormMain.FormPlayersStats.Show;
 end;
@@ -446 +447 @@
   if not Assigned(FormMain.FormCharts) then
     FormMain.FormCharts := TFormCharts.Create(nil);
+  FormMain.FormCharts.Game := Game;
   FormMain.FormCharts.Show;
 end;
@@ -451 +453 @@
 procedure TCore.AShowKeyShortcutsExecute(Sender: TObject);
 begin
-  if not Assigned(FormMain.FormKeyShortcuts) then FormMain.FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
-  FormMain.FormKeyShortcuts.Show;
+  if not Assigned(FormMain.FormKeyShortcuts) then
+    FormMain.FormKeyShortcuts := TFormKeyShortcuts.Create(nil);
+  with FormMain.FormKeyShortcuts do begin
+    SourceComponents.Clear;
+    SourceComponents.Add(Self);
+    SourceComponents.Add(FormMain);
+    Show;
+  end;
 end;
 
@@ -459 +467 @@
   if not Assigned(FormMain.FormUnitMoves) then
     FormMain.FormUnitMoves := TFormUnitMoves.Create(nil);
+  FormMain.FormUnitMoves.Game := Game;
   FormMain.FormUnitMoves.Show;
 end;