You've already forked lazarus-ccr
3d88234802
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2353 8e941d3f-bd1b-0410-a28a-d453659cc2b4
71 lines
1.5 KiB
ObjectPascal
Executable File
71 lines
1.5 KiB
ObjectPascal
Executable File
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.
|