paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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 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;