Changeset 166 for trunk/LocalPlayer/Help.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/Help.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);