Changeset 166 for trunk/LocalPlayer/Term.pas

Timestamp:

Jun 14, 2019, 11:16:47 PM (5 years ago)

Author:

chronos

Message:

• Modified: Moved BaseWin unit to CevoPackages as it contains classes which need to be registered design-time class.

File:

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

trunk/LocalPlayer/Term.pas

@@ -3408 +3408 @@
   i, j: integer;
 begin
+  MainFormKeyDown := FormKeyDown;
   BaseWin.CreateOffscreen(Offscreen);
 
@@ -3536 +3537 @@
 procedure TMainScreen.FormDestroy(Sender: TObject);
 var
-  i: integer;
-begin
+  I: Integer;
+begin
+  MainFormKeyDown := nil;
   FreeAndNil(sb);
   FreeAndNil(TopBar);
@@ -3543 +3545 @@
   FreeAndNil(Buffer);
   FreeAndNil(Panel);
-  for i := 0 to nPl - 1 do
+  for I := 0 to nPl - 1 do
     if AILogo[i] <> nil then
-      FreeAndNil(AILogo[i]);
+      FreeAndNil(AILogo[I]);
   FreeAndNil(Offscreen);
 end;