lazarus-ccr/components/geckoport/version2/SampleApps/gec10.pas

unit gec10;

interface

uses
  {$IFNDEF LCL} Windows, Messages, {$ELSE} LclIntf, LMessages, LclType, LResources, {$ENDIF}
  SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GeckoBrowser, StdCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    GeckoBrowser1: TGeckoBrowser;
    ListBox1: TListBox;
    lblProg: TLabel;
    lblProgMax: TLabel;
    Panel1: TPanel;
    Splitter1: TSplitter;
    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}
{$ELSE}
{$R *.lfm}
{$ENDIF}

procedure TForm1.FormShow(Sender: TObject);
begin
  GeckoBrowser1.LoadURI('http://www.lazarus.freepascal.org');
end;

procedure TForm1.GeckoBrowser1StatusChange(Sender: TObject;
  aMessage: WideString);
begin
  ListBox1.Items.Add(aMessage);
  ListBox1.Selected[ListBox1.Count-1]:=true;
  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
  Caption := uri;
end;

end.