Teach Yourself Borland C++ in 14 Days - portal

Building Internet Applications
20: }
21: //----------------------------------------------------------------
22: void __fastcall TfmBrowser::htBrowserBeginRetrieval(TObject *Sender)
23: {
24: Cursor=(TCursor)crHourGlass;
25: if (cbURL->Items->IndexOf(htBrowser->URL)==-1) {
26: cbURL->Items->Add(htBrowser->URL);
27: cbURL->Text=htBrowser->URL;
28: cbURL->SelectAll();
29: tcURL->Tabs->Add(htBrowser->URL);
30: tcURL->TabIndex=tcURL->Tabs->Count-1;
31: bbGo->Click();
32: }
33: }
34: //----------------------------------------------------------------
35: void __fastcall TfmBrowser::tcURLChange(TObject *Sender)
36: {
37: cbURL->Text=tcURL->Tabs->Strings[tcURL->TabIndex];
38: cbURL->SelectAll();
39: bbGo->Click();
40: }
41: //----------------------------------------------------------------
42: void __fastcall TfmBrowser::bbHomeClick(TObject *Sender)
43: {
44: htBrowser->RequestDoc(HomePage);
45: }
46: //----------------------------------------------------------------
47: void __fastcall TfmBrowser::htBrowserEndRetrieval(TObject *Sender)
48: {
49: Cursor=(TCursor)crDefault;
50: }
51: //----------------------------------------------------------------
Listing 13.3. The text version of your Web browser’s main form,
Surf00, as text.
1: object fmBrowser: TfmBrowser
2: Left = 249
3: Top = 183
4: Width = 500
5: Height = 337
6: Caption = ‘Surf’
7: Font.Color = clWindowText
8: Font.Height = -13
9: Font.Name = ‘MS Sans Serif’
10: Font.Style = []
11: Position = poScreenCenter
12: PixelsPerInch = 120
13: TextHeight = 16
14: object tcURL: TTabControl
15: Left = 0
481
continues
13