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

IDE: fixed TrimSearchPath to keep a . path

Browse Source 
git-svn-id: trunk@27366 -
This commit is contained in:
mattias 2010-09-14 16:38:27 +00:00
parent db8fac4fac
commit 96b933cc95
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/compiler_path_options.pas
View File

@ -5,7 +5,7 @@ unit compiler_path_options;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls, LCLType, InterfaceBase, IDEOptionsIntf, Project,
CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf, IDEProcs,
CheckCompilerOpts, MacroIntf, ShowCompilerOpts, MainIntf,

5
ide/ideprocs.pp
View File

@ -1347,7 +1347,10 @@ begin
CurPath:=AppendPathDelim(TrimFilename(CurPath));
if Result<>'' then
CurPath:=';'+CurPath;
Result:=Result+CurPath;
if CurPath<>'' then
Result:=Result+CurPath
else
Result:=Result+'.';
end;
end;
end;