paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +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);
var
FileName: String;
aFilename: String;
begin
if dlgOpen.Execute then
begin
for FileName in dlgOpen.Files do
begin
aFilename := Filename;
if not FProject.IsVirtual then
FileName := CreateRelativePath(FileName, FProject.ProjectDirectory);
AddResource(FileName);
aFileName := CreateRelativePath(aFileName, FProject.ProjectDirectory);
AddResource(aFileName);
end;
end;
end;