6e6d5a064a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
76 lines
1.8 KiB
ObjectPascal
76 lines
1.8 KiB
ObjectPascal
unit environment_buildscript;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, SynEdit, synhighlighterunixshellscript, Forms,
|
|
Controls, StdCtrls, EditBtn, IDEOptionsIntf, iPhoneExtOptions;
|
|
|
|
type
|
|
|
|
{ TTiPhoneBuildScriptEditor }
|
|
|
|
TTiPhoneBuildScriptEditor = class(TAbstractIDEOptionsEditor)
|
|
lblScriptNote: TLabel;
|
|
scriptFileName: TFileNameEdit;
|
|
lblFileName: TLabel;
|
|
scriptEdit: TSynEdit;
|
|
SynUNIXShellScriptSyn1: TSynUNIXShellScriptSyn;
|
|
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
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TTiPhoneBuildScriptEditor }
|
|
|
|
function TTiPhoneBuildScriptEditor.GetTitle: String;
|
|
begin
|
|
Result:='Xcode Build Script';
|
|
end;
|
|
|
|
class function TTiPhoneBuildScriptEditor.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
|
begin
|
|
Result:=TiPhoneEnvironmentOptions;
|
|
end;
|
|
|
|
procedure TTiPhoneBuildScriptEditor.Setup(ADialog: TAbstractOptionsEditorDialog
|
|
);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TTiPhoneBuildScriptEditor.ReadSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
opt: TiPhoneEnvironmentOptions;
|
|
begin
|
|
if not (AOptions is TiPhoneEnvironmentOptions) then Exit;
|
|
opt:=TiPhoneEnvironmentOptions(AOptions);
|
|
|
|
scriptFileName.FileName:=opt.ScriptTemplate;
|
|
if FileExists(opt.ScriptTemplate) then begin
|
|
scriptEdit.Lines.LoadFromFile(opt.ScriptTemplate)
|
|
end else
|
|
scriptEdit.Text:='';
|
|
end;
|
|
|
|
procedure TTiPhoneBuildScriptEditor.WriteSettings(AOptions: TAbstractIDEOptions
|
|
);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|