[GExperts-CVS] gexperts/unstable/Src GX_ConfigurationInfo.pas, 1.44, 1.45 GX_Configure.dfm, 1.33, 1.34

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

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

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

Index: GX_ConfigurationInfo.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ConfigurationInfo.pas,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- GX_ConfigurationInfo.pas	23 Mar 2007 08:59:00 -0000	1.44
+++ GX_ConfigurationInfo.pas	1 Apr 2007 03:21:11 -0000	1.45
@@ -426,7 +426,9 @@
   try
     FVclPath := AddSlash(Settings.ReadString(ConfigurationKey, 'VCLPath', FVclPath));
     FConfigPath := AddSlash(Settings.ReadString(ConfigurationKey, 'ConfigPath', FConfigPath));
-    FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FConfigPath + 'GExperts.hlp');
+    FHelpFileLocation := Settings.ReadString(ConfigurationKey, 'HelpFile', FConfigPath + 'GExperts.chm');
+    if SameText(ExtractFileExt(FHelpFileLocation), '.hlp') then
+      FHelpFileLocation := ChangeFileExt(FHelpFileLocation, '.chm');
     FAlphabetizeMenu := Settings.ReadBool(ConfigurationKey, 'AlphabetizeMenu', False);
     FEditorExpertsEnabled := Settings.ReadBool(ConfigurationKey, 'EditorExpertsEnabled', True);
     FPlaceGxMainMenuInToolsMenu := Settings.ReadBool(ConfigurationKey, 'PlaceGxMainMenuInToolsMenu', False);

Index: GX_Configure.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Configure.dfm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- GX_Configure.dfm	23 Mar 2007 08:59:00 -0000	1.33
+++ GX_Configure.dfm	1 Apr 2007 03:21:11 -0000	1.34
@@ -686,7 +686,7 @@
   end
   object dlgHelpFile: TOpenDialog
     DefaultExt = '.hlp'
-    Filter = 'Help Files (*.hlp)|*.hlp'
+    Filter = 'Help Files (*.chm)|*.chm'
     Options = [ofPathMustExist, ofFileMustExist]
     Title = 'Select Help File'
     Left = 358