Changeset 166 for trunk/LocalPlayer

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.

Location:

trunk/LocalPlayer

Files:

• BaseWin.pas (deleted)
• Help.pas (modified) (3 diffs)
• Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Help.pas

@@ -89 +89 @@
     procedure line(ca: TCanvas; i: integer; lit: boolean);
     procedure Prepare(sbPos: integer = 0);
+    procedure ShowNewContentProcExecute(NewMode: Integer; HelpContext: string);
     procedure WaterSign(x0, y0, iix: integer);
     procedure Search(SearchString: string);
@@ -234 +235 @@
   SearchContent := '';
   nHist := -1;
+  ShowNewContentProc := ShowNewContentProcExecute;
+end;
+
+procedure THelpDlg.ShowNewContentProcExecute(NewMode: Integer;
+  HelpContext: string);
+begin
+  HelpDlg.ShowNewContent(NewMode, hkText,
+    HelpDlg.TextIndex(HelpContext))
 end;
 
@@ -243 +252 @@
 procedure THelpDlg.FormDestroy(Sender: TObject);
 begin
+  ShowNewContentProc := nil;
   FreeAndNil(sb);
   FreeAndNil(MainText);

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;