From ceee4a61cd90af6806b1473e176deca884ac9b68 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Mon, 25 Oct 2010 03:14:51 +0000 Subject: [PATCH] iphonelazext: fix compilation error for the recent Lazarus TAbstractIDEProjectOptions changes git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1356 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/iphonelazext/ideext.pas | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/components/iphonelazext/ideext.pas b/components/iphonelazext/ideext.pas index 9f1eb291d..38ed153d9 100644 --- a/components/iphonelazext/ideext.pas +++ b/components/iphonelazext/ideext.pas @@ -46,7 +46,7 @@ type function ProjectBuilding(Sender: TObject): TModalResult; function ProjectOpened(Sender: TObject; AProject: TLazProject): TModalResult; - procedure OnProjOptionsChanged(Sender: TObject); + //procedure OnProjOptionsChanged(Sender: TObject; Restore: Boolean); public //isiPhoneMenu :TIDEMenuCommand; constructor Create; @@ -241,7 +241,7 @@ begin inherited Create; LazarusIDE.AddHandlerOnProjectOpened(@ProjectOpened); LazarusIDE.AddHandlerOnProjectBuilding(@ProjectBuilding); - ProjOptions.OnAfterWrite:=@OnProjOptionsChanged; + //ProjOptions.OnAfterWrite:=@OnProjOptionsChanged; RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneSeparator', '-', nil, nil); @@ -330,11 +330,12 @@ begin end; end; -procedure TiPhoneExtension.OnProjOptionsChanged(Sender: TObject); +{ +procedure TiPhoneExtension.OnProjOptionsChanged(Sender: TObject; Restore: Boolean); begin //isiPhoneMenu.Checked:=ProjOptions.isIPhoneApp; end; - +} procedure TiPhoneExtension.UpdateXcode(Sender: TObject); var templates : TStringList;