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

* Show .xib resource files in iphone project options.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2623 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_ 2013-01-14 21:42:04 +00:00
parent 0b6368ae7b
commit 91e9adb6c5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/iphonelazext/project_iphone_options.pas
View File

@ -289,10 +289,19 @@ var
path : AnsiString; path : AnsiString;
st : TStringList; st : TStringList;
i : Integer; i : Integer;
AProjectFile: TLazProjectFile;
begin begin
path := ResolveProjectPath(edtResDir.Text); path := ResolveProjectPath(trim(edtResDir.Text));
st:=TStringList.Create; st:=TStringList.Create;
try try
for i := 0 to LazarusIDE.ActiveProject.FileCount-1 do
begin
AProjectFile := LazarusIDE.ActiveProject.Files[i];
if (AProjectFile.IsPartOfProject) and FileExistsUTF8(ChangeFileExt(AProjectFile.filename,'.xib')) then
st.add(AProjectFile.filename);
end;
EnumFilesAtDir(path, '*.xib', st); EnumFilesAtDir(path, '*.xib', st);
nibFilesBox.Clear; nibFilesBox.Clear;
for i:=0 to st.Count-1 do for i:=0 to st.Count-1 do