Home: Code Repository: Mastering Delphi 6
| Chapter 07 - Project WizardUI |
Project Structure |
| WizardUI.dpr |
program WizardUI; uses Forms, WizForm in 'WizForm.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. |
| WizForm.pas |
unit WizForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, ShellApi; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; TabSheet5: TTabSheet; Image1: TImage; btnNext1: TButton; btnNext2: TButton; btnNext3: TButton; btnNext4: TButton; btnNext5: 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; Label8: TLabel; 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 Form1: TForm1; implementation {$R *.DFM} procedure TForm1.btnNext1Click(Sender: TObject); begin if CheckInprise.Checked then MoveTo (TabSheet2) else MoveTo (TabSheet3); end; procedure TForm1.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 TForm1.FormCreate(Sender: TObject); begin BackPages := TList.Create; // always start with the first page PageControl1.ActivePage := TabSheet1; end; procedure TForm1.FormDestroy(Sender: TObject); begin BackPages.Free; end; procedure TForm1.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 TForm1.btnNext2Click(Sender: TObject); begin if CheckDone.Checked then MoveTo (TabSheet5) else MoveTo (TabSheet3); end; procedure TForm1.btnNext3Click(Sender: TObject); begin if CheckDone.Checked then MoveTo (TabSheet5) else MoveTo (TabSheet4); end; procedure TForm1.btnNext4Click(Sender: TObject); begin MoveTo (TabSheet5); end; procedure TForm1.btnNext5Click(Sender: TObject); begin Close; end; procedure TForm1.LabelLinkClick(Sender: TObject); var Caption, StrUrl: string; begin Caption := (Sender as TLabel).Caption; StrUrl := Copy (Caption, Pos ('http://', Caption), 1000); ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show); end; procedure TForm1.ListBox1Click(Sender: TObject); var StrUrl: string; begin StrUrl := ListBox1.Items [ListBox1.ItemIndex]; ShellExecute (Handle, 'open', PChar (StrUrl), '', '', sw_Show); end; end. |
| WizForm.dfm |
object Form1: TForm1 Left = 213 Top = 302 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 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'TabSheet1' TabVisible = False object Bevel1: TBevel Left = 8 Top = 32 Width = 175 Height = 153 HelpType = htKeyword end object Image1: TImage Left = 16 Top = 40 Width = 153 Height = 139 HelpType = htKeyword 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 HelpType = htKeyword 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 sites' TabOrder = 1 end end object TabSheet2: TTabSheet Caption = 'TabSheet2' ImageIndex = 1 TabVisible = False object Label2: TLabel Left = 224 Top = 24 Width = 164 Height = 13 Cursor = crHandPoint HelpType = htKeyword Caption = 'Main site: http://www.borland.com' OnClick = LabelLinkClick end object Label3: TLabel Left = 224 Top = 48 Width = 185 Height = 13 Cursor = crHandPoint HelpType = htKeyword Caption = 'Delphi: http://www.borland.com/delphi' OnClick = LabelLinkClick end object Label8: TLabel Left = 224 Top = 72 Width = 199 Height = 13 Cursor = crHandPoint HelpType = htKeyword Caption = 'Community: http://community.borland.com' 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 = 104 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 = 176 Height = 13 Cursor = crHandPoint HelpType = htKeyword Caption = 'My site: http://www.marcocantu.com' OnClick = LabelLinkClick end object Label5: TLabel Left = 224 Top = 64 Width = 157 Height = 13 Cursor = crHandPoint HelpType = htKeyword Caption = 'Publisher: http://www.sybex.com' 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 HelpType = htKeyword 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 ItemHeight = 13 Items.Strings = ( 'http://www.drbob42.com' 'http://www.iunknown.com' 'http://www.EckelObjects.com' 'http://www.informant.com' 'http://www.itecuk.com' 'http://sunsite.icm.edu.pl/delphi' 'http://www.delphiexchange.com' 'http://www.torry.ry') 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 HelpType = htKeyword 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 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 |
