New ConsoleBrowser demo

2025-07-12 22:30:17 +02:00 · 2018-10-25 19:09:24 +02:00
parent 139f1dded2
commit b57d11d6ce
9 changed files with 2966 additions and 0 deletions
--- a/demos/ConsoleBrowser/uWebBrowser.dfm
+++ b/demos/ConsoleBrowser/uWebBrowser.dfm
@ -0,0 +1,81 @@
+object WebBrowserFrm: TWebBrowserFrm
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'Initializing browser. Please wait...'
+  ClientHeight = 600
+  ClientWidth = 800
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
+  OnCloseQuery = FormCloseQuery
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnHide = FormHide
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Panel1: TBufferPanel
+    Left = 0
+    Top = 0
+    Width = 800
+    Height = 600
+    Align = alClient
+    Caption = 'Panel1'
+    TabOrder = 0
+    TabStop = True
+    OnClick = Panel1Click
+    OnEnter = Panel1Enter
+    OnExit = Panel1Exit
+    OnMouseDown = Panel1MouseDown
+    OnMouseMove = Panel1MouseMove
+    OnMouseUp = Panel1MouseUp
+    OnResize = Panel1Resize
+    OnMouseLeave = Panel1MouseLeave
+    ExplicitTop = 30
+    ExplicitWidth = 988
+    ExplicitHeight = 638
+  end
+  object chrmosr: TChromium
+    OnTooltip = chrmosrTooltip
+    OnBeforePopup = chrmosrBeforePopup
+    OnAfterCreated = chrmosrAfterCreated
+    OnBeforeClose = chrmosrBeforeClose
+    OnClose = chrmosrClose
+    OnGetViewRect = chrmosrGetViewRect
+    OnGetScreenPoint = chrmosrGetScreenPoint
+    OnGetScreenInfo = chrmosrGetScreenInfo
+    OnPopupShow = chrmosrPopupShow
+    OnPopupSize = chrmosrPopupSize
+    OnPaint = chrmosrPaint
+    OnCursorChange = chrmosrCursorChange
+    Left = 24
+    Top = 56
+  end
+  object AppEvents: TApplicationEvents
+    OnMessage = AppEventsMessage
+    Left = 24
+    Top = 128
+  end
+  object SaveDialog1: TSaveDialog
+    DefaultExt = 'bmp'
+    Filter = 'Bitmap files (*.bmp)|*.BMP'
+    Title = 'Save snapshot'
+    Left = 24
+    Top = 278
+  end
+  object Timer1: TTimer
+    Enabled = False
+    Interval = 300
+    OnTimer = Timer1Timer
+    Left = 24
+    Top = 206
+  end
+end