paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 14:53:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less verbose

Browse Source 
git-svn-id: trunk@64220 -
This commit is contained in:
mattias 2020-12-17 15:58:24 +00:00
parent be50b1d99c
commit 66a905ae85
1 changed files with 6 additions and 2 deletions

8
ide/lazconf.pp
View File

@ -274,9 +274,13 @@ end;
SetPrimaryConfigPath procedure
---------------------------------------------------------------------------}
procedure SetPrimaryConfigPath(const NewValue: String);
var
NewExpValue: String;
begin
debugln('SetPrimaryConfigPath NewValue="',UTF8ToConsole(NewValue),'" -> "',UTF8ToConsole(ExpandFileNameUTF8(NewValue)),'"');
PrimaryConfigPath := ChompPathDelim(ExpandFileNameUTF8(NewValue));
NewExpValue:=ChompPathDelim(ExpandFileNameUTF8(NewValue));
if NewExpValue=PrimaryConfigPath then exit;
debugln('SetPrimaryConfigPath NewValue="',UTF8ToConsole(NewValue),'" -> "',UTF8ToConsole(NewExpValue),'"');
PrimaryConfigPath := NewExpValue;
end;
{---------------------------------------------------------------------------