paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 09:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: unit info: using StrictDelimiter, bug #18216

Browse Source 
git-svn-id: trunk@28712 -
This commit is contained in:
mattias 2010-12-14 11:50:49 +00:00
parent 30a5fed9f7
commit b10eb0360c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/unitinfodlg.pp
View File

@ -123,12 +123,15 @@ begin
OutIncludedBy.Caption:=IncludedBy; OutIncludedBy.Caption:=IncludedBy;
UnitPathMemo.Lines.Delimiter := ';'; UnitPathMemo.Lines.Delimiter := ';';
UnitPathMemo.Lines.StrictDelimiter := true;
UnitPathMemo.Lines.DelimitedText := MinimizeSearchPath(UnitPath); UnitPathMemo.Lines.DelimitedText := MinimizeSearchPath(UnitPath);
IncludePathMemo.Lines.Delimiter := ';'; IncludePathMemo.Lines.Delimiter := ';';
IncludePathMemo.Lines.StrictDelimiter := true;
IncludePathMemo.Lines.DelimitedText := MinimizeSearchPath(IncludePath); IncludePathMemo.Lines.DelimitedText := MinimizeSearchPath(IncludePath);
SrcPathMemo.Lines.Delimiter := ';'; SrcPathMemo.Lines.Delimiter := ';';
SrcPathMemo.Lines.StrictDelimiter := true;
SrcPathMemo.Lines.DelimitedText := MinimizeSearchPath(SrcPath); SrcPathMemo.Lines.DelimitedText := MinimizeSearchPath(SrcPath);
GotoIncludeDirectiveButton.Visible:=IncludedBy<>''; GotoIncludeDirectiveButton.Visible:=IncludedBy<>'';