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

iphonelazext: relocate iphone specific option under 'Project Options'...

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3711 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-09 05:24:35 +00:00
parent 7862b86939
commit 91dcfc5a4a
4 changed files with 7 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/iphonelazext/ideext.pas
View File

@ -48,7 +48,6 @@ type
function ProjectOpened(Sender: TObject; AProject: TLazProject): TModalResult;
//procedure OnProjOptionsChanged(Sender: TObject; Restore: Boolean);
public
//isiPhoneMenu :TIDEMenuCommand;
constructor Create;
procedure UpdateXcode(Sender: TObject);
procedure SimRun(Sender: TObject);
@ -258,9 +257,7 @@ begin
RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneSeparator', '-', nil, nil);
//isiPhoneMenu:=RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneProject', striPhoneProject, @isProjectClicked, nil);
RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneToXCode', strStartAtXCode, @UpdateXCode, nil);
RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneToXCode', strStartAtXcode, @UpdateXcode, nil);
RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneRunSim', strRunSimulator, @SimRun, nil);
end;
@ -284,7 +281,6 @@ function TiPhoneExtension.ProjectOpened(Sender: TObject; AProject: TLazProject):
begin
ProjOptions.Reset;
ProjOptions.Load;
//isiPhoneMenu.Checked:=ProjOptions.isIPhoneApp;
Result:=mrOk;
end;
@ -343,12 +339,6 @@ begin
end;
end;
{
procedure TiPhoneExtension.OnProjOptionsChanged(Sender: TObject; Restore: Boolean);
begin
//isiPhoneMenu.Checked:=ProjOptions.isIPhoneApp;
end;
}
procedure TiPhoneExtension.UpdateXcode(Sender: TObject);
var
templates : TStringList;

2
components/iphonelazext/iphoneextoptions.pas
View File

@ -30,7 +30,7 @@ type
{ TiPhoneProjectOptions }
TiPhoneProjectOptions = class(TAbstractIDEProjectOptions)
TiPhoneProjectOptions = class(TAbstractIDEOptions)
private
fisiPhone : Boolean;
fAppID : String;

2
components/iphonelazext/iphoneextstr.pas
View File

@ -20,7 +20,7 @@ interface
resourcestring
striPhoneProject = 'iPhone Project';
strStartAtXCode = 'Update XCode project';
strStartAtXcode = 'Update Xcode project';
strRunSimulator = 'Run iPhone Simulator';
strPrjOptTitle = 'iPhone specific';

6
components/iphonelazext/project_iphone_options.pas
View File

@ -565,11 +565,13 @@ begin
end;
const
iPhoneOptions = 1;
iPhoneOptions = 10000; //todo: get it dynamically
initialization
{$I project_iphone_options.lrs}
RegisterIDEOptionsEditor(iPhonePrjGroup, TiPhoneProjectOptionsEditor, iPhoneOptions);
writeln('registering iPhone proj editor');
//RegisterIDEOptionsEditor(iPhonePrjGroup, TiPhoneProjectOptionsEditor, iPhoneOptions);
RegisterIDEOptionsEditor(GroupProject, TiPhoneProjectOptionsEditor, iPhoneOptions);
finalization