mirror of
https://github.com/rn10950/RetroZilla.git
synced 2024-11-11 02:10:17 +01:00
92 lines
2.2 KiB
ObjectPascal
92 lines
2.2 KiB
ObjectPascal
unit form;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, OleCtrls, SHDocVw_TLB, MOZILLACONTROLLib_TLB, ExtCtrls,
|
|
ComCtrls;
|
|
|
|
type
|
|
TMainForm = class(TForm)
|
|
Browser: TMozillaBrowser;
|
|
Panel: TPanel;
|
|
Status: TPanel;
|
|
Address: TComboBox;
|
|
Go: TButton;
|
|
WebProgress: TProgressBar;
|
|
Stop: TButton;
|
|
procedure GoClick(Sender: TObject);
|
|
procedure FormResize(Sender: TObject);
|
|
procedure OnStatusTextChange(Sender: TObject; const Text: WideString);
|
|
procedure OnProgressChange(Sender: TObject; Progress,
|
|
ProgressMax: Integer);
|
|
procedure StopClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TMainForm.GoClick(Sender: TObject);
|
|
var Flags, TargetFrameName, PostData, Headers: OleVariant;
|
|
begin
|
|
Flags := 0;
|
|
Browser.Navigate(Address.Text, Flags, TargetFrameName, PostData, Headers);
|
|
end;
|
|
|
|
procedure TMainForm.FormResize(Sender: TObject);
|
|
var
|
|
oldPanelWidth : Integer;
|
|
begin
|
|
oldPanelWidth := Panel.Width;
|
|
Panel.Top := MainForm.ClientHeight - Panel.Height;
|
|
Panel.Width := MainForm.ClientWidth;
|
|
Go.Left := Go.Left + Panel.Width - oldPanelWidth;
|
|
WebProgress.Left := WebProgress.Left + Panel.Width - oldPanelWidth;
|
|
Address.Width := Address.Width + Panel.Width - oldPanelWidth;
|
|
Status.Width := Status.Width + Panel.Width - oldPanelWidth;
|
|
Browser.Width := MainForm.ClientWidth;
|
|
Browser.Height := MainForm.ClientHeight - Panel.Height;
|
|
end;
|
|
|
|
procedure TMainForm.OnStatusTextChange(Sender: TObject;
|
|
const Text: WideString);
|
|
begin
|
|
Status.Caption := Text;
|
|
end;
|
|
|
|
procedure TMainForm.OnProgressChange(Sender: TObject; Progress,
|
|
ProgressMax: Integer);
|
|
begin
|
|
if Progress < 0 then
|
|
begin
|
|
WebProgress.Position := 0;
|
|
WebProgress.Max := 100;
|
|
end
|
|
else if ProgressMax < Progress then
|
|
begin
|
|
WebProgress.Position := Progress;
|
|
WebProgress.Max := Progress * 10;
|
|
end
|
|
else
|
|
begin
|
|
WebProgress.Position := Progress;
|
|
WebProgress.Max := ProgressMax;
|
|
end
|
|
end;
|
|
|
|
procedure TMainForm.StopClick(Sender: TObject);
|
|
begin
|
|
Browser.Stop();
|
|
end;
|
|
|
|
end.
|