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

IDE: trim TargetDir of IDE

Browse Source 
git-svn-id: trunk@20986 -
This commit is contained in:
mattias 2009-07-28 06:51:33 +00:00
parent 80312b5794
commit 20c21820e4
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/transfermacros.pp
View File

@ -318,7 +318,7 @@ begin
Handled:=false;
Abort:=false;
if MacroName<>'' then begin
if MacroName='PkgPath' then DebugLn(['TTransferMacroList.SubstituteStr MacroStr="',MacroStr,'"']);
//if MacroName='LCLWidgetSet' then DebugLn(['TTransferMacroList.SubstituteStr MacroStr="',MacroStr,'"']);
// Macro function -> substitute macro parameter first
MacroParam:=copy(MacroStr,length(MacroName)+3,
length(MacroStr)-length(MacroName)-3);

2
packager/packagesystem.pas
View File

@ -297,7 +297,7 @@ type
procedure SortAutoInstallDependencies;
function GetIDEInstallPackageOptions(
var InheritedOptionStrings: TInheritedCompOptsStrings): string;
function SaveAutoInstallConfig: TModalResult;
function SaveAutoInstallConfig: TModalResult;// for the uses section
public
// registration
procedure RegisterUnitHandler(const TheUnitName: string;

1
packager/pkgmanager.pas
View File

@ -3791,6 +3791,7 @@ var
begin
TargetDir:=MiscellaneousOptions.BuildLazOpts.TargetDirectory;
IDEMacros.SubstituteMacros(TargetDir);
TargetDir:=TrimFilename(TargetDir);
if not ForceDirectory(TargetDir) then begin
Result:=IDEMessageDialog(lisPkgMangUnableToCreateDirectory,
Format(lisPkgMangUnableToCreateTargetDirectoryForLazarus, [#13, '"',