mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-12-04 09:26:52 +02:00
379272e643
- Update to CEF 3.3112.1659.gfef43e0 - Bug Fix #49 - Added longer error messages if the CEF binaries are not available. - Added the AfterCreated event in TChromiumWindow. - Added a 'Take a snapshot' button in the OSR demo.
149 lines
3.3 KiB
Plaintext
149 lines
3.3 KiB
Plaintext
object Form1: TForm1
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Simple OSR Browser'
|
|
ClientHeight = 510
|
|
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
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnHide = FormHide
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object NavControlPnl: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 800
|
|
Height = 30
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Enabled = False
|
|
Padding.Left = 5
|
|
Padding.Top = 5
|
|
Padding.Right = 5
|
|
Padding.Bottom = 5
|
|
ShowCaption = False
|
|
TabOrder = 1
|
|
object ComboBox1: TComboBox
|
|
Left = 5
|
|
Top = 5
|
|
Width = 721
|
|
Height = 21
|
|
Align = alClient
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'https://www.google.com'
|
|
Items.Strings = (
|
|
'https://www.google.com'
|
|
'https://html5demos.com/drag')
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 726
|
|
Top = 5
|
|
Width = 69
|
|
Height = 20
|
|
Margins.Left = 2
|
|
Margins.Top = 2
|
|
Margins.Right = 2
|
|
Margins.Bottom = 2
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
Padding.Left = 4
|
|
ShowCaption = False
|
|
TabOrder = 1
|
|
object GoBtn: TButton
|
|
Left = 4
|
|
Top = 0
|
|
Width = 31
|
|
Height = 20
|
|
Margins.Left = 5
|
|
Align = alLeft
|
|
Caption = 'Go'
|
|
TabOrder = 0
|
|
OnClick = GoBtnClick
|
|
end
|
|
object SnapshotBtn: TButton
|
|
Left = 38
|
|
Top = 0
|
|
Width = 31
|
|
Height = 20
|
|
Hint = 'Take snapshot'
|
|
Margins.Left = 5
|
|
Align = alRight
|
|
Caption = #181
|
|
Font.Charset = SYMBOL_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -24
|
|
Font.Name = 'Webdings'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = SnapshotBtnClick
|
|
end
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 30
|
|
Width = 800
|
|
Height = 480
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
ShowCaption = False
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnEnter = Panel1Enter
|
|
OnExit = Panel1Exit
|
|
object PaintBox: TPaintBox32
|
|
Left = 0
|
|
Top = 0
|
|
Width = 800
|
|
Height = 480
|
|
Align = alClient
|
|
TabOrder = 0
|
|
OnClick = PaintBoxClick
|
|
OnMouseDown = PaintBoxMouseDown
|
|
OnMouseMove = PaintBoxMouseMove
|
|
OnMouseUp = PaintBoxMouseUp
|
|
OnMouseWheel = PaintBoxMouseWheel
|
|
OnMouseLeave = PaintBoxMouseLeave
|
|
OnResize = PaintBoxResize
|
|
end
|
|
end
|
|
object chrmosr: TChromium
|
|
OnAfterCreated = chrmosrAfterCreated
|
|
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 = 544
|
|
Top = 62
|
|
end
|
|
end
|