Стартовый пул

gecko/.svn/pristine/86/8600da2b2875702f36517d64a5b48286de189ea6.svn-base

@@ -0,0 +1,69 @@
+unit gec10;
+
+interface
+
+uses
+  {$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
+  SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, GeckoBrowser, StdCtrls;
+
+type
+  TForm1 = class(TForm)
+    GeckoBrowser1: TGeckoBrowser;
+    ListBox1: TListBox;
+    lblProg: TLabel;
+    lblProgMax: TLabel;
+    procedure GeckoBrowser1LocationChange(Sender: TObject; const uri: string);
+    procedure GeckoBrowser1ProgressChange(Sender: TObject; Progress,
+      ProgressMax: Integer);
+    procedure GeckoBrowser1StatusChange(Sender: TObject;
+      aMessage: WideString);
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$IFNDEF LCL}
+{$R *.dfm}
+{$ENDIF}
+
+procedure TForm1.FormShow(Sender: TObject);
+begin
+//  GeckoBrowser1.LoadURI('http://www.yahoo.com', 0, '', '',  '');
+  GeckoBrowser1.LoadURI('http://www.lazarus.freepascal.org');
+end;
+
+procedure TForm1.GeckoBrowser1StatusChange(Sender: TObject;
+  aMessage: WideString);
+begin
+  ListBox1.Items.Add(aMessage);
+  Application.ProcessMessages;
+end;
+
+procedure TForm1.GeckoBrowser1ProgressChange(Sender: TObject; Progress,
+  ProgressMax: Integer);
+begin
+  lblProg.Caption := IntToStr(Progress);
+  lblProgMax.Caption := IntToStr(ProgressMax);
+  Application.ProcessMessages;
+end;
+
+procedure TForm1.GeckoBrowser1LocationChange(Sender: TObject;
+  const uri: string);
+begin
+// showmessage(uri);
+end;
+
+initialization
+{$IFDEF LCL}
+{$I gec10.lrs}  {Include form's resource file}
+{$ENDIF}
+
+end.