paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Scan for .xib-resources (from the iOSDesigner package) and convert them to .nib files

Browse Source 
* When the project is not saved yet, use project1 for the bundle-name

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2626 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_ 2013-01-16 09:49:42 +00:00
parent 71003d8a0c
commit ca8e90efe3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/iphonelazext/ideext.pas
View File

@ -107,14 +107,18 @@ var
Space : WideString;
RealSpace : WideString;
Info : TiPhoneBundleInfo;
AProjectFile: TLazProjectFile;
xiblist : TStringList;
i : Integer;
s : string;
begin
Space:=ProjOptions.SpaceName; // LazarusIDE.ActiveProject.CustomData.;
bundleName:=ExtractFileName(LazarusIDE.ActiveProject.ProjectInfoFile);
bundleName:=Copy(bundleName, 1, length(bundleName)-length(ExtractFileExt(bundleName)));
if bundlename='' then
bundlename:='project1';
nm:=GetProjectExeName(LazarusIDE.ActiveProject);
@ -139,6 +143,15 @@ begin
xiblist := TStringList.Create;
try
// Scan for resource-files in the .xib file-format, which are
// used by the iOSDesigner package
for i := 0 to LazarusIDE.ActiveProject.FileCount-1 do
begin
AProjectFile := LazarusIDE.ActiveProject.Files[i];
s := ChangeFileExt(AProjectFile.filename,'.xib');
if (AProjectFile.IsPartOfProject) and FileExistsUTF8(s) then
xiblist.add(s);
end;
EnumFilesAtDir(ResolveProjectPath(ProjOptions.ResourceDir), '*.xib', xiblist);
for i:=0 to xiblist.Count-1 do begin
dstpath:=IncludeTrailingPathDelimiter(bundlepath)+ChangeFileExt(ExtractFileName(xiblist[i]), '.nib');