pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fixed compilation with latest Lazarus versions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2619 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-01-11 22:16:58 +00:00
parent c4969596c7
commit ec78bcaa0d
2 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/iphonelazext/ideext.pas
View File

@@ -83,7 +83,7 @@ begin
ext:=ExtractFileExt(Result);
Result:=Copy(Result, 1, length(Result)-length( ext ) );
end;
Project.LongenFilename(Result);
Result := ResolveProjectPath(Result);
end;
{ TiPhoneExtension }
@@ -287,7 +287,7 @@ begin
Result:=false;
//todo: find a better way of getting the file
icofile:=ChangeFileExt(LazarusIDE.ActiveProject.MainFile.Filename, '.ico');
LazarusIDE.ActiveProject.LongenFilename(icofile);
icofile := ResolveProjectPath(icofile);
if not FileExists(icofile) then begin
// no icon. it should be deleted!
DeleteFile(FullName);
@@ -384,8 +384,7 @@ begin
build.Values['FPC_CUSTOM_OPTIONS'] :='"'+opt+'"';
dir:='xcode';
LazarusIDE.ActiveProject.LongenFilename(dir);
dir:=ResolveProjectPath('xcode');
dir:=dir+'/';
name:=ExtractFileName(GetProjectExeName(LazarusIDE.ActiveProject));