[GExperts-CVS] gexperts/unstable/Src/Utils GX_GxUtils.pas, 1.19, 1.20

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src/Utils
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv19515/Src/Utils

Modified Files:
	GX_GxUtils.pas 
Log Message:
HTML Help (.chm) support instead of .hlp which no longer works on Vista

Index: GX_GxUtils.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/Utils/GX_GxUtils.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- GX_GxUtils.pas	20 Jun 2006 20:03:34 -0000	1.19
+++ GX_GxUtils.pas	1 Apr 2007 03:21:11 -0000	1.20
@@ -13,7 +13,9 @@
 {$I GX_CondDefine.inc}
 
 uses
-  Graphics, Controls;
+  Graphics,
+  {$IFNDEF GX_VER170_up}GXHtmlHelp,{$ENDIF}
+  Controls;
 
 // Returns True if the binary this function is called from
 // has been linked against various packages; at this time,
@@ -126,25 +128,19 @@
 end;
 
 procedure CallWinHelp(const Command, ContextID: Integer; const HelpOwner: TWinControl);
-var
-  ControlHandle: HWND;
 begin
-  if Assigned(HelpOwner) then
-    ControlHandle := HelpOwner.Handle
-  else
-    ControlHandle := 0;
-
-  WinHelp(ControlHandle, PChar(ConfigInfo.HelpFile), Command, ContextID);
+  // The 0 allows the help to drop behind the IDE
+  HtmlHelp(0, PChar(ConfigInfo.HelpFile), Command, ContextID);
 end;
 
 procedure GxContextHelpContents(const HelpOwner: TWinControl);
 begin
-  CallWinHelp(HELP_CONTENTS, 0, HelpOwner);
+  CallWinHelp(HH_DISPLAY_INDEX, 0, HelpOwner);
 end;
 
 procedure GxContextHelp(const HelpOwner: TWinControl; const ContextID: Integer);
 begin
-  CallWinHelp(HELP_CONTEXT, ContextID, HelpOwner);
+  CallWinHelp(HH_HELP_CONTEXT, ContextID, HelpOwner);
 end;
 
 function ComponentPaletteAvailable: Boolean;