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

2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
--- a/SHDocVw/Example/~history/wbmain.lfm;1
+++ b/SHDocVw/Example/~history/wbmain.lfm;1
@@ -0,0 +1,93 @@
+object Form1: TForm1
+  Left = 414
+  Height = 384
+  Top = 178
+  Width = 774
+  Caption = 'TWebBrowser Test'
+  ClientHeight = 384
+  ClientWidth = 774
+  Color = clMenu
+  OnCreate = FormCreate
+  LCLVersion = '1.1'
+  object Panel1: TPanel
+    Left = 0
+    Height = 24
+    Top = 0
+    Width = 774
+    Align = alTop
+    BevelOuter = bvNone
+    ClientHeight = 24
+    ClientWidth = 774
+    ParentColor = False
+    TabOrder = 0
+    object Edit1: TEdit
+      Left = 0
+      Height = 24
+      Top = 0
+      Width = 279
+      Align = alLeft
+      OnKeyDown = Edit1KeyDown
+      TabOrder = 0
+      Text = 'http://adf.ly/Kgy17'
+    end
+    object SpeedButton1: TSpeedButton
+      Left = 279
+      Height = 24
+      Top = 0
+      Width = 23
+      Align = alLeft
+      Caption = '>>'
+      Flat = True
+      Font.Style = [fsBold]
+      OnClick = Button1Click
+      ParentFont = False
+    end
+    object SpeedButton2: TSpeedButton
+      Left = 302
+      Height = 24
+      Top = 0
+      Width = 23
+      Align = alLeft
+      Caption = '<>'
+      Flat = True
+      OnClick = SpeedButton2Click
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Height = 21
+    Top = 363
+    Width = 774
+    Align = alBottom
+    BevelOuter = bvNone
+    ClientHeight = 21
+    ClientWidth = 774
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 0
+      Height = 21
+      Top = 0
+      Width = 9
+      Align = alLeft
+      Caption = '...'
+      ParentColor = False
+    end
+  end
+  object WebBrowser1: TWebBrowser
+    Left = 0
+    Height = 339
+    Top = 24
+    Width = 774
+    Align = alClient
+    TabOrder = 2
+    UseDockManager = False
+    OnResize = WebBrowser1Resize
+    Active = True
+    OnStatusTextChange = WebBrowser1StatusTextChange
+    OnProgressChange = WebBrowser1ProgressChange
+    OnNavigateError = WebBrowser1NavigateError
+    OnUpdatePageStatus = WebBrowser1UpdatePageStatus
+    OnSetPhishingFilterStatus = WebBrowser1SetPhishingFilterStatus
+    OnNewProcess = WebBrowser1NewProcess
+  end
+end