home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Info / Extras / NetManage / Demos / Html / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-27  |  2.2 KB  |  102 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Menus, ComCtrls, OleCtrls, Buttons, isp3;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     HTML1: THTML;
  12.     StatusBar1: TStatusBar;
  13.     MainMenu1: TMainMenu;
  14.     File1: TMenuItem;
  15.     Exit1: TMenuItem;
  16.     Panel1: TPanel;
  17.     Bevel1: TBevel;
  18.     URLs: TComboBox;
  19.     GoButton: TSpeedButton;
  20.     View1: TMenuItem;
  21.     DocumentSource1: TMenuItem;
  22.     CancelBtn: TSpeedButton;
  23.     Label1: TLabel;
  24.     procedure Exit1Click(Sender: TObject);
  25.     procedure GoButtonClick(Sender: TObject);
  26.     procedure About1Click(Sender: TObject);
  27.     procedure DocumentSource1Click(Sender: TObject);
  28.     procedure CancelBtnClick(Sender: TObject);
  29.     procedure HTML1BeginRetrieval(Sender: TObject);
  30.     procedure HTML1EndRetrieval(Sender: TObject);
  31.     procedure URLsKeyDown(Sender: TObject; var Key: Word;
  32.       Shift: TShiftState);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. uses DocSrc;
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TForm1.Exit1Click(Sender: TObject);
  49. begin
  50.   Close;
  51. end;
  52.  
  53. procedure TForm1.GoButtonClick(Sender: TObject);
  54. begin
  55.   if URLs.Items.IndexOf(URLs.Text) = -1 then
  56.     URLs.Items.Add(URLs.Text);
  57.   HTML1.RequestDoc(URLs.text);
  58.   Statusbar1.Panels[0].Text := HTML1.RequestURL;
  59. end;
  60.  
  61. procedure TForm1.About1Click(Sender: TObject);
  62. begin
  63.   HTML1.AboutBox;
  64. end;
  65.  
  66. procedure TForm1.DocumentSource1Click(Sender: TObject);
  67. begin
  68.   with DocSourceFrm do
  69.   begin
  70.     Show;
  71.     Memo1.Lines.Clear;
  72.     Memo1.Lines.Add(HTML1.SourceText);
  73.     Memo1.SelStart := 0;
  74.     SendMessage(Memo1.Handle, EM_ScrollCaret, 0, 0);
  75.   end;
  76. end;
  77.  
  78. procedure TForm1.CancelBtnClick(Sender: TObject);
  79. begin
  80.   HTML1.Cancel('test');
  81.   CancelBtn.Enabled := False;
  82. end;
  83.  
  84. procedure TForm1.HTML1BeginRetrieval(Sender: TObject);
  85. begin
  86.   CancelBtn.Enabled := True;
  87. end;
  88.  
  89. procedure TForm1.HTML1EndRetrieval(Sender: TObject);
  90. begin
  91.   CancelBtn.Enabled := False;
  92. end;
  93.  
  94. procedure TForm1.URLsKeyDown(Sender: TObject; var Key: Word;
  95.   Shift: TShiftState);
  96. begin
  97.   if Key = VK_Return then
  98.     GoButtonClick(nil);
  99. end;
  100.  
  101. end.
  102.