Marco Cantù 1998, Mastering Delphi 4
Project: WEBNAV.DPR
Project Structure
WEBNAV.DPR
program WebNav;
uses
Forms,
WebNavF in 'WebNavF.pas' {FormWebNav};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TFormWebNav, FormWebNav);
Application.Run;
end.
WEBNAVF.PAS
unit WebNavF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, OleCtrls, isp3, StdCtrls, ToolWin, ExtCtrls, ImgList, NMHTML;
type
TFormWebNav = class(TForm)
CoolBar1: TCoolBar;
ComboURLs: TComboBox;
HTML1: THTML;
ToolBar1: TToolBar;
ExplorerImages: TImageList;
ExplorerHotImages: TImageList;
ToolBtnPrevious: TToolButton;
ToolBtnNext: TToolButton;
ToolBtnStop: TToolButton;
ToolBtnRefresh: TToolButton;
StatusBar1: TStatusBar;
procedure HTML1BeginRetrieval(Sender: TObject);
procedure HTML1EndRetrieval(Sender: TObject);
procedure ToolBtnStopClick(Sender: TObject);
procedure ComboURLsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure HTML1DoRequestDoc(Sender: TObject; const URL: WideString;
const Element: HTMLElement; const DocInput: DocInput;
var EnableDefault: WordBool);
procedure ComboURLsClick(Sender: TObject);
procedure ToolBtnPreviousClick(Sender: TObject);
procedure ToolBtnNextClick(Sender: TObject);
procedure ToolBtnRefreshClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure GotoPage (ReqURL: string);
procedure ShowCurrent (ReqURL: string);
end;
var
FormWebNav: TFormWebNav;
implementation
{$R *.DFM}
procedure TFormWebNav.GotoPage (ReqURL: string);
begin
// show the request on status bar and combo box
ShowCurrent (ReqURL);
// open the page
HTML1.RequestDoc(ReqURL);
end;
procedure TFormWebNav.ShowCurrent (ReqURL: string);
var
Curr: Integer;
begin
// add the item to the combo, if not present
Curr := ComboURLs.Items.IndexOf(ReqURL);
if Curr = -1 then
Curr := ComboURLs.Items.Add(ReqURL);
// select the items
ComboURLs.Text := ReqURL;
StatusBar1.Panels[0].Text := ReqURL;
// enable toolbar buttons
ToolBtnPrevious.Enabled := Curr > 0;
ToolBtnNext.Enabled := Curr < ComboURLs.Items.Count - 1;
end;
procedure TFormWebNav.HTML1BeginRetrieval(Sender: TObject);
begin
ToolBtnStop.Enabled := True;
end;
procedure TFormWebNav.HTML1EndRetrieval(Sender: TObject);
begin
ToolBtnStop.Enabled := False;
end;
procedure TFormWebNav.ToolBtnStopClick(Sender: TObject);
begin
HTML1.Cancel(Null);
ToolBtnStop.Enabled := False;
end;
procedure TFormWebNav.ComboURLsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Return then
GotoPage (ComboURLs.Text);
end;
procedure TFormWebNav.HTML1DoRequestDoc(Sender: TObject;
const URL: WideString; const Element: HTMLElement;
const DocInput: DocInput; var EnableDefault: WordBool);
begin
// show the current page
ShowCurrent (URL);
end;
procedure TFormWebNav.ComboURLsClick(Sender: TObject);
begin
GotoPage (ComboURLs.Text);
end;
procedure TFormWebNav.ToolBtnPreviousClick(Sender: TObject);
var
Curr: Integer;
begin
Curr := ComboURLs.Items.IndexOf(ComboURLs.Text);
if Curr > 0 then
GotoPage (ComboURLs.Items [Curr - 1]);
end;
procedure TFormWebNav.ToolBtnNextClick(Sender: TObject);
var
Curr: Integer;
begin
Curr := ComboURLs.Items.IndexOf(ComboURLs.Text);
if Curr < ComboURLs.Items.Count - 1 then
GotoPage (ComboURLs.Items [Curr + 1]);
end;
procedure TFormWebNav.ToolBtnRefreshClick(Sender: TObject);
begin
GotoPage (ComboURLs.Text);
end;
procedure TFormWebNav.FormCreate(Sender: TObject);
var
PathName: string;
begin
PathName := ExtractFilePath (ParamStr (0));
GotoPage ('file:' + PathName + 'Greeting.htm');
end;
end.
WEBNAVF.DFM
object FormWebNav: TFormWebNav
Left = 139
Top = 126
AutoScroll = False
Caption = 'WebNav'
ClientHeight = 314
ClientWidth = 564
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 564
Height = 46
AutoSize = True
BandBorderStyle = bsNone
Bands = <
item
Break = False
Control = ToolBar1
ImageIndex = 0
MinHeight = 42
Width = 209
end
item
Break = False
Control = ComboURLs
ImageIndex = 0
MinHeight = 21
Width = 351
end>
FixedSize = True
Bitmap.Data = {
E62B0000424DE62B0000000000007600000028000000990000008B0000000100
040000000000702B000000000000000000001000000000000000CBCBCB00C3E1
E100B5E1E100EBFFFF00E1CBCB00AFE1E100C9E1E100FFFFFF00D7CBCB00B6E1
E100F5FFFF00FFFFFF00AFCBCB00EBE1E100FFFFFF00FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777707070777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777070707777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777707070777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777070707777777777777
7777778778877878787777777740414040440404888888777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
777777777777770707077777777777777778878888788878878878778777404F
F8F8F84057777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777070707777777777777
887878777777777877878F88F877040FF8F88884088887777777777777777777
77777777777777777777F7777777777777777777777777777777777777777777
777777777777770707077777777777878787777777777777777778778788450F
FFFFFFFF487777777777777777777777777B77B7777B797B7B7B7777777F7777
777777777777777777777777777777777777777777777707070B7777777778F8
7777777777777777777777777777804F8F8FF8F8F0777777777777F77B7777B7
79789798389883889797B7B7777B77B777777777777777777777777777777777
77777777777777090708777777778F8777777777777777777777777777777408
8F88FFFFF4777777777777777789889838983838938398398373797B7B777777
BF77777777777777777777777777777777777777777777080908777777787877
77777777777777777777777777777040FF8F888F877777777777779838183188
183818813818389838937B7397B7B7B777777777777777777777777777777777
7777777777777708030877777788777777777777777777777777777777777540
FFFFFF8F87877777777B89881838183131813131813121313183939B7B897B77
B7B7F77777777777777777777777777777777777777777010801777778877777
7777777777BBBBBBBBBBBBBBB8877704F8F8F8F8F8F877777798883181813018
03121812131813838393373739B7B97B7777B777777777777777777777777777
7777777777777703010277777877777777777779BBB87777777777778BBBBB40
8FFFFFFFF8F888777388310812118181318113181213130313389339B37B8BB7
B7B777B777777777777777777777777777777777777777010801777778777777
77777BBB77777777777777777777774058BFFF8FFFFF88778981818118121211
0121812181318131381339373739B979B7B7B777777777777777777777777777
77777777777777010201777787777777777BBB77777777777777777777777784
0F8888F8F8F8F8798881218030118112181121313181318313393839B9B7B7B7
B7777777777777777777777777777777777777777777770801017778F8777777
77BB77777777777777777777777777704F8F88888FF888B88818110181301081
31031112130312138138339338379B8B97BB7B77777777777777777777777777
777777777777770100037777877777777B977777777777777777777777777774
04FF8F88888888989181803010180310103180318131831313393938B9BB37BB
7B77777777777777777777777777777777777777777777000301777877777777
BB77777777777777777777777777777050F88888888888788838818181211121
18103181303131813813383937397B97B77B7B77777777777777777777777777
7777777777777708010077788777777BB7777777777777777777777777777774
04F88F8888F8897B31011081801180130121112113181318313893939B8B9B8B
97B777777777777777777777777777777777777777777701020177787777778B
777777777777777777777777777777784188F888D88888897B71081138121810
311812112131313313393337339B8B7B7B7B7777777777777777777777777777
777777777777770101087778777777B777777777777777777777777777777777
40488888888888888177B108018812118121181318121381318338939B8B8B9B
7B777777777777777777777777777777777777777777770102017778777777B7
77777777777777777777777777777777041F8788888988310810B8B118118182
1181211213181213833939338B9B9B7379FB7777777777777777777777777777
77777777777777010801777877777B8777777777777777777777777777777778
4404777778838103010301B8B012181812121181121313131318338B93737B9B
7B77777777777777777777777777777777777777777777020102777877777B77
77777777777777777777777777777788888888878889818180101010B3711031
8181130318131831833393937B9B97B7B7BF7777777777777777777777777777
77777777777777010801777877777B7777777777777777777777777777777777
77777777777893010108013118337118138121310310391313938B8339B8B89B
7B77777777777777777777777777777777777777777777030801777878777B77
7777777777777777777777777777777777777777777778112110180121183B81
08181801318130383389339B8B8B8BB897777777777777777777777777777777
77777777777777080108777877777B7777777777777777777777777777777777
7777777777777777112110181121283B110818181031313131339379B3B9B97B
B7B7777777777777777777777777777777777777777777010008777787778B77
7777777777777777777777777777777777777777777777777771030112111181
B81309803112181383938B3B9737B8B97B777777777777777777777777777777
77777777777777080103777787778B7777777777777777777777777777777777
777777777777777777777112181303012B8912181218131813839B9739B73B97
B7777777777777777777777777777777777777777777770B080977778777BB77
7777777777777777777777777777777777777777777777777777777130108118
103B8118181301313313373B7B9B373B77B77777777777777777777777777777
7777777777777700030B777787778B7777777777777777777777777777777777
777777777777777777777777113112121080B73108181303183939B9B8B97B7B
9B77777777777777777777777777777777777777777777000800777778777B77
7777777777777777777777777777777777777777777777777777777773030111
1311017391218131313838379B8B9B97B7777777777777777777777777777777
77777777777777030101777778787B7777777777777777777777777777777777
77777777777777777777777771118121801030383818081218339373B79B8B8B
97BF777777777777777777777777777777777777777777000100777778777B77
7777777777777777777777777777777777777777777777777777777771212110
1318110818B138181318339B8B37B9B8B77B7777777777777777777777777777
77777777777777030108777777877B7777777777777777777777777777777777
77777777777777777777777771811031801301310388918831313839B97B8B7B
7B77777777777777777777777777777777777777777777000103777777877B77
7777777777777777777777777777777777777777777777777777777770121812
1130130131338B118181313373B9B79B97B77777777777777777777777777777
777777777777770103007777777878B777777777777777777777777777777777
7777777777777777777777777313108103013183183898B738398318397373B7
B7B77777777777777777777777777777777777777777770300017777777877B7
7777777777777777777777777777777777777777777777777777777771010311
811383939393338379883933139B9B79B7777777777777777777777777777777
777777777777770101037777777877B777777777777777777777777777777777
7777777777777777777777777181310313813313383183938B93889383337B37
B7B7F777777777777777777777777777777777777777770308017777777787B8
7777777777777777777777777777777777777777777777777777777773181081
2133138313133138378983839389397B9B7B7777777777777777777777777777
7777777777777701030377777777878B77777777777777777777777777777777
777777777777777777777777773013131318131213381313138B89883933373B
79777777777777777777777777777777777777777777770301087777777778FB
7777777777777777777777777777777777777777777777777777777777112131
81213013181138393938B898383939B83B7B7777777777777777777777777777
7777777777777701020177777777778BB7777777777777777777777777777777
777777777777777777777777770318131311818112131383383938B989838335
87B740440408777777777777777777777777777777777703010177777777778F
B777777777777777777777777777777777777777777777777777777777113180
30121030313839B9B93B8373738939B8B04014007F7407777777777777777777
7777777777777700010277777777778FB8777777777777777777777777777777
77777777777777777777777777380311818113118139B7B7B7B9393789B83893
7B4877FF7F7FF477877777777777777777777777777777010801777777777778
FB77777777777777777777777777777777777777777777777777777777713103
010301831BB77B77B97B8B93378973B939B477FFFFF8F8787877777777777777
777777777777770100037777777777778B877777777777777777777777777777
7777777777777777777777777713108131313939B777B77B77B9B3739B8B8983
334085047F7FF878777877777777777777777777777777010301777777777777
8FB7777777777777777777777777777777777777777777777777777777301311
0813833B7B7B77B77B3739393837379734897BFF04F888788787778777777777
7777777777777708010377777777777778B87777777777777777777777777777
777777777777777777777777781810121103137777777B77B97B8B8333987379
4838B77FF04F8F8F877787777777777777777777777777010003777777777777
778B777777777777777777777777777777777777777777777777777771310811
2111813338B7B7B7B7B9393989333738409B8B7FFF41F888F877777777777777
77777777777777010101777777777777778B8777777777777777777777777777
77777777777777777777777731031030103010118393B9B7B938338333398974
05389B77FF040F88888887878777777777777777777777000300777777777777
7778B77777787777777787777777777777777777777777777777777731301118
180130121038379B73933131389333B04073B77FFFF408F8F877777777777777
777777777777770800017777777777777778B877877778787777777777777777
777777777777777777777777108180301318031813139B7B9338181313839734
807979B7FFF04088887878777777777777777777777777030108777777777777
77778B7777787777787777777777777777777777777777777777777813101011
3011311313183B7B8313131383933394048B8B77FFF804888888878878777777
7777777777777700010177777777777777777887787878878778778777777777
777777777777777777777771310301081303183937BB97331181308313389B3B
41787977FFFF4148F87787777777777777777777777777030003777777777777
777787BB8F8F88F8878777777777777777777777777777777777778301811301
01813338B7F7FB81031211311393379B404B877B7FFF040F8F87777777777777
777777777777770108017777777777777777778888F88F888788787777777777
7777777777777777777777311301801301210101337B38103181130383839373
8417B877BFFF4048787787777777777777777777777777010201777777777777
777778FBB888888F888F8F877777777777777777777777777777771210121130
110108101010010310121813139373B9B408797877FF80577777777777777777
7777777777777701000177777777777777778F8F8B88F8888F88F87778777777
7777777777777777777778131811121810813108010139318131310318339B8B
7340B7B877FF8447777777777777777777777777777777000801777777777777
778778888B88888F88F887787777777777777777777777777777713010308131
831131311331B83130812131339379B79B840977877F40077777777777777777
7777777777777703010177777777777777778F888F8888F88F88F88777777777
7777777777777777777783113101101211338393397FB7931311813839373B8B
7B7848B9787F0477777777777777777777777777777777010303777777777777
778788F888BB8F8F8FBF8F878787777777777777777777777777310810121811
030313877FF7FB8318303131839397B9B9B9B407B88057777777777777777777
777777777777770300037777777777777778F8888888B8888888F87877777777
7777777777777777777710310810101218181337BF7FB9B93131318338B8B9B7
B7B7B97040847777777777777777777777777777777777080108777777777777
778F8F88F8F8B8F8F8F88B777877777777777777777777777778131210101211
013108137B777B83931831393939B8B79B79B7B7B98887B77777777777777777
777777777777770103017777777777777778F888888F8B88BFBFF888B7777777
7777777777777777777318011018010813013133138B7B938313131337B37B97
B7B7B7B9B8388787777777777777777777777777777777030001777777777777
778F88F88F88BF8FF888B78F87B7777777777777777777777771011803010101
011211018137B383131838389397B7B7B9B79B77B93188897777777777777777
777777777777770101027777777777777778F888F8FF8FBFBFF8778B77877777
77777777777777777773121010101803383813801231739331313139B8BB89B7
B77B7B7B97331888177777777777777777777777777777080308777777777777
77778F8F8888BF888FB77B777B7B777777777777777777777771018101801091
011131131113B938183138338B97BB79B7B7B77B7B1101888187777777777777
7777777777777701010177777777777777878F88F8F8F8F878778778B7777777
777777777777777777818101010101213183B7B31377733133183939B37B97BB
7B77B7B7B8B33B38898377B77777777777777777777777010803777777777777
7777788F88BFBFF8777877B7778B777777777777777777777731031080121810
139B7FFFFFFFF3138131338B379B7B797B7B777B7B10313B8898989797777777
7777777777777703090B7777777777777777877878F88FB7787778787B778777
777777777777777777801121010101033837FFFFFFFF79313933893973B8B7B7
B777BFB77B398103381338B83777777777777777777777080307777777777777
77777878788BFF8777787777787B777777777777777777777713081010810318
13B7FFFFFFFF383938393B8B9B7B97B77B7B7B77BB1301813B8101017B777777
77777777777777030B077777777777777777777878F8FB77B777787B7B778777
77777777777777773130110130101101339FFFFFFFFB938339B389B8B97B7B7B
7777F7FB7B31331383B89337BFF7B77BBBBBBB7777777703090F777777777777
777777877BFBF88787777778777B777777777777777777771810121001018031
838FFFFFFFB7B9B9B8393B9B8B9B77B7B7BFB7BF7B313177B87B397BFBFBFBB7
777777B777777703080F777777777777777777778F8F8F87777B778F88B78777
7777777777777773121181018101010139B7FFFFFF7B77B7B9B8B8B8B7B77B7F
7FF7F7F7BB9837313988BB777FFF777777777777777777090B07777777777777
7777777778FB7B77B787777B7877777777777777777777713112101010801081
383FFFF7F7BF7B79B79B9B9B97B7BF77BF7BF7BFBB3391813038837B7F7FB777
7777777B77777708030F777777777777777777777787778877778B77787B7777
77777777777777180181010801010112133FFFFFF77FB77B8B8B8B8B7BB777BF
7F7FF7777793033183183BBBF777B777777777B777777703030F777777777777
77777777777B7BF87B7B777B7B78777777777777777773011301810121018001
1397FFFBFF7B77B7B9B79B98B777BFF7FBF7BFF7B3B11313131BB83B7B7B7777
777777B777777703090777777777777777777777777878F8888778BF88777777
77777777777781312130101101210181383FF7F7FBF77B7B9833337B97BF7F7F
F7F7F7BBBBBBB83931B318831838377777777B7777777708030F777777777777
77777777777778B778F8BFF88787777777777777777731818103108010101010
393BFFFF777B7B9333138133B7F7FFFFF7FBBBF779B31B8BBB38181833181B77
77777B7777777709030B7777777777777777777777777787BFBF8FB777777777
777777777777112131810101801108010397F7F7B7B7B8338121131837BFFFFF
FFB7F7FB7B39303B0133B3B8B91387777777B777777777030907777777777777
7777777777777777787878777777777777777777777303110318031018121101
318B7FBF7B79339013138131B77FFFFFFFBFFF7FB9339B13318139837B339337
777B777777777701080B77777777777777777777777777777777777777777777
777777777771812131011103010101210339F7F7B8331309318103739B77F7B7
7FB7FBF7B83BBB793131838788BBB38977B77777777777030309777777777777
7777777777777777777777777777777777777777777131180130308130180101
8138B77B7B9318120131313377B7B8B8B7B7FF77B9BBB77B8B931389B83713BB
7B77777777777701030877777777777777777777777777777777777777777777
77777777777701213181011011301801031377B7938131011312131833831313
8B9B77B7BB7BFBFB71238108888B131BBB777777777777030103777777777777
7777777777777777777777777777777777777777777718110301312180101011
03138B77331210812181813311303139337BB77BB9BF7FF7B9113318108B13BB
77BB777777777703010377777777777777777777777777777777777777777777
777777777777731081310810180108100183397B313181101310318128113893
3937FBBB38BF7FFBF7B3938398883B377777B777777777010803777777777777
7777777777777777777777777777777777777777777777713103131301010108
113183B398121031810110111138133839B777BB39BF7F7FB79739373897B977
77777BB777777701030177777777777777777777777777777777777777777777
777777777777777103181010318030101803389731311121383383308313B79B
837F7BB9B38B77FB83338BB97BBB8B777777777B777777080003777777777777
7777777777777777777777777777777777777777777778131031318101010112
109139333112180110101011397B73393B7FBB731BB17BB3180138777B878B77
77777777B7777700090177777777777777777777777777777777777777777777
777777777778138018130310181301211303831813813131213130338B33931B
7FFB7B93831BB31B3131313B7FFF88B7777777777B7777030003777777777777
7777777777777777777777777777777777777777777121112108110301108118
0131383331121318130181313181337FF7B7B731B31837B3B1331B33837378B7
7777777777B77701030177777777777777777777777777777777777777777777
777777777771810311313031030313011813131318318131313130981393FFFF
FFB79383117B7B79BB1BB131188138B777777777777777080103777777777777
7777777777777777777777777777777777777777771213181211018131811031
2131839393131383138939337BFFFFFFFFB7B313837BFFB79BB3B337B89B77BF
B777777777777701030177777777777777777777777777777777777777777777
777777777711210018031310103018101303183839383939379B7B7FBFF7FFF7
F7B7391317BFFBFBB33339BBB7739BFBFB77777777B777030003777777777777
7777777777777777777777777777777777777777731811313118010318131031
8131331393B9B977B7B77777F7FFFFFFFFB383389BF7FF7FB7BFFFB79BBBB77F
7FB77777BB777701030177777777777777777777777777777777777777777777
777777777830180103031810310121031318313383737B7B777B7BFBF7F7FFFF
77BBB9133B77FFFB713B9FF7B77BFBFFFF7BBBB7777777030108777777777777
7777777777777777777777777777777777777777771130131811303110181181
2133183939B7B7B7BB77F77FBFFF7F7F77B9B8B33BBFF7B79313B37F77FF77FF
F7B7777777777701030377777777777777777777777777777777777777777777
777777777312101031030118013031018121339383B9B7B7777B7BFBFFBFFFF7
BB83397FFF7B7BF339B7B7BFF777BB7BFB777777777777010201777777777777
7777777777777777777777777777777777777777718118181098103031011213
13181383397B97B7B7BF77F7F7FF777B779138391819339B7F77BBFFF7F77F77
B777777777777703010877777777777777777777777777777777777777777777
777777777030301121211811081081310313313937B37B97B777BF7BF7F7BF7B
9B7BB9BBBB3B77FFF7B7B9BFF7FFFFF8B7777777777777030103777777777777
7777777777777777777777777777777777777777711103121110301031031018
138138339B97B77B77B777BF7FB7F7B7BF7FFF7777FFF7BF39BB839B7FFFFFF8
B777777777777703080177777777777777777777777777777777777777777777
7777777778121181180311811031031213131398B37B77B77B77B7777BF7B9B7
7393137B7F7777B13897FFFBB7FFFF78B7777777777777030103777777777777
7777777777777777777777777777777777777777771092130101031081103181
3183983398B97B77B77B777B777B8373983138138B3B310313FFF7FF7BF77BF8
B777777777777701080377777777777777777777777777777777777777777777
77777777778121103131803103081121831333397BB7B77B797B7B777B739B93
13833939310101813B8B37777F3BB778B7777777777777030103777777777777
7777777777777777777777777777777777777777777101031012110311112181
31813893B97B7B77B7B777B7B793383333939338331813137F139338FFBBBBBB
7777777777777701080177777777777777777777777777777777777777777777
777777777777181081810130801211311338933737B77B7B7B7B7B7B8138139F
FFF7B7B9B939337BF38B39739FFFF7F877777777777777030308777777777777
7777777777777777777777777777777777777777777710311010801011811303
83933893797B7B7B97B73381333137F739B7FF77B77B77FFF1397777F7FFFF78
7777777777777703090377777777777777777777777777777777777777777777
77777777777773103013113103030813183939B3B8B7977B73118313381BF7B7
FF7FBFFFFFFFFFFF33FF77FFFFFFFF8C77777777777777080309777777777777
7777777777777777777777777777777777777777777771010181218011011313
393837379B7B7B97383839B913FFBFFFFFFFF7FFFFFFFF397FF7FFFFFFF7FF87
7777777777777709030877777777777777777777777777777777777777777777
77777777777778121310110180112181383B939B8B9B87B818131837FF7FF793
39BFFFF7B7B9377FF77F7FBFFFFFFF877777777777777708030B777777777777
7777777777777777777777777777777777777777777777181001803101801313
133938B8B7B7B333133877F7F7F89337FFF7BFFFFFF7FF7F77FFFFF77FFFFC87
7777777777777703030977777777777777777777777777777777777777777777
7777777777777711013101012110103839373B9B3973901811813377F98388F8
9377F7FF7F7F77F77FFFFFFFFFFFF87777777777777777090307777777777777
7777777777777777777777777777777777777777777777721801031810308101
383B938383318931339B7F7B83897F383773777FF7FF7B87FFFFFFFF7FFF8777
7777777777777708030B77777777777777777777777777777777777777777777
77777777777777711018101098101012139839313100308181337393313FF17F
7F7F7B77973337FFFFFFFFFFFFFC877777777777777777030908777777777777
7777777777777777777777777777777777777777777777771211031303131811
383B831301811138388931313FF73FFFFFFFFFF7BB97FFFFFFFFFFFFFF887777
7777777777777708030B77777777777777777777777777777777777777777777
77777777777777778110318131013389393931801013333939B7787F404041B9
B87FFFFFF7FFFFF77777FFFFFC87777777777777777777090309777777777777
7777777777777777777777777777777777777777777777777308121393810138
BB7B930113397FF7FB77F040873F7048FFF7FFF7FFFFFF77FFFF7FFF88777777
777777777777770B070B77777777777777777777777777777777777777777777
77777777777777777131113383939893977B7131377381393777F04797777F40
8FFFFFFF777FF77FFF7FFC88777777777777777777777707070B777777777777
7777777777777777777777777777777777777777777777777703083131033BB3
7B777393713B9B7B7B7B714877F77880587FFFFFFFFFFFFFFFC8887777777777
777777777777770B070777777777777777777777777777777777777777777777
77777777777777777711131830100187FBFB7B831B77FF7F777777577779FFF4
078888888C88C8888887777777777777777777777777770B0F0B777777777777
7777777777777777777777777777777777777777777777777771213939813139
37FF7B139FFB739BFBF7FF7F777FF7F04FF777F7777877FFF777777777777777
77777777777777070F0F77777777777777777777777777777777777777777777
777777777777777777781303839B8BB77F777F37B3181389377FF7F777F77750
477FFFFFFFFF77FFFB77777777777777777777777777770F0707777777777777
777777777777777777777777777777777777777777777777777718133130137B
77BFFF71113B9BB7B7777777777FF8404FFFF77777777FFF7777777777777777
77777777777777070B0F77777777777777777777777777777777777777777777
777777777777777777777131379311133B7B7B3137B77FF7FFFF7FF77F7F8404
8F777FFFFF7F77777777777777777777777777777777770B070B777777777777
77777777777777777777777777777777777777777777777777777731833777B7
FFF7FFFB7FF7339B7FFFFF7F7F774140FF7FFF7777FF77777777777777777777
777777777777770F0F0777777777777777777777777777777777777777777777
77777777777777777777777131383B7777FFFFFF733B7FFFFFFF7FF7F7740407
77FFF7FFFF777777777777777777777777777777777777070F0F777777777777
77777777777777777777777777777777777777777777777777777777393938B7
B7B7777BFFFFFFFFFFFFFF7F7850487777FFF7FF777777777777777777777777
77777777777777070B0777777777777777777777777777777777777777777777
77777777777777777777777773833937B7777F7FF77F7FFF7F7F7F7774408F7F
7F7F7F7777777777777777777777777777777777777777070707777777777777
7777777777777777777777777777777777777777777777777777777777B93739
B7B7BF7FBFFFFFFFF7F777778400FFFF77F7F777777777777777777777777777
77777777777777070B0777777777777777777777777777777777777777777777
7777777777777777777777777777B93B97B777BF777FBFB777777777414F7777
77777777B7777777777777777777777777777777777777070B07777777777777
77777777777777777777777777777777777777777777777777777777777777B7
B7B7B7F7777777F777F777774047777777877777777777777777777777777777
77777777777777070B0777777777777777777777777777777777777777777777
77777777777777777777777777777777B7B77777777777777777777774077777
7707777777777777777777777777777777777777777777070B07777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777B777777777B7F7F777777407777770477777777777777777777777777777
7777777777777707070777777777777777777777777777777777777777777777
777777777777777777777777777777777777777777777777777777F7F7047777
0447777777777777777777777777777777777777777777070707777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777774040477877777777777777777777777777777
7777777777777707070777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777070707777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
77777777777770070707}
object ComboURLs: TComboBox
Left = 224
Top = 10
Width = 332
Height = 21
ItemHeight = 13
Items.Strings = (
'http://www.inprise.com')
TabOrder = 0
OnClick = ComboURLsClick
OnKeyDown = ComboURLsKeyDown
end
object ToolBar1: TToolBar
Left = 15
Top = 0
Width = 192
Height = 42
Align = alNone
AutoSize = True
ButtonHeight = 40
ButtonWidth = 48
Flat = True
HotImages = ExplorerHotImages
Images = ExplorerImages
ShowCaptions = True
TabOrder = 1
Transparent = True
Wrapable = False
object ToolBtnPrevious: TToolButton
Left = 0
Top = 0
Hint = 'Previous page'
Caption = 'Previous'
ImageIndex = 0
OnClick = ToolBtnPreviousClick
end
object ToolBtnNext: TToolButton
Left = 48
Top = 0
Hint = 'Next page'
Caption = 'Next'
ImageIndex = 1
OnClick = ToolBtnNextClick
end
object ToolBtnStop: TToolButton
Left = 96
Top = 0
Hint = 'Stop'
Caption = 'Stop'
Enabled = False
ImageIndex = 2
OnClick = ToolBtnStopClick
end
object ToolBtnRefresh: TToolButton
Left = 144
Top = 0
Hint = 'ToolButton4'
Caption = 'Refresh'
ImageIndex = 3
OnClick = ToolBtnRefreshClick
end
end
end
object HTML1: THTML
Left = 0
Top = 46
Width = 564
Height = 249
ParentColor = False
ParentFont = False
Align = alClient
TabOrder = 1
OnBeginRetrieval = HTML1BeginRetrieval
OnEndRetrieval = HTML1EndRetrieval
OnDoRequestDoc = HTML1DoRequestDoc
ControlData = {
17099619080000004B3A0000BC190000000A000000000001010100011E000000
0100000000C0C0C000000000000000FF00FF00FF00010000009001C0D401000F
54696D6573204E657720526F6D616E010000009001DC7C01000B436F75726965
72204E657701000000BC0280A903000F54696D6573204E657720526F6D616E01
000000BC0220BF02000F54696D6573204E657720526F6D616E01000000BC02A4
2C02000F54696D6573204E657720526F6D616E01000000BC02C0D401000F5469
6D6573204E657720526F6D616E01000000BC02DC7C01000F54696D6573204E65
7720526F6D616E01000000BC02444201000F54696D6573204E657720526F6D61
6EA34A000C00460001000000B87A4A00}
end
object StatusBar1: TStatusBar
Left = 0
Top = 295
Width = 564
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object ExplorerImages: TImageList
Height = 20
Width = 30
Left = 40
Top = 72
Bitmap = {
960D000004000000424D960D0000000000003604000028000000780000001400
0000010008000000000060090000000000000000000000010000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000F8F8F8
F8F8F8F800000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000F8F80707070707F8F8F8F80000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000F8070707070707070707F8F8F8000000000000000000
000000000000000000000000000000F800000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00F80707070707070707070707F8F8F800000000000000000000000000000000
000000000000F8F8000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000007070707070707
070707070707F8F8000000000000000000000000000000000000000000F8F8F8
F8F8000000000000000000000000000000000000000000000000F80000000000
00000000000000000000000000000000000000000000000000000000F8000000
0000000000000000000000000000000007070707F8F8F8070707F8F8F80707F8
F8000000000000000000000000000000000000000000F8F80000F80000000000
0000000000000000000000000000000000F80700000000000000000000000000
000000000000000000000000000000000000000007F800000000000000000000
00000000000000000707070707F8F8F807F8F8F8070707F8F800000000000000
000000000000000000000000000000F80000F800000000000000000000000000
0000000000000000F80707000000000000000000000000000000000000000000
0000000000000000000000000707F80000000000000000000000000000000000
070707070707F8F8F8F8F80707070707F8000000000000000000000000000000
00000000000000000000F80000000000000000000000000000000000000000F8
070707F8F8F8F8F8F8F8F80000000000000000000000000000000000F8F8F8F8
F8F8F8F8070707F80000000000000000000000000000000007070707070707F8
F8F8070707070707F800000000000000000000000000000000000000F8000000
00000000000000000000000000000000000000000000F8070707070707070707
0707070000000000000000000000000000000000070707070707070707070707
F8000000000000000000000000000000070007070707F8F8F8F8F80707070707
F800000000000000000000000000000000000000F80000F80000000000000000
0000000000000000000000000000000007070700000000000000000000000000
0000000000000000000000000000000000000000070707000000000000000000
00000000000000000700070707F8F8F807F8F8F807070707F800000000000000
000000000000000000000000F80000F8F8000000000000000000000000000000
0000000000000000000707000000000000000000000000000000000000000000
0000000000000000000000000707000000000000000000000000000000000000
07070707F8F8F8070707F8F8F8070707F8000000000000000000000000000000
0000000000F8F8F8F8F800000000000000000000000000000000000000000000
0000070000000000000000000000000000000000000000000000000000000000
0000000007000000000000000000000000000000000000000007000707070707
07070707070707070000000000000000000000000000000000000000000000F8
F800000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000070700070707070707070707070707
0000000000000000000000000000000000000000000000F80000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000007070007070707070707070707000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000707070000000707070707000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000070707
0707070700000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000424D
7E010000000000003E0000002800000078000000140000000100010000000000
400100000000000000000000020000000000000000000000FFFFFF00FFFFFFFF
FFFFFFFFFE03FFFF80003F63FFFFFFFFFFFFFFFFF800FFFFBFFFBF63FFFFFFFF
FFFFFFFFF0007FFFBFFFBF63FFFFFFFFFFFFFFFFE0003FFFBFBFBF63FFFBFFFF
FFFBFFFFC0001FFFBF3FBF63FFF3FFFFFFF9FFFFC0001FFFBE0FBF63FFE3FFFF
FFF8FFFF80000FFFBF37BF63FFC3FFFFFFF87FFF80000FFFBFB7BF63FF8003FF
F8003FFF80000FFFBFF7BF63FF0003FFF8001FFF80000FFFBDFFBF00FE0003FF
F8000FFF90000FFFBDBFBF00FF47FBFFFBFC5FFF90000FFFBD9FBF63FFA003FF
F800BFFF80000FFFBE0FBF63FFD3FFFFFFF97FFFC8001FFFBF9FBF63FFEBFFFF
FFFAFFFFC4001FFFBFB83F63FFF3FFFFFFF9FFFFE2003FFFBFFB7F63FFFBFFFF
FFFBFFFFF0E07FFFBFFAFF63FFFFFFFFFFFFFFFFF800FFFFBFF9FF63FFFFFFFF
FFFFFFFFFE03FFFF8003FF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF81}
end
object ExplorerHotImages: TImageList
Height = 20
Width = 30
Left = 40
Top = 120
Bitmap = {
960D000004000000424D960D0000000000003604000028000000780000001400
0000010008000000000060090000000000000000000000010000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000010101
010101010000000000000000000000000000000000000000FB000000FB000000
0000FB000000FB00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000101F9F9F9F9F9010101010000
000000000000000000000000000000000000FB0000000000FB000000FB000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000001F9F9F9F9F9F9F9F9F9010101000000000000000000
0000000000000000FB000000FB0000020000FB000000FB000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0001F9F9F9F9F9F9F9F9F9F9F901010100000000000000000000000000000000
0000FB0000000202FB000000FB00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000F9F9F9F9F9F9F9
F9F9F9F9F9F9010100000000000000000000000000000000FB000000FB020202
0202FB000000FB00000000000000000000000000000000000000060000000000
0000000000000000000000000000000000000000000000000000000006000000
00000000000000000000000000000000F9F9F9F9000000F9F9F9000000F9F901
010000000000000000000000000000000000FB0000000202FB000200FB000000
000000000000000000000000000000000006FE00000000000000000000000000
0000000000000000000000000000000000000000FE0600000000000000000000
0000000000000000F9F9F9F9F9000000F9000000F9F9F9010100000000000000
0000000000000000FB000000FB000002000002000000FB000000000000000000
000000000000000006FEFE000000000000000000000000000000000000000000
000000000000000000000000FEFE060000000000000000000000000000000000
F9F9F9F9F9F90000000000F9F9F9F9F901000000000000000000000000000000
0000FB0000000000FB000200FB00000000000000000000000000000000000006
FEFEFE0606060606060606000000000000000000000000000000000006060606
06060606FEFEFE0600000000000000000000000000000000F9F9F9F9F9F9F900
0000F9F9F9F9F9F901000000000000000000000000000000FB0000000200FB00
0000FB000000FB00000000000000000000000000000006FEFEFEFEFEFEFEFEFE
FEFEFE0000000000000000000000000000000000FEFEFEFEFEFEFEFEFEFEFEFE
06000000000000000000000000000000F907F9F9F9F90000000000F9F9F9F9F9
010000000000000000000000000000000000FB0002000002FB000000FB000000
00000000000000000000000000000000FEFEFE00000000000000000000000000
0000000000000000000000000000000000000000FEFEFE000000000000000000
0000000000000000F907F9F9F9000000F9000000F9F9F9F90100000000000000
0000000000000000FB0000000200FB020200FB000000FB000000000000000000
000000000000000000FEFE000000000000000000000000000000000000000000
000000000000000000000000FEFE000000000000000000000000000000000000
F9F9F9F9000000F9F9F9000000F9F9F901000000000000000000000000000000
0000FB000002020202020000FB00000000000000000000000000000000000000
0000FE0000000000000000000000000000000000000000000000000000000000
00000000FE0000000000000000000000000000000000000000F907F9F9F9F9F9
F9F9F9F9F9F9F9F900000000000000000000000000000000FB000000FB000002
0200FB000000FB00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000F9F907F9F9F9F9F9F9F9F9F9F9F9F9
000000000000000000000000000000000000FB000000FB020000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000F9F907F9F9F9F9F9F9F9F9F9F9000000000000000000
0000000000000000FB000000FB000000FB00FB00000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000F9F9F9070707F9F9F9F9F9000000000000000000000000000000000000
0000FB000000FB00000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000F9F9F9
F9F9F9F90000000000000000000000000000000000000000FB000000FB000000
FB00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000424D
7E010000000000003E0000002800000078000000140000000100010000000000
400100000000000000000000020000000000000000000000FFFFFF00FFFFFFFF
FFFFFFFFFE03FFFF80003F63FFFFFFFFFFFFFFFFF800FFFF9DF73F63FFFFFFFF
FFFFFFFFF0007FFFB7DDBF63FFFFFFFFFFFFFFFFE0003FFF9DB73F63FFFBFFFF
FFFBFFFFC0001FFFB71DBF63FFF3FFFFFFF9FFFFC0001FFF9C073F63FFE3FFFF
FFF8FFFF838E0FFFB715BF63FFC3FFFFFFF87FFF81DC0FFF9DB73F63FF8003FF
F8003FFF80F80FFFB7D5BF63FF0003FFF8001FFF80700FFF9D773F00FE0003FF
F8000FFF80F80FFFB59DBF00FF47FBFFFBFC5FFF81DC0FFF9D173F63FFA003FF
F800BFFF838E0FFFB60DBF63FFD3FFFFFFF97FFFC0001FFF9D973F63FFEBFFFF
FFFAFFFFC0001FFFB7383F63FFF3FFFFFFF9FFFFE0003FFF9DD37F63FFFBFFFF
FFFBFFFFF0007FFFB77AFF63FFFFFFFFFFFFFFFFF800FFFF9DD9FF63FFFFFFFF
FFFFFFFFFE03FFFF8003FF03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF81}
end
end
Copyright Marco Cantù 1998