110 lines
4.1 KiB
ObjectPascal
110 lines
4.1 KiB
ObjectPascal
{****************************************************************************}
|
|
{ }
|
|
{ Project JEDI Code Library (JCL) }
|
|
{ }
|
|
{ The contents of this file are subject to the Mozilla Public License }
|
|
{ Version 1.1 (the "License"); }
|
|
{ you may not use this file except in compliance with the License. You may }
|
|
{ obtain a copy of the License at http://www.mozilla.org/MPL/ }
|
|
{ }
|
|
{ Software distributed under the License is distributed on an "AS IS" basis, }
|
|
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License }
|
|
{ for the specific language governing rights and limitations under the }
|
|
{ License. }
|
|
{ }
|
|
{ The Original Code is JclOtaExcDlgWizard.pas. }
|
|
{ }
|
|
{ The Initial Developer of the Original Code is Florent Ouchet }
|
|
{ <outchy att users dott sourceforge dott net> }
|
|
{ Portions created by Florent Ouchet are Copyright (C) of Florent Ouchet. }
|
|
{ }
|
|
{ Contributors: }
|
|
{ }
|
|
{****************************************************************************}
|
|
{ }
|
|
{ Last modified: $Date: $ }
|
|
{ }
|
|
{****************************************************************************}
|
|
|
|
unit JclOtaExcDlgWizard;
|
|
|
|
interface
|
|
|
|
{$I jcl.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ActnList, ExtCtrls, StdCtrls,
|
|
JclBorlandTools, JclOtaExcDlgRepository, JclOtaWizardForm;
|
|
|
|
type
|
|
TJclOtaExcDlgForm = class(TJclWizardForm)
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FParams: TJclOtaExcDlgParams;
|
|
public
|
|
constructor Create(AOwner: TComponent;
|
|
AParams: TJclOtaExcDlgParams); reintroduce;
|
|
property Params: TJclOtaExcDlgParams read FParams;
|
|
end;
|
|
|
|
function ExcDlgWizard(var AParams: TJclOtaExcDlgParams): Boolean;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
JclOtaResources,
|
|
JclOtaExcDlgFileFrame, JclOtaExcDlgFormFrame,
|
|
JclOtaExcDlgSystemFrame, JclOtaExcDlgTraceFrame, JclOtaExcDlgIgnoreFrame;
|
|
|
|
function ExcDlgWizard(var AParams: TJclOtaExcDlgParams): Boolean;
|
|
var
|
|
OwnsParams: Boolean;
|
|
AForm: TJclOtaExcDlgForm;
|
|
begin
|
|
Result := False;
|
|
OwnsParams := False;
|
|
|
|
if not Assigned(AParams) then
|
|
begin
|
|
OwnsParams := True;
|
|
AParams := TJclOtaExcDlgParams.Create;
|
|
end;
|
|
try
|
|
AForm := TJclOtaExcDlgForm.Create(Application, AParams);
|
|
try
|
|
Result := AForm.Execute;
|
|
finally
|
|
AForm.Free;
|
|
end;
|
|
finally
|
|
if OwnsParams and not Result then
|
|
FreeAndNil(AParams);
|
|
end;
|
|
end;
|
|
|
|
//=== { TJclOtaExcDlgForm.pas } ==============================================
|
|
|
|
constructor TJclOtaExcDlgForm.Create(AOwner: TComponent;
|
|
AParams: TJclOtaExcDlgParams);
|
|
begin
|
|
FParams := AParams;
|
|
inherited Create(AOwner);
|
|
end;
|
|
|
|
procedure TJclOtaExcDlgForm.FormCreate(Sender: TObject);
|
|
begin
|
|
inherited FormCreate(Sender);
|
|
Caption := RsExceptionDialogConfigure;
|
|
|
|
AddPage(TJclOtaExcDlgFilePage.Create(Self, Params));
|
|
AddPage(TJclOtaExcDlgFormPage.Create(Self, Params));
|
|
AddPage(TJclOtaExcDlgSystemPage.Create(Self, Params));
|
|
AddPage(TJclOtaExcDlgIgnorePage.Create(Self, Params));
|
|
AddPage(TJclOtaExcDlgTracePage.Create(Self, Params));
|
|
end;
|
|
|
|
end.
|