paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 20:40:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Expand IDE macros in Run->Run parameters->Environment->User override. Issue #23469, patch from Cyrax

Browse Source 
git-svn-id: trunk@39907 -
This commit is contained in:
juha 2013-01-20 09:34:22 +00:00
parent 3ad44aa03c
commit 47446ad440
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/baseideintf.pas
View File

@ -22,7 +22,7 @@ unit BaseIDEIntf;
interface interface
uses uses
Classes, SysUtils, FileUtil, LazConfigStorage, Dialogs; Classes, SysUtils, FileUtil, LazConfigStorage, Dialogs, MacroIntf;
type type
TGetIDEConfigStorage = function(const Filename: string; LoadFromDisk: Boolean TGetIDEConfigStorage = function(const Filename: string; LoadFromDisk: Boolean
@ -73,6 +73,7 @@ begin
for i:=0 to Overrides.Count-1 do begin for i:=0 to Overrides.Count-1 do begin
Variable:=Overrides.Names[i]; Variable:=Overrides.Names[i];
Value:=Overrides.Values[Variable]; Value:=Overrides.Values[Variable];
IDEMacros.SubstituteMacros(Value);
EnvList.Values[Variable]:=Value; EnvList.Values[Variable]:=Value;
end; end;
end; end;