469e43fa0e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1147 8e941d3f-bd1b-0410-a28a-d453659cc2b4
148 lines
4.0 KiB
ObjectPascal
148 lines
4.0 KiB
ObjectPascal
{
|
|
*****************************************************************************
|
|
* *
|
|
* This file is part of the iPhone Laz Extension *
|
|
* *
|
|
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
|
* for details about the copyright. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
*****************************************************************************
|
|
}
|
|
unit project_iphone_options;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls,
|
|
IDEOPtionsIntf, ProjectIntf,
|
|
iPhoneExtStr, iPhoneExtOptions;
|
|
|
|
type
|
|
|
|
{ TiPhoneProjectOptionsEditor }
|
|
|
|
TiPhoneProjectOptionsEditor = class(TAbstractIDEOptionsEditor)
|
|
chkisPhone: TCheckBox;
|
|
cmbSDKs: TComboBox;
|
|
edtResDir: TEdit;
|
|
edtExclude: TEdit;
|
|
edtAppID: TEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
lblAppID: TLabel;
|
|
lblAppIDHint: TLabel;
|
|
lblSDKVer: TLabel;
|
|
procedure cmbSDKsChange(Sender: TObject);
|
|
procedure edtExcludeChange(Sender: TObject);
|
|
procedure FrameClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
fOnChanged : TNotifyEvent;
|
|
procedure DoChanged;
|
|
public
|
|
{ public declarations }
|
|
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
|
function GetTitle: String; override;
|
|
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
|
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
|
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
|
property OnChanged: TNotifyEvent read fOnChanged write fOnChanged;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TiPhoneProjectOptionsEditor }
|
|
|
|
procedure TiPhoneProjectOptionsEditor.cmbSDKsChange(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.edtExcludeChange(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.FrameClick(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.DoChanged;
|
|
begin
|
|
if Assigned(fOnChanged) then fOnChanged(Self);
|
|
end;
|
|
|
|
function TiPhoneProjectOptionsEditor.GetTitle: String;
|
|
begin
|
|
Result:=strPrjOptTitle;
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.Setup(ADialog: TAbstractOptionsEditorDialog);
|
|
begin
|
|
chkisPhone.Caption := strPrjOptIsiPhone;
|
|
lblSDKVer.Caption := strPrjOptSDKver;
|
|
lblAppID.Caption := strPtrOptAppID;
|
|
lblAppIDHint.Caption := strPtrOptAppIDHint;
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.ReadSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
i : Integer;
|
|
begin
|
|
|
|
with TiPhoneProjectOptions(AOptions) do
|
|
begin
|
|
Load;
|
|
chkisPhone.Checked:=isIPhoneApp;
|
|
|
|
EnvOptions.GetSDKVersions(cmbSDKs.Items);
|
|
i:=cmbSDKs.Items.IndexOf(SDK);
|
|
if (i<0) and (cmbSDKs.Items.Count>0) then
|
|
i:=cmbSDKs.Items.IndexOf(EnvOptions.DefaultSDK);
|
|
cmbSDKs.ItemIndex:=i;
|
|
edtAppID.Text:=AppID;
|
|
edtResDir.Text:=ResourceDir;
|
|
edtExclude.Text:=ExcludeMask;
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TiPhoneProjectOptionsEditor.WriteSettings(AOptions: TAbstractIDEOptions);
|
|
begin
|
|
with TiPhoneProjectOptions(AOptions) do
|
|
begin
|
|
isIPhoneApp:=chkisPhone.Checked;
|
|
SDK:=cmbSDKs.Caption;
|
|
AppID:=edtAppID.Text;
|
|
ResourceDir:=edtResDir.Text;
|
|
ExcludeMask:=edtExclude.Text;
|
|
Save;
|
|
DoChanged;
|
|
end;
|
|
end;
|
|
|
|
class function TiPhoneProjectOptionsEditor.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
|
begin
|
|
Result:=TiPhoneProjectOptions;
|
|
end;
|
|
|
|
const
|
|
iPhoneOptions = 1;
|
|
|
|
initialization
|
|
{$I project_iphone_options.lrs}
|
|
RegisterIDEOptionsEditor(iPhonePrjGroup, TiPhoneProjectOptionsEditor, iPhoneOptions);
|
|
|
|
finalization
|
|
|
|
end.
|
|
|