paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed startlazarus expanding --pcp

Browse Source 
git-svn-id: branches/fixes_2_0@64253 -
This commit is contained in:
mattias 2020-12-20 14:24:47 +00:00
parent 2889401bd2
commit 8a0f57666f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/idecmdline.pas
View File

@ -288,7 +288,9 @@ var
p: string;
begin
Result:=s;
for p in [PrimaryConfPathOptLong,SecondaryConfPathOptLong,LazarusDirOpt] do
for p in [PrimaryConfPathOptLong,PrimaryConfPathOptShort,
SecondaryConfPathOptLong,SecondaryConfPathOptShort,
LazarusDirOpt] do
if LeftStr(Result,length(p))=p then
begin
Result:=LeftStr(Result,length(p))+ExpandFileNameUTF8(copy(Result,length(p)+1,length(Result)));