paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed compilation fpc 2.7.1

Browse Source 
git-svn-id: trunk@43462 -
This commit is contained in:
mattias 2013-11-19 09:09:32 +00:00
parent e3530b497b
commit 97739823e9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/frames/project_resources_options.pas
View File

@ -56,14 +56,16 @@ implementation
procedure TResourcesOptionsFrame.btnAddClick(Sender: TObject); procedure TResourcesOptionsFrame.btnAddClick(Sender: TObject);
var var
FileName: String; FileName: String;
aFilename: String;
begin begin
if dlgOpen.Execute then if dlgOpen.Execute then
begin begin
for FileName in dlgOpen.Files do for FileName in dlgOpen.Files do
begin begin
aFilename := Filename;
if not FProject.IsVirtual then if not FProject.IsVirtual then
FileName := CreateRelativePath(FileName, FProject.ProjectDirectory); aFileName := CreateRelativePath(aFileName, FProject.ProjectDirectory);
AddResource(FileName); AddResource(aFileName);
end; end;
end; end;
end; end;