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

iphonelazext: fix compilation error for the recent Lazarus TAbstractIDEProjectOptions changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1356 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-10-25 03:14:51 +00:00
parent c800c26ab4
commit ceee4a61cd
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/iphonelazext/ideext.pas
View File

@ -46,7 +46,7 @@ type
function ProjectBuilding(Sender: TObject): TModalResult; function ProjectBuilding(Sender: TObject): TModalResult;
function ProjectOpened(Sender: TObject; AProject: TLazProject): TModalResult; function ProjectOpened(Sender: TObject; AProject: TLazProject): TModalResult;
procedure OnProjOptionsChanged(Sender: TObject); //procedure OnProjOptionsChanged(Sender: TObject; Restore: Boolean);
public public
//isiPhoneMenu :TIDEMenuCommand; //isiPhoneMenu :TIDEMenuCommand;
constructor Create; constructor Create;
@ -241,7 +241,7 @@ begin
inherited Create; inherited Create;
LazarusIDE.AddHandlerOnProjectOpened(@ProjectOpened); LazarusIDE.AddHandlerOnProjectOpened(@ProjectOpened);
LazarusIDE.AddHandlerOnProjectBuilding(@ProjectBuilding); LazarusIDE.AddHandlerOnProjectBuilding(@ProjectBuilding);
ProjOptions.OnAfterWrite:=@OnProjOptionsChanged; //ProjOptions.OnAfterWrite:=@OnProjOptionsChanged;
RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneSeparator', '-', nil, nil); RegisterIDEMenuCommand(itmProjectWindowSection, 'mnuiPhoneSeparator', '-', nil, nil);
@ -330,11 +330,12 @@ begin
end; end;
end; end;
procedure TiPhoneExtension.OnProjOptionsChanged(Sender: TObject); {
procedure TiPhoneExtension.OnProjOptionsChanged(Sender: TObject; Restore: Boolean);
begin begin
//isiPhoneMenu.Checked:=ProjOptions.isIPhoneApp; //isiPhoneMenu.Checked:=ProjOptions.isIPhoneApp;
end; end;
}
procedure TiPhoneExtension.UpdateXcode(Sender: TObject); procedure TiPhoneExtension.UpdateXcode(Sender: TObject);
var var
templates : TStringList; templates : TStringList;