paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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));

17
components/iphonelazext/project_iphone_options.pas
View File

@ -104,8 +104,7 @@ var
tmp : AnsiString;
begin
path:=Trim(edtResDir.Text);
if (path='') or (path[1]<>PathDelim) then // project relative path
LazarusIDE.ActiveProject.LongenFilename(path);
path:=ResolveProjectPath(path);
ForceDirectoriesUTF8(path);
@ -131,7 +130,7 @@ begin
if (newXibForm.Execute(FileName, SrcXib)) and (SrcXib<>'')then begin
ResDir:=edtResDir.Text;
LazarusIDE.ActiveProject.LongenFilename(ResDir);
ResDir := ResolveProjectPath(ResDir);
ForceDirectoriesUTF8(ResDir);
if not CopyFile(SrcXib, ChangeFileExt(IncludeTrailingPathDelimiter(ResDir)+FileName,'.xib')) then
@ -149,7 +148,7 @@ begin
if nibFilesBox.ItemIndex<0 then Exit;
XibName:=edtResDir.Text;
LazarusIDE.ActiveProject.LongenFilename(XibName);
XibName := ResolveProjectPath(XibName);
XibName:=ChangeFileExt(IncludeTrailingPathDelimiter(XibName)+nibFilesBox.Items[nibFilesBox.ItemIndex],'.xib');
if FileExistsUTF8(XibName) then DeleteFileUTF8(XibName);
@ -216,7 +215,7 @@ var
begin
if SelXibFile ='' then Exit;
s:=ChangeFileExt(IncludeTrailingPathDelimiter (edtResDir.Text) + SelXibFile,'.xib');
LazarusIDE.ActiveProject.LongenFilename(s);
s := ResolveProjectPath(s);
DumpClasses(s, pas);
p:=Parent;
@ -232,7 +231,7 @@ var
path : AnsiString;
begin
path:=ChangeFileExt(IncludeTrailingPathDelimiter(edtResDir.Text)+SelXibFile,'.xib');
LazarusIDE.ActiveProject.LongenFilename(path);
path := ResolveProjectPath(path);
ExecCmdLineNoWait('open ' + path);
end;
@ -291,10 +290,9 @@ var
st : TStringList;
i : Integer;
begin
path := edtResDir.Text;
path := ResolveProjectPath(edtResDir.Text);
st:=TStringList.Create;
try
LazarusIDE.ActiveProject.LongenFilename(path);
EnumFilesAtDir(path, '*.xib', st);
nibFilesBox.Clear;
for i:=0 to st.Count-1 do
@ -459,8 +457,7 @@ begin
xibcls.Free;
unitNm:='dump'+ChangeFileExt(ExtractFileName(XibFileName),'');
PascalFileName:=unitNm+'.pas';
LazarusIDE.ActiveProject.LongenFilename(PascalFileName);
PascalFileName:=ResolveProjectPath(unitNm+'.pas');
fs:=TFileStream.Create(PascalFileName, fmCreate);