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

iphonelazext: update in Xcode project generation, using pbx files rather than a text template. Updates project options dialog to compare changes and mark project as modified, if necessary

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4404 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2015-12-20 03:54:35 +00:00
parent a8dc2255dc
commit f8f909c0c0
13 changed files with 590 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/iphonelazext/lazfilesutils.pas
View File

@@ -25,7 +25,8 @@ uses
function ResolveProjectPath(const path: string; project: TLazProject = nil): string;
function BreakPathsStringToOption(const Paths, Switch: String; const Quotes: string = '"'; project: TLazProject = nil): String;
function BreakPathsStringToOption(const Paths, Switch: String;
const Quotes: string = '"'; project: TLazProject = nil; AResolvePath: Boolean = false): String;
function RelativeToFullPath(const BasePath, Relative: string): String;
function NeedQuotes(const path: string): Boolean;
@@ -152,7 +153,7 @@ begin
end;
end;
function BreakPathsStringToOption(const Paths, Switch, Quotes: String; project: TLazProject): String;
function BreakPathsStringToOption(const Paths, Switch, Quotes: String; project: TLazProject; AResolvePath: Boolean): String;
var
i, j : Integer;
fixed : String;
@@ -168,7 +169,7 @@ begin
if Paths[i]=';' then begin
fixed:=Trim(Copy(paths,j, i-j) );
if fixed<>'' then begin
fixed:=ResolveProjectPath(fixed, project);
if AResolvePath then fixed:=ResolveProjectPath(fixed, project);
Result:=Result+' ' + Switch + QuoteStrIfNeeded(fixed, quotes);
end;
j:=i+1;
@@ -176,7 +177,7 @@ begin
fixed:=Trim(Copy(paths,j, length(paths)-j+1) );
if fixed<>'' then begin
fixed:=ResolveProjectPath(fixed, project);
if AResolvePath then fixed:=ResolveProjectPath(fixed, project);
Result:=Result+' ' + Switch + QuoteStrIfNeeded(fixed, quotes);
end;
end;