summaryrefslogtreecommitdiff
path: root/orig/pq/Info.pas
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2016-08-12 14:05:45 +0200
committerDimitri Sokolyuk <demon@dim13.org>2016-08-12 14:05:45 +0200
commit14a6aa4c488bcd2d49103cbee1424b2769d77ce0 (patch)
tree93e3875919eeb0e60d0a8da70f5d96152a4e527a /orig/pq/Info.pas
Initial import
Diffstat (limited to 'orig/pq/Info.pas')
-rw-r--r--orig/pq/Info.pas31
1 files changed, 31 insertions, 0 deletions
diff --git a/orig/pq/Info.pas b/orig/pq/Info.pas
new file mode 100644
index 0000000..d9d606d
--- /dev/null
+++ b/orig/pq/Info.pas
@@ -0,0 +1,31 @@
+unit Info;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, OleCtrls, SHDocVw;
+
+type
+ TForm4 = class(TForm)
+ WebBrowser1: TWebBrowser;
+ private
+ { Private declarations }
+ public
+ procedure Go(url: String);
+ end;
+
+var
+ Form4: TForm4;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm4.Go(url: String);
+begin
+ WebBrowser1.Navigate(url);
+ Show;
+end;
+
+end.