Changeset 328 for trunk/Forms

Timestamp:

Jul 19, 2024, 8:40:00 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Full screen switching on Windows.
• Fixed: Main form was not visible on Windows task bar.

File:

• trunk/Forms/FormMain.pas (modified) (2 diffs)

trunk/Forms/FormMain.pas

@@ -98 +98 @@
     FormUnitMoves: TFormUnitMoves;
     FormCharts: TFormCharts;
-    FullScreen: Boolean;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
@@ -249 +248 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  if Assigned(FormPlayersStats) then FreeAndNil(FormPlayersStats);
+  if Assigned(FormUnitMoves) then FreeAndNil(FormUnitMoves);
+  if Assigned(FormCharts) then FreeAndNil(FormCharts);
+  if Assigned(FormKeyShortcuts) then FreeAndNil(FormKeyShortcuts);
   FreeAndNil(FormClient);
 end;