Marco Web Center |
Home: Code Repository: Mastering Delphi 5Project XWEBWIZ
Project StructureXWEBWIZ.DPRlibrary XWebWiz; uses ComServ, XWebWiz_TLB in 'XWebWiz_TLB.pas', XWizF in 'XWizF.pas' {XWizForm: TActiveForm} {XWizForm: CoClass}, WizForm in 'WizForm.pas' {WizardForm}; {$E ocx} exports DllGetClassObject, DllCanUnloadNow, DllRegisterServer, DllUnregisterServer; {$R *.TLB} {$R *.RES} begin end. XWEBWIZ_TLB.PASunit XWebWiz_TLB; // ************************************************************************ // // WARNING // // ------- // // The types declared in this file were generated from data read from a // // Type Library. If this type library is explicitly or indirectly (via // // another type library referring to this type library) re-imported, or the // // 'Refresh' command of the Type Library Editor activated while editing the // // Type Library, the contents of this file will be regenerated and all // // manual modifications will be lost. // // ************************************************************************ // // PASTLWTR : $Revision: 1.11.1.63 $ // File generated on 6/26/98 11:25:31 PM from Type Library described below. // ************************************************************************ // // Type Lib: C:\md4code\Part5\23\XWebWiz\XWebWiz.tlb // IID\LCID: {DB9C324D-0D2A-11D2-B9F1-004845400FAA}\0 // Helpfile: // HelpString: XWebWiz Library // Version: 1.0 // ************************************************************************ // interface uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // // Type Libraries : LIBID_xxxx // // CoClasses : CLASS_xxxx // // DISPInterfaces : DIID_xxxx // // Non-DISP interfaces: IID_xxxx // // *********************************************************************// const LIBID_XWebWiz: TGUID = '{DB9C324D-0D2A-11D2-B9F1-004845400FAA}'; IID_IXWizForm: TGUID = '{DB9C324E-0D2A-11D2-B9F1-004845400FAA}'; DIID_IXWizFormEvents: TGUID = '{DB9C3250-0D2A-11D2-B9F1-004845400FAA}'; CLASS_XWizForm: TGUID = '{DB9C3252-0D2A-11D2-B9F1-004845400FAA}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // // *********************************************************************// // TxActiveFormBorderStyle constants type TxActiveFormBorderStyle = TOleEnum; const afbNone = $00000000; afbSingle = $00000001; afbSunken = $00000002; afbRaised = $00000003; // TxPrintScale constants type TxPrintScale = TOleEnum; const poNone = $00000000; poProportional = $00000001; poPrintToFit = $00000002; // TxMouseButton constants type TxMouseButton = TOleEnum; const mbLeft = $00000000; mbRight = $00000001; mbMiddle = $00000002; // TxBiDiMode constants type TxBiDiMode = TOleEnum; const bdLeftToRight = $00000000; bdRightToLeft = $00000001; bdRightToLeftNoAlign = $00000002; bdRightToLeftReadingOnly = $00000003; type // *********************************************************************// // Forward declaration of interfaces defined in Type Library // // *********************************************************************// IXWizForm = interface; IXWizFormDisp = dispinterface; IXWizFormEvents = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // // (NOTE: Here we map each CoClass to its Default Interface) // // *********************************************************************// XWizForm = IXWizForm; // *********************************************************************// // Interface: IXWizForm // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DB9C324E-0D2A-11D2-B9F1-004845400FAA} // *********************************************************************// IXWizForm = interface(IDispatch) ['{DB9C324E-0D2A-11D2-B9F1-004845400FAA}'] function Get_Visible: WordBool; safecall; procedure Set_Visible(Value: WordBool); safecall; function Get_AutoScroll: WordBool; safecall; procedure Set_AutoScroll(Value: WordBool); safecall; function Get_AutoSize: WordBool; safecall; procedure Set_AutoSize(Value: WordBool); safecall; function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall; procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall; function Get_Caption: WideString; safecall; procedure Set_Caption(const Value: WideString); safecall; function Get_Color: OLE_COLOR; safecall; procedure Set_Color(Value: OLE_COLOR); safecall; function Get_Font: IFontDisp; safecall; procedure _Set_Font(const Value: IFontDisp); safecall; procedure Set_Font(const Value: IFontDisp); safecall; function Get_KeyPreview: WordBool; safecall; procedure Set_KeyPreview(Value: WordBool); safecall; function Get_PixelsPerInch: Integer; safecall; procedure Set_PixelsPerInch(Value: Integer); safecall; function Get_PrintScale: TxPrintScale; safecall; procedure Set_PrintScale(Value: TxPrintScale); safecall; function Get_Scaled: WordBool; safecall; procedure Set_Scaled(Value: WordBool); safecall; function Get_Active: WordBool; safecall; function Get_DropTarget: WordBool; safecall; procedure Set_DropTarget(Value: WordBool); safecall; function Get_HelpFile: WideString; safecall; procedure Set_HelpFile(const Value: WideString); safecall; function Get_DoubleBuffered: WordBool; safecall; procedure Set_DoubleBuffered(Value: WordBool); safecall; function Get_Enabled: WordBool; safecall; procedure Set_Enabled(Value: WordBool); safecall; function Get_BiDiMode: TxBiDiMode; safecall; procedure Set_BiDiMode(Value: TxBiDiMode); safecall; function Get_Cursor: Smallint; safecall; procedure Set_Cursor(Value: Smallint); safecall; property Visible: WordBool read Get_Visible write Set_Visible; property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll; property AutoSize: WordBool read Get_AutoSize write Set_AutoSize; property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle; property Caption: WideString read Get_Caption write Set_Caption; property Color: OLE_COLOR read Get_Color write Set_Color; property Font: IFontDisp read Get_Font write _Set_Font; property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview; property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch; property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale; property Scaled: WordBool read Get_Scaled write Set_Scaled; property Active: WordBool read Get_Active; property DropTarget: WordBool read Get_DropTarget write Set_DropTarget; property HelpFile: WideString read Get_HelpFile write Set_HelpFile; property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered; property Enabled: WordBool read Get_Enabled write Set_Enabled; property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode; property Cursor: Smallint read Get_Cursor write Set_Cursor; end; // *********************************************************************// // DispIntf: IXWizFormDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {DB9C324E-0D2A-11D2-B9F1-004845400FAA} // *********************************************************************// IXWizFormDisp = dispinterface ['{DB9C324E-0D2A-11D2-B9F1-004845400FAA}'] property Visible: WordBool dispid 1; property AutoScroll: WordBool dispid 2; property AutoSize: WordBool dispid 3; property AxBorderStyle: TxActiveFormBorderStyle dispid 4; property Caption: WideString dispid -518; property Color: OLE_COLOR dispid -501; property Font: IFontDisp dispid -512; property KeyPreview: WordBool dispid 5; property PixelsPerInch: Integer dispid 6; property PrintScale: TxPrintScale dispid 7; property Scaled: WordBool dispid 8; property Active: WordBool readonly dispid 9; property DropTarget: WordBool dispid 10; property HelpFile: WideString dispid 11; property DoubleBuffered: WordBool dispid 12; property Enabled: WordBool dispid -514; property BiDiMode: TxBiDiMode dispid 13; property Cursor: Smallint dispid 14; end; // *********************************************************************// // DispIntf: IXWizFormEvents // Flags: (0) // GUID: {DB9C3250-0D2A-11D2-B9F1-004845400FAA} // *********************************************************************// IXWizFormEvents = dispinterface ['{DB9C3250-0D2A-11D2-B9F1-004845400FAA}'] procedure OnActivate; dispid 1; procedure OnClick; dispid 2; procedure OnCreate; dispid 3; procedure OnDblClick; dispid 4; procedure OnDestroy; dispid 5; procedure OnDeactivate; dispid 6; procedure OnKeyPress(var Key: Smallint); dispid 10; procedure OnPaint; dispid 15; end; // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TXWizForm // Help String : XWizForm Control // Default Interface: IXWizForm // Def. Intf. DISP? : No // Event Interface: IXWizFormEvents // TypeFlags : (34) CanCreate Control // *********************************************************************// TXWizFormOnKeyPress = procedure(Sender: TObject; var Key: Smallint) of object; TXWizForm = class(TOleControl) private FOnActivate: TNotifyEvent; FOnClick: TNotifyEvent; FOnCreate: TNotifyEvent; FOnDblClick: TNotifyEvent; FOnDestroy: TNotifyEvent; FOnDeactivate: TNotifyEvent; FOnKeyPress: TXWizFormOnKeyPress; FOnPaint: TNotifyEvent; FIntf: IXWizForm; function GetControlInterface: IXWizForm; protected procedure CreateControl; procedure InitControlData; override; public property ControlInterface: IXWizForm read GetControlInterface; property Visible: WordBool index 1 read GetWordBoolProp write SetWordBoolProp; property Active: WordBool index 9 read GetWordBoolProp; property DropTarget: WordBool index 10 read GetWordBoolProp write SetWordBoolProp; property HelpFile: WideString index 11 read GetWideStringProp write SetWideStringProp; property DoubleBuffered: WordBool index 12 read GetWordBoolProp write SetWordBoolProp; property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp; property BiDiMode: TOleEnum index 13 read GetTOleEnumProp write SetTOleEnumProp; published property AutoScroll: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False; property AutoSize: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False; property AxBorderStyle: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False; property Caption: WideString index -518 read GetWideStringProp write SetWideStringProp stored False; property Color: TColor index -501 read GetTColorProp write SetTColorProp stored False; property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False; property KeyPreview: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False; property PixelsPerInch: Integer index 6 read GetIntegerProp write SetIntegerProp stored False; property PrintScale: TOleEnum index 7 read GetTOleEnumProp write SetTOleEnumProp stored False; property Scaled: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False; property Cursor: Smallint index 14 read GetSmallintProp write SetSmallintProp stored False; property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnClick: TNotifyEvent read FOnClick write FOnClick; property OnCreate: TNotifyEvent read FOnCreate write FOnCreate; property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick; property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnKeyPress: TXWizFormOnKeyPress read FOnKeyPress write FOnKeyPress; property OnPaint: TNotifyEvent read FOnPaint write FOnPaint; end; procedure Register; implementation uses ComObj; procedure TXWizForm.InitControlData; const CEventDispIDs: array [0..7] of DWORD = ( $00000001, $00000002, $00000003, $00000004, $00000005, $00000006, $0000000A, $0000000F); CTFontIDs: array [0..0] of DWORD = ( $FFFFFE00); CControlData: TControlData = ( ClassID: '{DB9C3252-0D2A-11D2-B9F1-004845400FAA}'; EventIID: '{DB9C3250-0D2A-11D2-B9F1-004845400FAA}'; EventCount: 8; EventDispIDs: @CEventDispIDs; LicenseKey: nil; Flags: $0000001D; Version: 300; FontCount: 1; FontIDs: @CTFontIDs); begin ControlData := @CControlData; end; procedure TXWizForm.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as IXWizForm; end; begin if FIntf = nil then DoCreate; end; function TXWizForm.GetControlInterface: IXWizForm; begin CreateControl; Result := FIntf; end; procedure Register; begin RegisterComponents('ActiveX',[TXWizForm]); end; end. XWIZF.PASunit XWizF; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActiveX, AxCtrls, XWebWiz_TLB; type TXWizForm = class(TActiveForm, IXWizForm) procedure FormCreate(Sender: TObject); private { Private declarations } FEvents: IXWizFormEvents; procedure ActivateEvent(Sender: TObject); procedure ClickEvent(Sender: TObject); procedure CreateEvent(Sender: TObject); procedure DblClickEvent(Sender: TObject); procedure DeactivateEvent(Sender: TObject); procedure DestroyEvent(Sender: TObject); procedure KeyPressEvent(Sender: TObject; var Key: Char); procedure PaintEvent(Sender: TObject); protected { Protected declarations } procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override; procedure EventSinkChanged(const EventSink: IUnknown); override; function Get_Active: WordBool; safecall; function Get_AutoScroll: WordBool; safecall; function Get_AutoSize: WordBool; safecall; function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall; function Get_BiDiMode: TxBiDiMode; safecall; function Get_Caption: WideString; safecall; function Get_Color: OLE_COLOR; safecall; function Get_Cursor: Smallint; safecall; function Get_DoubleBuffered: WordBool; safecall; function Get_DropTarget: WordBool; safecall; function Get_Enabled: WordBool; safecall; function Get_Font: IFontDisp; safecall; function Get_HelpFile: WideString; safecall; function Get_KeyPreview: WordBool; safecall; function Get_PixelsPerInch: Integer; safecall; function Get_PrintScale: TxPrintScale; safecall; function Get_Scaled: WordBool; safecall; function Get_Visible: WordBool; safecall; procedure _Set_Font(const Value: IFontDisp); safecall; procedure Set_AutoScroll(Value: WordBool); safecall; procedure Set_AutoSize(Value: WordBool); safecall; procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall; procedure Set_BiDiMode(Value: TxBiDiMode); safecall; procedure Set_Caption(const Value: WideString); safecall; procedure Set_Color(Value: OLE_COLOR); safecall; procedure Set_Cursor(Value: Smallint); safecall; procedure Set_DoubleBuffered(Value: WordBool); safecall; procedure Set_DropTarget(Value: WordBool); safecall; procedure Set_Enabled(Value: WordBool); safecall; procedure Set_Font(const Value: IFontDisp); safecall; procedure Set_HelpFile(const Value: WideString); safecall; procedure Set_KeyPreview(Value: WordBool); safecall; procedure Set_PixelsPerInch(Value: Integer); safecall; procedure Set_PrintScale(Value: TxPrintScale); safecall; procedure Set_Scaled(Value: WordBool); safecall; procedure Set_Visible(Value: WordBool); safecall; public { Public declarations } procedure Initialize; override; end; implementation uses ComObj, ComServ, WizForm; {$R *.DFM} { TXWizForm } procedure TXWizForm.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); begin { Define property pages here. Property pages are defined by calling DefinePropertyPage with the class id of the page. For example, DefinePropertyPage(Class_XWizFormPage); } end; procedure TXWizForm.EventSinkChanged(const EventSink: IUnknown); begin FEvents := EventSink as IXWizFormEvents; end; procedure TXWizForm.Initialize; begin inherited Initialize; OnActivate := ActivateEvent; OnClick := ClickEvent; OnCreate := CreateEvent; OnDblClick := DblClickEvent; OnDeactivate := DeactivateEvent; OnDestroy := DestroyEvent; OnKeyPress := KeyPressEvent; OnPaint := PaintEvent; end; function TXWizForm.Get_Active: WordBool; begin Result := Active; end; function TXWizForm.Get_AutoScroll: WordBool; begin Result := AutoScroll; end; function TXWizForm.Get_AutoSize: WordBool; begin Result := AutoSize; end; function TXWizForm.Get_AxBorderStyle: TxActiveFormBorderStyle; begin Result := Ord(AxBorderStyle); end; function TXWizForm.Get_BiDiMode: TxBiDiMode; begin Result := Ord(BiDiMode); end; function TXWizForm.Get_Caption: WideString; begin Result := WideString(Caption); end; function TXWizForm.Get_Color: OLE_COLOR; begin Result := OLE_COLOR(Color); end; function TXWizForm.Get_Cursor: Smallint; begin Result := Smallint(Cursor); end; function TXWizForm.Get_DoubleBuffered: WordBool; begin Result := DoubleBuffered; end; function TXWizForm.Get_DropTarget: WordBool; begin Result := DropTarget; end; function TXWizForm.Get_Enabled: WordBool; begin Result := Enabled; end; function TXWizForm.Get_Font: IFontDisp; begin GetOleFont(Font, Result); end; function TXWizForm.Get_HelpFile: WideString; begin Result := WideString(HelpFile); end; function TXWizForm.Get_KeyPreview: WordBool; begin Result := KeyPreview; end; function TXWizForm.Get_PixelsPerInch: Integer; begin Result := PixelsPerInch; end; function TXWizForm.Get_PrintScale: TxPrintScale; begin Result := Ord(PrintScale); end; function TXWizForm.Get_Scaled: WordBool; begin Result := Scaled; end; function TXWizForm.Get_Visible: WordBool; begin Result := Visible; end; procedure TXWizForm._Set_Font(const Value: IFontDisp); begin SetOleFont(Font, Value); end; procedure TXWizForm.Set_AutoScroll(Value: WordBool); begin AutoScroll := Value; end; procedure TXWizForm.Set_AutoSize(Value: WordBool); begin AutoSize := Value; end; procedure TXWizForm.Set_AxBorderStyle(Value: TxActiveFormBorderStyle); begin AxBorderStyle := TActiveFormBorderStyle(Value); end; procedure TXWizForm.Set_BiDiMode(Value: TxBiDiMode); begin BiDiMode := TBiDiMode(Value); end; procedure TXWizForm.Set_Caption(const Value: WideString); begin Caption := TCaption(Value); end; procedure TXWizForm.Set_Color(Value: OLE_COLOR); begin Color := TColor(Value); end; procedure TXWizForm.Set_Cursor(Value: Smallint); begin Cursor := TCursor(Value); end; procedure TXWizForm.Set_DoubleBuffered(Value: WordBool); begin DoubleBuffered := Value; end; procedure TXWizForm.Set_DropTarget(Value: WordBool); begin DropTarget := Value; end; procedure TXWizForm.Set_Enabled(Value: WordBool); begin Enabled := Value; end; procedure TXWizForm.Set_Font(const Value: IFontDisp); begin SetOleFont(Font, Value); end; procedure TXWizForm.Set_HelpFile(const Value: WideString); begin HelpFile := String(Value); end; procedure TXWizForm.Set_KeyPreview(Value: WordBool); begin KeyPreview := Value; end; procedure TXWizForm.Set_PixelsPerInch(Value: Integer); begin PixelsPerInch := Value; end; procedure TXWizForm.Set_PrintScale(Value: TxPrintScale); begin PrintScale := TPrintScale(Value); end; procedure TXWizForm.Set_Scaled(Value: WordBool); begin Scaled := Value; end; procedure TXWizForm.Set_Visible(Value: WordBool); begin Visible := Value; end; procedure TXWizForm.ActivateEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnActivate; end; procedure TXWizForm.ClickEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnClick; Beep; end; procedure TXWizForm.CreateEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnCreate; end; procedure TXWizForm.DblClickEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnDblClick; end; procedure TXWizForm.DeactivateEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnDeactivate; end; procedure TXWizForm.DestroyEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnDestroy; end; procedure TXWizForm.KeyPressEvent(Sender: TObject; var Key: Char); var TempKey: Smallint; begin TempKey := Smallint(Key); if FEvents <> nil then FEvents.OnKeyPress(TempKey); Key := Char(TempKey); end; procedure TXWizForm.PaintEvent(Sender: TObject); begin if FEvents <> nil then FEvents.OnPaint; end; procedure TXWizForm.FormCreate(Sender: TObject); begin WizardForm := TWizardForm.Create (Self); WizardForm.Parent := Self; WizardForm.Align := alClient; WizardForm.BorderStyle := bsNone; WizardForm.Show; end; initialization TActiveFormFactory.Create( ComServer, TActiveFormControl, TXWizForm, Class_XWizForm, 1, '', OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL, tmApartment); end. WIZFORM.PASunit WizForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TWizardForm = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; Image1: TImage; btnNext1: TButton; btnNext2: TButton; btnNext3: TButton; btnNext4: TButton; Bevel1: TBevel; Label1: TLabel; CheckInprise: TCheckBox; btnBack: TButton; Label2: TLabel; Label3: TLabel; CheckDone: TCheckBox; Label4: TLabel; Label5: TLabel; CheckDone2: TCheckBox; ListBox1: TListBox; Label6: TLabel; Label7: TLabel; btnNext5: TButton; procedure btnNext1Click(Sender: TObject); procedure btnBackClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure btnNext2Click(Sender: TObject); procedure btnNext3Click(Sender: TObject); procedure btnNext4Click(Sender: TObject); procedure btnNext5Click(Sender: TObject); procedure LabelLinkClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); private BackPages: TList; public procedure MoveTo (TabSheet: TTabSheet); end; var WizardForm: TWizardForm; implementation {$R *.DFM} uses ShellApi; procedure TWizardForm.btnNext1Click(Sender: TObject); begin if CheckInprise.Checked then MoveTo (TabSheet2) else MoveTo (TabSheet3); end; procedure TWizardForm.btnBackClick(Sender: TObject); var LastPage: TTabSheet; begin // get the last page and jump to it LastPage := TTabSheet (BackPages [BackPages.Count - 1]); PageControl1.ActivePage := LastPage; // delete the last page from the list BackPages.Delete (BackPages.Count - 1); // eventually disable the back button BtnBack.Enabled := not (BackPages.Count = 0); // move image and bevel Bevel1.Parent := PageControl1.ActivePage; Image1.Parent := PageControl1.ActivePage; end; procedure TWizardForm.FormCreate(Sender: TObject); begin BackPages := TList.Create; end; procedure TWizardForm.FormDestroy(Sender: TObject); begin BackPages.Free; end; procedure TWizardForm.MoveTo(TabSheet: TTabSheet); begin // add the last page to the list BackPages.Add (PageControl1.ActivePage); BtnBack.Enabled := True; // change page PageControl1.ActivePage := TabSheet; // move image and bevel Bevel1.Parent := PageControl1.ActivePage; Image1.Parent := PageControl1.ActivePage; end; procedure TWizardForm.btnNext2Click(Sender: TObject); begin if CheckDone.Checked then MoveTo (TabSheet5) else MoveTo (TabSheet3); end; procedure TWizardForm.btnNext3Click(Sender: TObject); begin if CheckDone.Checked then MoveTo (TabSheet5) else MoveTo (TabSheet4); end; procedure TWizardForm.btnNext4Click(Sender: TObject); begin MoveTo (TabSheet5); end; procedure TWizardForm.btnNext5Click(Sender: TObject); begin Close; end; procedure TWizardForm.LabelLinkClick(Sender: TObject); var Caption, StrUrl: string; begin Caption := (Sender as TLabel).Caption; StrUrl := Copy (Caption, Pos ('www.', Caption), 100); ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show); end; procedure TWizardForm.ListBox1Click(Sender: TObject); var StrUrl: string; begin StrUrl := ListBox1.Items [ListBox1.ItemIndex]; ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show); end; end. XWIZF.DFMobject XWizForm: TXWizForm Left = 192 Top = 107 Width = 451 Height = 363 Caption = 'XWizForm' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 end WIZFORM.DFMobject WizardForm: TWizardForm Left = 213 Top = 134 Width = 470 Height = 259 Caption = 'WizardUI' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 462 Height = 232 ActivePage = TabSheet1 Align = alClient TabHeight = 1 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'TabSheet1' TabVisible = False object Bevel1: TBevel Left = 8 Top = 32 Width = 175 Height = 153 end object Image1: TImage Left = 16 Top = 40 Width = 153 Height = 139 AutoSize = True Picture.Data = { 07544269746D6170E62B0000424DE62B00000000000076000000280000009900 00008B0000000100040000000000702B00000000000000000000100000000000 000000000000000080000080000000808000800000008000800080800000C0C0 C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF FF00777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777777F0000007777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777F26 2626777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777777F6262627777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777F00 0000777777777777777777877887787878777777774041404044040488888877 7777777777777777777777777777777777777777777777777777777777777777 77777777777777777777777777777FFFFFFF7777777777777778878888788878 878878778777404FF8F8F8405777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777F00 0000777777777777887878777777777877878F88F877040FF8F8888408888777 777777777777777777777777777777777777F777777777777777777777777777 77777777777777777777777777777F0000007777777777878787777777777777 777778778788450FFFFFFFFF487777777777777777777777777B77B7777B797B 7B7B7777777F7777777777777777777777777777777777777777777777777FFF FFFF7777777778F87777777777777777777777777777804F8F8FF8F8F0777777 777777F77B7777B779789798389883889797B7B7777B77B77777777777777777 77777777777777777777777777777FFFF000777777778F877777777777777777 77777777777774088F88FFFFF477777777777777778988983898383893839839 8373797B7B777777BF7777777777777777777777777777777777777777777FFF FFFF77777778787777777777777777777777777777777040FF8F888F87777777 7777779838183188183818813818389838937B7397B7B7B77777777777777777 77777777777777777777777777777FFFFFFF7777778877777777777777777777 7777777777777540FFFFFF8F87877777777B8988183818313181313181312131 3183939B7B897B77B7B7F7777777777777777777777777777777777777777FFF FFFF7777788777777777777777BBBBBBBBBBBBBBB8877704F8F8F8F8F8F87777 779888318181301803121812131813838393373739B7B97B7777B77777777777 77777777777777777777777777777FFFFFFF77777877777777777779BBB87777 777777778BBBBB408FFFFFFFF8F8887773883108121181813181131812131303 13389339B37B8BB7B7B777B77777777777777777777777777777777777777FFF FFFF77777877777777777BBB77777777777777777777774058BFFF8FFFFF8877 89818181181212110121812181318131381339373739B979B7B7B77777777777 77777777777777777777777777777FFFFFFF777787777777777BBB7777777777 77777777777777840F8888F8F8F8F87988812180301181121811213131813183 13393839B9B7B7B7B77777777777777777777777777777777777777777777FFF FFFF7778F877777777BB77777777777777777777777777704F8F88888FF888B8 881811018130108131031112130312138138339338379B8B97BB7B7777777777 77777777777777777777777777777FFFFFFF7777877777777B97777777777777 777777777777777404FF8F888888889891818030101803101031803181318313 13393938B9BB37BB7B7777777777777777777777777777777777777777777F00 0F02777877777777BB77777777777777777777777777777050F8888888888878 883881818121112118103181303131813813383937397B97B77B7B7777777777 77777777777777777777777777777F00000F77788777777BB777777777777777 777777777777777404F88F8888F8897B31011081801180130121112113181318 313893939B8B9B8B97B777777777777777777777777777777777777777777F44 444477787777778B777777777777777777777777777777784188F888D8888889 7B71081138121810311812112131313313393337339B8B7B7B7B777777777777 7777777777777777777777777777774444447778777777B77777777777777777 777777777777777740488888888888888177B108018812118121181318121381 318338939B8B8B9B7B77777777777777777777777777777777777777777777FF FF007778777777B777777777777777777777777777777777041F878888898831 0810B8B1181181821181211213181213833939338B9B9B7379FB777777777777 777777777777777777777777777777000000777877777B877777777777777777 77777777777777784404777778838103010301B8B01218181212118112131313 1318338B93737B9B7B77777777777777777777777777777777777777777777FF FFFF777877777B77777777777777777777777777777777888888888788898181 80101010B37110318181130318131831833393937B9B97B7B7BF777777777777 77777777777777777777777777777FFFFFFF777877777B777777777777777777 7777777777777777777777777778930101080131183371181381213103103913 13938B8339B8B89B7B77777777777777777777777777777777777777777777FF FFFF777878777B77777777777777777777777777777777777777777777777811 2110180121183B8108181801318130383389339B8B8B8BB89777777777777777 777777777777777777777777777777FFFFFF777877777B777777777777777777 77777777777777777777777777777777112110181121283B1108181810313131 31339379B3B9B97BB7B7777777777777777777777777777777777777777777FF FFFF777787778B77777777777777777777777777777777777777777777777777 7771030112111181B81309803112181383938B3B9737B8B97B77777777777777 777777777777777777777777777777FFFFFF777787778B777777777777777777 7777777777777777777777777777777777777112181303012B89121812181318 13839B9739B73B97B777777777777777777777777777777777777777777777FF FFFF77778777BB77777777777777777777777777777777777777777777777777 7777777130108118103B8118181301313313373B7B9B373B77B7777777777777 777777777777777777777777777777FFFFFF777787778B777777777777777777 7777777777777777777777777777777777777777113112121080B73108181303 183939B9B8B97B7B9B7777777777777777777777777777777777777777777706 260F777778777B77777777777777777777777777777777777777777777777777 77777777730301111311017391218131313838379B8B9B97B777777777777777 777777777777777777777777777777000000777778787B777777777777777777 7777777777777777777777777777777777777777711181218010303838180812 18339373B79B8B8B97BF777777777777777777777777777777777777777777FF 000F777778777B77777777777777777777777777777777777777777777777777 77777777712121101318110818B138181318339B8B37B9B8B77B777777777777 777777777777777777777777777777000000777777877B777777777777777777 7777777777777777777777777777777777777777718110318013013103889188 31313839B97B8B7B7B7777777777777777777777777777777777777777777700 0000777777877B77777777777777777777777777777777777777777777777777 77777777701218121130130131338B118181313373B9B79B97B7777777777777 77777777777777777777777777777F77FFFF7777777878B77777777777777777 77777777777777777777777777777777777777777313108103013183183898B7 38398318397373B7B7B7777777777777777777777777777777777777777777FF FFFF7777777877B7777777777777777777777777777777777777777777777777 7777777771010311811383939393338379883933139B9B79B777777777777777 777777777777777777777777777777FFFFFF7777777877B77777777777777777 7777777777777777777777777777777777777777718131031381331338318393 8B93889383337B37B7B7F77777777777777777777777777777777777777777FF FFFF7777777787B8777777777777777777777777777777777777777777777777 77777777731810812133138313133138378983839389397B9B7B777777777777 777777777777777777777777777777FFFFFF77777777878B7777777777777777 7777777777777777777777777777777777777777773013131318131213381313 138B89883933373B7977777777777777777777777777777777777777777777FF FFFF7777777778FB777777777777777777777777777777777777777777777777 777777777711213181213013181138393938B898383939B83B7B777777777777 777777777777777777777777777777FFFFFF77777777778BB777777777777777 7777777777777777777777777777777777777777770318131311818112131383 383938B98983833587B7404404087777777777777777777777777777777777FF FFFF77777777778FB77777777777777777777777777777777777777777777777 777777777711318030121030313839B9B93B8373738939B8B04014007F740777 777777777777777777777777777777FFFFFF77777777778FB877777777777777 777777777777777777777777777777777777777777380311818113118139B7B7 B7B9393789B838937B4877FF7F7FF4778777777777777777777777777777770F FFFF777777777778FB7777777777777777777777777777777777777777777777 7777777777713103010301831BB77B77B97B8B93378973B939B477FFFFF8F878 787777777777777777777777777777F000007777777777778B87777777777777 77777777777777777777777777777777777777777713108131313939B777B77B 77B9B3739B8B8983334085047F7FF8787778777777777777777777777777770F FF007777777777778FB777777777777777777777777777777777777777777777 77777777773013110813833B7B7B77B77B3739393837379734897BFF04F88878 8787778777777777777777777777770FFFF077777777777778B8777777777777 7777777777777777777777777777777777777777781810121103137777777B77 B97B8B83339873794838B77FF04F8F8F87778777777777777777777777777700 0FFF777777777777778B77777777777777777777777777777777777777777777 77777777713108112111813338B7B7B7B7B9393989333738409B8B7FFF41F888 F8777777777777777777777777777700FFFF777777777777778B877777777777 777777777777777777777777777777777777777731031030103010118393B9B7 B93833833339897405389B77FF040F88888887878777777777777777777777FF FFFF7777777777777778B7777778777777778777777777777777777777777777 7777777731301118180130121038379B73933131389333B04073B77FFFF408F8 F87777777777777777777777777777BFFF7F7777777777777778B87787777878 7777777777777777777777777777777777777777108180301318031813139B7B 9338181313839734807979B7FFF0408888787877777777777777777777777F7F BFBF77777777777777778B777778777778777777777777777777777777777777 77777778131010113011311313183B7B8313131383933394048B8B77FFF80488 888887887877777777777777777777FFFFFF7777777777777777788778787887 8778778777777777777777777777777777777771310301081303183937BB9733 1181308313389B3B41787977FFFF4148F87787777777777777777777777777FF FFFF777777777777777787BB8F8F88F887877777777777777777777777777777 777777830181130101813338B7F7FB81031211311393379B404B877B7FFF040F 8F8777777777777777777777777777FFFFFF7777777777777777778888F88F88 87887877777777777777777777777777777777311301801301210101337B3810 31811303838393738417B877BFFF4048787787777777777777777777777777FF FFFF777777777777777778FBB888888F888F8F87777777777777777777777777 7777771210121130110108101010010310121813139373B9B408797877FF8057 777777777777777777777777777777FFFFFF77777777777777778F8F8B88F888 8F88F87778777777777777777777777777777813181112181081310801013931 8131310318339B8B7340B7B877FF8447777777777777777777777777777777FF FFFF777777777777778778888B88888F88F88778777777777777777777777777 7777713010308131831131311331B83130812131339379B79B840977877F4007 777777777777777777777777777777000F0277777777777777778F888F8888F8 8F88F887777777777777777777777777777783113101101211338393397FB793 1311813839373B8B7B7848B9787F047777777777777777777777777777777700 0000777777777777778788F888BB8F8F8FBF8F87878777777777777777777777 7777310810121811030313877FF7FB8318303131839397B9B9B9B407B8805777 777777777777777777777777777777FFFFFF7777777777777778F8888888B888 8888F878777777777777777777777777777710310810101218181337BF7FB9B9 3131318338B8B9B7B7B7B97040847777777777777777777777777777777777FF FFFF777777777777778F8F88F8F8B8F8F8F88B77787777777777777777777777 7778131210101211013108137B777B83931831393939B8B79B79B7B7B98887B7 777777777777777777777777777777FFFF0F7777777777777778F888888F8B88 BFBFF888B77777777777777777777777777318011018010813013133138B7B93 8313131337B37B97B7B7B7B9B838878777777777777777777777777777777FFF FFFF777777777777778F88F88F88BF8FF888B78F87B777777777777777777777 7771011803010101011211018137B383131838389397B7B7B9B79B77B9318889 7777777777777777777777777777777FFF7F7777777777777778F888F8FF8FBF BFF8778B77877777777777777777777777731210101018033838138012317393 31313139B8BB89B7B77B7B7B9733188817777777777777777777777777777777 777777777777777777778F8F8888BF888FB77B777B7B77777777777777777777 7771018101801091011131131113B938183138338B97BB79B7B7B77B7B110188 818777777777777777777777777777F7F77F77777777777777878F88F8F8F8F8 78778778B7777777777777777777777777818101010101213183B7B313777331 33183939B37B97BB7B77B7B7B8B33B38898377B77777777777777777777777FF FFFF7777777777777777788F88BFBFF8777877B7778B77777777777777777777 7731031080121810139B7FFFFFFFF3138131338B379B7B797B7B777B7B10313B 889898979777777777777777777777FFFFFF7777777777777777877878F88FB7 787778787B778777777777777777777777801121010101033837FFFFFFFF7931 3933893973B8B7B7B777BFB77B398103381338B83777777777777777777777FF FFFF77777777777777777878788BFF8777787777787B77777777777777777777 771308101081031813B7FFFFFFFF383938393B8B9B7B97B77B7B7B77BB130181 3B8101017B77777777777777777777FFFFFF7777777777777777777878F8FB77 B777787B7B77877777777777777777773130110130101101339FFFFFFFFB9383 39B389B8B97B7B7B7777F7FB7B31331383B89337BFF7B77BBBBBBB77777777FF FFFF777777777777777777877BFBF88787777778777B77777777777777777777 1810121001018031838FFFFFFFB7B9B9B8393B9B8B9B77B7B7BFB7BF7B313177 B87B397BFBFBFBB7777777B777777706260F777777777777777777778F8F8F87 777B778F88B787777777777777777773121181018101010139B7FFFFFF7B77B7 B9B8B8B8B7B77B7F7FF7F7F7BB9837313988BB777FFF777777777777777777FF FFFF7777777777777777777778FB7B77B787777B787777777777777777777771 3112101010801081383FFFF7F7BF7B79B79B9B9B97B7BF77BF7BF7BFBB339181 3038837B7F7FB7777777777B777777FFFFFF7777777777777777777777877788 77778B77787B777777777777777777180181010801010112133FFFFFF77FB77B 8B8B8B8B7BB777BF7F7FF7777793033183183BBBF777B777777777B777777FFF FFF477777777777777777777777B7BF87B7B777B7B7877777777777777777301 13018101210180011397FFFBFF7B77B7B9B79B98B777BFF7FBF7BFF7B3B11313 131BB83B7B7B7777777777B77777770FFFFF77777777777777777777777878F8 888778BF8877777777777777777781312130101101210181383FF7F7FBF77B7B 9833337B97BF7F7FF7F7F7BBBBBBB83931B318831838377777777B7777777777 FF4477777777777777777777777778B778F8BFF8878777777777777777773181 8103108010101010393BFFFF777B7B9333138133B7F7FFFFF7FBBBF779B31B8B BB38181833181B7777777B77777777FFFFFF7777777777777777777777777787 BFBF8FB777777777777777777777112131810101801108010397F7F7B7B7B833 8121131837BFFFFFFFB7F7FB7B39303B0133B3B8B91387777777B777777777FF FFFF777777777777777777777777777778787877777777777777777777730311 0318031018121101318B7FBF7B79339013138131B77FFFFFFFBFFF7FB9339B13 318139837B339337777B7777777777FFFFFF7777777777777777777777777777 7777777777777777777777777771812131011103010101210339F7F7B8331309 318103739B77F7B77FB7FBF7B83BBB793131838788BBB38977B77777777777FF FFFF777777777777777777777777777777777777777777777777777777713118 01303081301801018138B77B7B9318120131313377B7B8B8B7B7FF77B9BBB77B 8B931389B83713BB7B777777777777FFFFFF7777777777777777777777777777 777777777777777777777777777701213181011011301801031377B793813101 13121318338313138B9B77B7BB7BFBFB71238108888B131BBB777777777777FF FFFF777777777777777777777777777777777777777777777777777777771811 030131218010101103138B77331210812181813311303139337BB77BB9BF7FF7 B9113318108B13BB77BB7777777777FFFFFF7777777777777777777777777777 7777777777777777777777777777731081310810180108100183397B31318110 13103181281138933937FBBB38BF7FFBF7B3938398883B377777B777777777FF FFFF777777777777777777777777777777777777777777777777777777777771 3103131301010108113183B398121031810110111138133839B777BB39BF7F7F B79739373897B97777777BB77777770FFFFF7777777777777777777777777777 7777777777777777777777777777777103181010318030101803389731311121 383383308313B79B837F7BB9B38B77FB83338BB97BBB8B777777777B777777F4 44FF777777777777777777777777777777777777777777777777777777777813 1031318101010112109139333112180110101011397B73393B7FBB731BB17BB3 180138777B878B7777777777B77777444F447777777777777777777777777777 7777777777777777777777777778138018130310181301211303831813813131 213130338B33931B7FFB7B93831BB31B3131313B7FFF88B7777777777B7777FF F444777777777777777777777777777777777777777777777777777777712111 21081103011081180131383331121318130181313181337FF7B7B731B31837B3 B1331B33837378B77777777777B777FFF4447777777777777777777777777777 7777777777777777777777777771810311313031030313011813131318318131 313130981393FFFFFFB79383117B7B79BB1BB131188138B777777777777777FF FFFF777777777777777777777777777777777777777777777777777777121318 12110181318110312131839393131383138939337BFFFFFFFFB7B313837BFFB7 9BB3B337B89B77BFB777777777777FFFF8317777777777777777777777777777 7777777777777777777777777711210018031310103018101303183839383939 379B7B7FBFF7FFF7F7B7391317BFFBFBB33339BBB7739BFBFB77777777B777FF FFFF777777777777777777777777777777777777777777777777777773181131 31180103181310318131331393B9B977B7B77777F7FFFFFFFFB383389BF7FF7F B7BFFFB79BBBB77F7FB77777BB7777FFFFFF7777777777777777777777777777 7777777777777777777777777830180103031810310121031318313383737B7B 777B7BFBF7F7FFFF77BBB9133B77FFFB713B9FF7B77BFBFFFF7BBBB7777777BF FFFF777777777777777777777777777777777777777777777777777777113013 18113031101811812133183939B7B7B7BB77F77FBFFF7F7F77B9B8B33BBFF7B7 9313B37F77FF77FFF7B77777777777FFFFFF7777777777777777777777777777 7777777777777777777777777312101031030118013031018121339383B9B7B7 777B7BFBFFBFFFF7BB83397FFF7B7BF339B7B7BFF777BB7BFB777777777777FF FFFF777777777777777777777777777777777777777777777777777771811818 109810303101121313181383397B97B7B7BF77F7F7FF777B779138391819339B 7F77BBFFF7F77F77B7777777777777FFFFFF7777777777777777777777777777 7777777777777777777777777030301121211811081081310313313937B37B97 B777BF7BF7F7BF7B9B7BB9BBBB3B77FFF7B7B9BFF7FFFFF8B7777777777777FF FFFF777777777777777777777777777777777777777777777777777771110312 1110301031031018138138339B97B77B77B777BF7FB7F7B7BF7FFF7777FFF7BF 39BB839B7FFFFFF8B7777777777777FFFFFF7777777777777777777777777777 77777777777777777777777778121181180311811031031213131398B37B77B7 7B77B7777BF7B9B77393137B7F7777B13897FFFBB7FFFF78B7777777777777FF F002777777777777777777777777777777777777777777777777777777109213 01010310811031813183983398B97B77B77B777B777B8373983138138B3B3103 13FFF7FF7BF77BF8B7777777777777FFFFFF7777777777777777777777777777 777777777777777777777777778121103131803103081121831333397BB7B77B 797B7B777B739B9313833939310101813B8B37777F3BB778B7777777777777FF FFFF777777777777777777777777777777777777777777777777777777710103 101211031111218131813893B97B7B77B7B777B7B79338333393933833181313 7F139338FFBBBBBB7777777777777FFFFFFF7777777777777777777777777777 7777777777777777777777777777181081810130801211311338933737B77B7B 7B7B7B7B8138139FFFF7B7B9B939337BF38B39739FFFF7F877777777777777FF FF0F777777777777777777777777777777777777777777777777777777771031 101080101181130383933893797B7B7B97B73381333137F739B7FF77B77B77FF F1397777F7FFFF78777777777777778121317777777777777777777777777777 777777777777777777777777777773103013113103030813183939B3B8B7977B 73118313381BF7B7FF7FBFFFFFFFFFFF33FF77FFFFFFFF8C77777777777777FF FFF7777777777777777777777777777777777777777777777777777777777101 0181218011011313393837379B7B7B97383839B913FFBFFFFFFFF7FFFFFFFF39 7FF7FFFFFFF7FF8777777777777777FFFFFF7777777777777777777777777777 777777777777777777777777777778121310110180112181383B939B8B9B87B8 18131837FF7FF79339BFFFF7B7B9377FF77F7FBFFFFFFF8777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777718 1001803101801313133938B8B7B7B333133877F7F7F89337FFF7BFFFFFF7FF7F 77FFFFF77FFFFC8777777777777777FF7FFF7777777777777777777777777777 77777777777777777777777777777711013101012110103839373B9B39739018 11813377F98388F89377F7FF7F7F77F77FFFFFFFFFFFF87777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777772 1801031810308101383B938383318931339B7F7B83897F383773777FF7FF7B87 FFFFFFFF7FFF877777777777777777FFFFFF7777777777777777777777777777 7777777777777777777777777777777110181010981010121398393131003081 81337393313FF17F7F7F7B77973337FFFFFFFFFFFFFC877777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777777 1211031303131811383B831301811138388931313FF73FFFFFFFFFF7BB97FFFF FFFFFFFFFF88777777777777777777FFFFFF7777777777777777777777777777 7777777777777777777777777777777781103181310133893939318010133339 39B7787F404041B9B87FFFFFF7FFFFF77777FFFFFC8777777777777777777706 260F777777777777777777777777777777777777777777777777777777777777 7308121393810138BB7B930113397FF7FB77F040873F7048FFF7FFF7FFFFFF77 FFFF7FFF887777777777777777777FFFFFFF7777777777777777777777777777 777777777777777777777777777777777131113383939893977B713137738139 3777F04797777F408FFFFFFF777FF77FFF7FFC88777777777777777777777700 0000777777777777777777777777777777777777777777777777777777777777 7703083131033BB37B777393713B9B7B7B7B714877F77880587FFFFFFFFFFFFF FFC888777777777777777777777777FFFFF07777777777777777777777777777 777777777777777777777777777777777711131830100187FBFB7B831B77FF7F 777777577779FFF4078888888C88C8888887777777777777777777777777770B 99BB777777777777777777777777777777777777777777777777777777777777 777121393981313937FF7B139FFB739BFBF7FF7F777FF7F04FF777F7777877FF F7777777777777777777777777777B77CCCC7777777777777777777777777777 7777777777777777777777777777777777781303839B8BB77F777F37B3181389 377FF7F777F77750477FFFFFFFFF77FFFB777777777777777777777777777754 0FFF777777777777777777777777777777777777777777777777777777777777 777718133130137B77BFFF71113B9BB7B7777777777FF8404FFFF77777777FFF 777777777777777777777777777777FFFFFF7777777777777777777777777777 7777777777777777777777777777777777777131379311133B7B7B3137B77FF7 FFFF7FF77F7F84048F777FFFFF7F7777777777777777777777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777777 77777731833777B7FFF7FFFB7FF7339B7FFFFF7F7F774140FF7FFF7777FF7777 777777777777777777777777777777FFFF7F7777777777777777777777777777 777777777777777777777777777777777777777131383B7777FFFFFF733B7FFF FFFF7FF7F774040777FFF7FFFF777777777777777777777777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777777 77777777393938B7B7B7777BFFFFFFFFFFFFFF7F7850487777FFF7FF77777777 777777777777777777777777777777FFFFFF7777777777777777777777777777 777777777777777777777777777777777777777773833937B7777F7FF77F7FFF 7F7F7F7774408F7F7F7F7F7777777777777777777777777777777777777777FF FFFF777777777777777777777777777777777777777777777777777777777777 7777777777B93739B7B7BF7FBFFFFFFFF7F777778400FFFF77F7F77777777777 77777777777777777777777777777FFFFFFF7777777777777777777777777777 77777777777777777777777777777777777777777777B93B97B777BF777FBFB7 77777777414F777777777777B77777777777777777777777777777777777770F FFFF777777777777777777777777777777777777777777777777777777777777 77777777777777B7B7B7B7F7777777F777F77777404777777787777777777777 777777777777777777777777777777CCAAAA7777777777777777777777777777 777777777777777777777777777777777777777777777777B7B7777777777777 77777777740777777707777777777777777777777777777777777777777777DD DCCC777777777777777777777777777777777777777777777777777777777777 77777777777777777777B777777777B7F7F77777740777777047777777777777 77777777777777777777777777777FB139FF7777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777F7F7047777044777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777404047787777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777707 0000777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777777FF7777} end object Label1: TLabel Left = 224 Top = 32 Width = 92 Height = 13 Caption = 'Delphi Web Wizard' end object btnNext1: TButton Left = 368 Top = 184 Width = 75 Height = 25 Caption = 'Next' TabOrder = 0 OnClick = btnNext1Click end object CheckInprise: TCheckBox Left = 224 Top = 80 Width = 169 Height = 25 Caption = 'About Borland/Inprise site' TabOrder = 1 end end object TabSheet2: TTabSheet Caption = 'TabSheet2' ImageIndex = 1 TabVisible = False object Label2: TLabel Left = 224 Top = 24 Width = 128 Height = 13 Cursor = crHandPoint Caption = 'Main site: www.inprise.com' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = LabelLinkClick end object Label3: TLabel Left = 224 Top = 48 Width = 149 Height = 13 Cursor = crHandPoint Caption = 'Delphi: www.inprise.com/delphi' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = LabelLinkClick end object btnNext2: TButton Left = 368 Top = 184 Width = 75 Height = 25 Caption = 'Next' TabOrder = 0 OnClick = btnNext2Click end object CheckDone: TCheckBox Left = 224 Top = 88 Width = 97 Height = 17 Caption = 'Done' TabOrder = 1 end end object TabSheet3: TTabSheet Caption = 'TabSheet3' ImageIndex = 2 TabVisible = False object Label4: TLabel Left = 224 Top = 32 Width = 145 Height = 13 Cursor = crHandPoint Caption = 'My site: www.marcocantu.com' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = LabelLinkClick end object Label5: TLabel Left = 224 Top = 64 Width = 126 Height = 13 Cursor = crHandPoint Caption = 'Publisher: www.sybex.com' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = LabelLinkClick end object btnNext3: TButton Left = 368 Top = 184 Width = 75 Height = 25 Caption = 'Next' TabOrder = 0 OnClick = btnNext3Click end object CheckDone2: TCheckBox Left = 224 Top = 104 Width = 97 Height = 17 Caption = 'Done' TabOrder = 1 end end object TabSheet4: TTabSheet Caption = 'TabSheet4' ImageIndex = 3 TabVisible = False object Label6: TLabel Left = 224 Top = 16 Width = 51 Height = 13 Caption = 'More sites:' end object btnNext4: TButton Left = 368 Top = 184 Width = 75 Height = 25 Caption = 'Next' TabOrder = 0 OnClick = btnNext4Click end object ListBox1: TListBox Left = 224 Top = 40 Width = 193 Height = 121 Cursor = crHandPoint Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ItemHeight = 13 Items.Strings = ( 'www.drbob42.com' 'www.iunknown.com' 'www.EckelObjects.com' 'www.informant.com' 'www.itecuk.com' 'sunsite.icm.edu.pl/delphi' 'www.delphiexchange.com') ParentFont = False TabOrder = 1 OnClick = ListBox1Click end end object TabSheet5: TTabSheet Caption = 'TabSheet5' ImageIndex = 4 TabVisible = False object Label7: TLabel Left = 224 Top = 32 Width = 175 Height = 26 Caption = 'That''s all the information provided by the wizard. Thanks for us' + 'ing it.' WordWrap = True end object btnNext5: TButton Left = 368 Top = 184 Width = 75 Height = 25 Caption = 'Finish' TabOrder = 0 Visible = False OnClick = btnNext5Click end end end object btnBack: TButton Left = 280 Top = 190 Width = 75 Height = 25 Caption = 'Back' Enabled = False TabOrder = 1 OnClick = btnBackClick end end
|
||
© Copyright Marco Cantù, 1995-2020, All rights reserved |