2017-01-27 18:14:48 +01:00
|
|
|
object Form1: TForm1
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'Simple OSR Browser'
|
2017-07-28 12:47:57 +02:00
|
|
|
ClientHeight = 510
|
|
|
|
ClientWidth = 800
|
2017-01-27 18:14:48 +01:00
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = []
|
|
|
|
OldCreateOrder = False
|
2017-07-12 17:00:34 +02:00
|
|
|
Position = poScreenCenter
|
2017-04-24 12:57:16 +02:00
|
|
|
OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
|
2017-07-18 17:50:28 +02:00
|
|
|
OnDestroy = FormDestroy
|
|
|
|
OnHide = FormHide
|
2017-01-27 18:14:48 +01:00
|
|
|
OnShow = FormShow
|
|
|
|
PixelsPerInch = 96
|
|
|
|
TextHeight = 13
|
2017-07-18 17:50:28 +02:00
|
|
|
object NavControlPnl: TPanel
|
2017-01-27 18:14:48 +01:00
|
|
|
Left = 0
|
|
|
|
Top = 0
|
2017-07-28 12:47:57 +02:00
|
|
|
Width = 800
|
2017-01-27 18:14:48 +01:00
|
|
|
Height = 30
|
|
|
|
Align = alTop
|
|
|
|
BevelOuter = bvNone
|
2017-07-18 17:50:28 +02:00
|
|
|
Enabled = False
|
2017-01-27 18:14:48 +01:00
|
|
|
Padding.Left = 5
|
|
|
|
Padding.Top = 5
|
|
|
|
Padding.Right = 5
|
|
|
|
Padding.Bottom = 5
|
|
|
|
ShowCaption = False
|
2017-07-18 17:50:28 +02:00
|
|
|
TabOrder = 1
|
|
|
|
object ComboBox1: TComboBox
|
|
|
|
Left = 5
|
|
|
|
Top = 5
|
2017-09-07 10:58:09 +02:00
|
|
|
Width = 721
|
2017-07-18 17:50:28 +02:00
|
|
|
Height = 21
|
|
|
|
Align = alClient
|
|
|
|
ItemIndex = 0
|
|
|
|
TabOrder = 0
|
|
|
|
Text = 'https://www.google.com'
|
|
|
|
Items.Strings = (
|
|
|
|
'https://www.google.com'
|
|
|
|
'https://html5demos.com/drag')
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|
2017-07-28 12:47:57 +02:00
|
|
|
object Panel2: TPanel
|
2017-09-07 10:58:09 +02:00
|
|
|
Left = 726
|
2017-07-28 12:47:57 +02:00
|
|
|
Top = 5
|
2017-09-07 10:58:09 +02:00
|
|
|
Width = 69
|
2017-07-28 12:47:57 +02:00
|
|
|
Height = 20
|
|
|
|
Margins.Left = 2
|
|
|
|
Margins.Top = 2
|
|
|
|
Margins.Right = 2
|
|
|
|
Margins.Bottom = 2
|
|
|
|
Align = alRight
|
|
|
|
BevelOuter = bvNone
|
2017-09-07 10:58:09 +02:00
|
|
|
Padding.Left = 4
|
2017-07-28 12:47:57 +02:00
|
|
|
ShowCaption = False
|
|
|
|
TabOrder = 1
|
|
|
|
object GoBtn: TButton
|
|
|
|
Left = 4
|
|
|
|
Top = 0
|
|
|
|
Width = 31
|
|
|
|
Height = 20
|
|
|
|
Margins.Left = 5
|
2017-09-07 10:58:09 +02:00
|
|
|
Align = alLeft
|
2017-07-28 12:47:57 +02:00
|
|
|
Caption = 'Go'
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = GoBtnClick
|
|
|
|
end
|
2017-09-07 10:58:09 +02:00
|
|
|
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
|
2017-07-28 12:47:57 +02:00
|
|
|
end
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|
2017-07-18 17:50:28 +02:00
|
|
|
object Panel1: TPanel
|
2017-01-27 18:14:48 +01:00
|
|
|
Left = 0
|
|
|
|
Top = 30
|
2017-07-28 12:47:57 +02:00
|
|
|
Width = 800
|
|
|
|
Height = 480
|
2017-01-27 18:14:48 +01:00
|
|
|
Align = alClient
|
2017-07-18 17:50:28 +02:00
|
|
|
BevelOuter = bvNone
|
|
|
|
ShowCaption = False
|
|
|
|
TabOrder = 0
|
|
|
|
TabStop = True
|
|
|
|
OnEnter = Panel1Enter
|
|
|
|
OnExit = Panel1Exit
|
|
|
|
object PaintBox: TPaintBox32
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
2017-07-28 12:47:57 +02:00
|
|
|
Width = 800
|
|
|
|
Height = 480
|
2017-07-18 17:50:28 +02:00
|
|
|
Align = alClient
|
|
|
|
TabOrder = 0
|
|
|
|
OnClick = PaintBoxClick
|
|
|
|
OnMouseDown = PaintBoxMouseDown
|
|
|
|
OnMouseMove = PaintBoxMouseMove
|
|
|
|
OnMouseUp = PaintBoxMouseUp
|
|
|
|
OnMouseWheel = PaintBoxMouseWheel
|
2017-07-28 12:47:57 +02:00
|
|
|
OnMouseLeave = PaintBoxMouseLeave
|
2017-07-18 17:50:28 +02:00
|
|
|
OnResize = PaintBoxResize
|
|
|
|
end
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|
|
|
|
object chrmosr: TChromium
|
2017-07-18 17:50:28 +02:00
|
|
|
OnAfterCreated = chrmosrAfterCreated
|
2017-01-27 18:14:48 +01:00
|
|
|
OnGetViewRect = chrmosrGetViewRect
|
|
|
|
OnGetScreenPoint = chrmosrGetScreenPoint
|
2017-07-28 12:47:57 +02:00
|
|
|
OnGetScreenInfo = chrmosrGetScreenInfo
|
2017-04-24 12:57:16 +02:00
|
|
|
OnPopupShow = chrmosrPopupShow
|
|
|
|
OnPopupSize = chrmosrPopupSize
|
2017-01-27 18:14:48 +01:00
|
|
|
OnPaint = chrmosrPaint
|
|
|
|
OnCursorChange = chrmosrCursorChange
|
2017-07-12 17:00:34 +02:00
|
|
|
Left = 24
|
|
|
|
Top = 56
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|
|
|
|
object AppEvents: TApplicationEvents
|
|
|
|
OnMessage = AppEventsMessage
|
2017-07-12 17:00:34 +02:00
|
|
|
Left = 24
|
|
|
|
Top = 128
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|
2017-09-07 10:58:09 +02:00
|
|
|
object SaveDialog1: TSaveDialog
|
|
|
|
DefaultExt = 'bmp'
|
|
|
|
Filter = 'Bitmap files (*.bmp)|*.BMP'
|
|
|
|
Title = 'Save snapshot'
|
2017-11-04 18:32:29 +01:00
|
|
|
Left = 24
|
|
|
|
Top = 278
|
|
|
|
end
|
|
|
|
object Timer1: TTimer
|
|
|
|
Enabled = False
|
|
|
|
Interval = 300
|
|
|
|
OnTimer = Timer1Timer
|
|
|
|
Left = 24
|
|
|
|
Top = 206
|
2017-09-07 10:58:09 +02:00
|
|
|
end
|
2017-01-27 18:14:48 +01:00
|
|
|
end
|