fdb7934092
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1130 8e941d3f-bd1b-0410-a28a-d453659cc2b4
149 lines
4.3 KiB
ObjectPascal
149 lines
4.3 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 environment_iphone_options;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, StdCtrls,
|
|
IDEOptionsIntf, ProjectIntf,
|
|
iPhoneExtOptions;
|
|
|
|
type
|
|
|
|
{ TiPhoneSpecificOptions }
|
|
|
|
TiPhoneSpecificOptions = class(TAbstractIDEOptionsEditor)
|
|
Button1: TButton;
|
|
cmbDefaultSDK: TComboBox;
|
|
edtCompilerPath: TEdit;
|
|
edtRTLPath: TEdit;
|
|
edtCompilerOptions: TEdit;
|
|
edtPlatformsPath: TEdit;
|
|
edtSimBundle: TEdit;
|
|
edtSimApps: TEdit;
|
|
Label1: TLabel;
|
|
lblRTLUtils: TLabel;
|
|
lblSimAppPath: TLabel;
|
|
lblCompilerPath: TLabel;
|
|
lblXCodeProject: TLabel;
|
|
lblCmpOptions: TLabel;
|
|
Label5: TLabel;
|
|
lblSimSettings: TLabel;
|
|
lblSimBundle: TLabel;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure edtCompilerOptionsChange(Sender: TObject);
|
|
procedure lblCmpOptionsClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
function GetTitle: String; override;
|
|
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
|
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
|
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
|
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TiPhoneSpecificOptions }
|
|
|
|
procedure TiPhoneSpecificOptions.lblCmpOptionsClick(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TiPhoneSpecificOptions.Button1Click(Sender: TObject);
|
|
var
|
|
dir : String;
|
|
begin
|
|
dir:=EnvOptions.PlatformsBaseDir;
|
|
EnvOptions.PlatformsBaseDir:=edtPlatformsPath.Text;
|
|
EnvOptions.RefreshVersions;
|
|
|
|
cmbDefaultSDK.Clear;
|
|
EnvOptions.GetSDKVersions(cmbDefaultSDK.Items);
|
|
|
|
EnvOptions.PlatformsBaseDir:=dir;
|
|
EnvOptions.RefreshVersions;
|
|
end;
|
|
|
|
procedure TiPhoneSpecificOptions.edtCompilerOptionsChange(Sender: TObject);
|
|
begin
|
|
|
|
end;
|
|
|
|
function TiPhoneSpecificOptions.GetTitle: String;
|
|
begin
|
|
Result:='Files';
|
|
end;
|
|
|
|
procedure TiPhoneSpecificOptions.Setup(ADialog: TAbstractOptionsEditorDialog);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TiPhoneSpecificOptions.ReadSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
opt : TiPhoneEnvironmentOptions;
|
|
begin
|
|
if not Assigned(AOptions) or not (AOptions is TiPhoneEnvironmentOptions) then Exit;
|
|
opt:=TiPhoneEnvironmentOptions(AOptions);
|
|
opt.Load;
|
|
|
|
edtPlatformsPath.Text := opt.PlatformsBaseDir;
|
|
edtCompilerPath.Text := opt.CompilerPath;
|
|
edtRTLPath.Text := opt.BaseRTLPath;
|
|
edtCompilerOptions.Text := opt.CommonOpt;
|
|
edtSimBundle.Text := opt.SimBundle;
|
|
edtSimApps.Text:= opt.SimAppsPath;
|
|
|
|
cmbDefaultSDK.Items.Clear;
|
|
opt.GetSDKVersions(cmbDefaultSDK.Items);
|
|
cmbDefaultSDK.ItemIndex:=cmbDefaultSDK.Items.IndexOf(opt.DefaultSDK);
|
|
end;
|
|
|
|
procedure TiPhoneSpecificOptions.WriteSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
opt : TiPhoneEnvironmentOptions;
|
|
begin
|
|
if not Assigned(AOPtions) or not (AOptions is TiPhoneEnvironmentOptions) then Exit;
|
|
opt:=TiPhoneEnvironmentOptions(AOptions);
|
|
|
|
opt.PlatformsBaseDir:=edtPlatformsPath.Text;
|
|
opt.CompilerPath:=edtCompilerPath.Text;
|
|
opt.BaseRTLPath:=edtRTLPath.Text;
|
|
opt.CommonOpt:=edtCompilerOptions.Text;
|
|
opt.SimBundle:=edtSimBundle.Text;
|
|
opt.SimAppsPath:=edtSimApps.Text;
|
|
|
|
opt.Save;
|
|
end;
|
|
|
|
class function TiPhoneSpecificOptions.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
|
begin
|
|
Result:=TiPhoneEnvironmentOptions;
|
|
end;
|
|
|
|
initialization
|
|
{$I environment_iphone_options.lrs}
|
|
RegisterIDEOptionsEditor(iPhoneEnvGroup, TiPhoneSpecificOptions, iPhoneEnvGroup+1);
|
|
|
|
end.
|
|
|