paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: THelpDBISourceFile.GetBasePath: more SetDirSeparator

Browse Source 
git-svn-id: trunk@30949 -
This commit is contained in:
mattias 2011-05-28 09:04:17 +00:00
parent 01abf5d4b3
commit acefb49e2f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/lazhelpintf.pas
View File

@ -902,6 +902,7 @@ begin
if (HelpDatabases<>nil) then
HelpDatabases.SubstituteMacros(Result);
end;
Result:=TrimFilename(SetDirSeparators(Result));
end;
{ THelpDatabase }
@ -2398,8 +2399,8 @@ begin
if BasePathObject=nil then
Result:=''
else
Result:=AppendPathDelim(
HelpDatabases.GetBaseDirectoryForBasePathObject(BasePathObject));
Result:=AppendPathDelim(TrimFilename(SetDirSeparators(
HelpDatabases.GetBaseDirectoryForBasePathObject(BasePathObject))));
end;
{ THelpDBISourceDirectory }