paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +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
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, LazConfigStorage, ComCtrls, Buttons, StdCtrls, ExtCtrls, ButtonPanel,
LazHelpIntf, PackageIntf, MacroIntf, IDEOptionsIntf, LazIDEIntf, BaseIDEIntf,
IDEDialogs, HelpIntfs, IDEImagesIntf, SrcEditorIntf;
Dialogs, LazConfigStorage, LazFileUtils, ComCtrls, Buttons, StdCtrls,
ExtCtrls, ButtonPanel, LazHelpIntf, PackageIntf, MacroIntf, IDEOptionsIntf,
LazIDEIntf, BaseIDEIntf, IDEDialogs, HelpIntfs, IDEImagesIntf, SrcEditorIntf;
const
ExternHelpConfigVersion = 1;
@ -661,7 +661,7 @@ begin
if s='' then begin
// ok, allow simple deactivate
end else begin
DoDirSeparators(Filename);
DoPathDelims(Filename);
IDEMacros.SubstituteMacros(Filename);
Msg:='';
if (Filename<>'') and (Filename[length(Filename)]=PathDelim) then begin