paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

externhelp: replaced DoDirSeparators with DoPathDelims

Browse Source 
git-svn-id: trunk@42683 -
This commit is contained in:
mattias 2013-09-08 20:33:08 +00:00
parent 3c9900948e
commit da7315aa27
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/externhelp/externhelpfrm.pas
View File

@ -36,9 +36,9 @@ interface
uses uses
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics, Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, LazConfigStorage, ComCtrls, Buttons, StdCtrls, ExtCtrls, ButtonPanel, Dialogs, LazConfigStorage, LazFileUtils, ComCtrls, Buttons, StdCtrls,
LazHelpIntf, PackageIntf, MacroIntf, IDEOptionsIntf, LazIDEIntf, BaseIDEIntf, ExtCtrls, ButtonPanel, LazHelpIntf, PackageIntf, MacroIntf, IDEOptionsIntf,
IDEDialogs, HelpIntfs, IDEImagesIntf, SrcEditorIntf; LazIDEIntf, BaseIDEIntf, IDEDialogs, HelpIntfs, IDEImagesIntf, SrcEditorIntf;
const const
ExternHelpConfigVersion = 1; ExternHelpConfigVersion = 1;
@ -661,7 +661,7 @@ begin
if s='' then begin if s='' then begin
// ok, allow simple deactivate // ok, allow simple deactivate
end else begin end else begin
DoDirSeparators(Filename); DoPathDelims(Filename);
IDEMacros.SubstituteMacros(Filename); IDEMacros.SubstituteMacros(Filename);
Msg:=''; Msg:='';
if (Filename<>'') and (Filename[length(Filename)]=PathDelim) then begin if (Filename<>'') and (Filename[length(Filename)]=PathDelim) then begin