mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 18:18:25 +02:00
68 lines
1.5 KiB
Plaintext
68 lines
1.5 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 315
|
|
Height = 327
|
|
Top = 177
|
|
Width = 569
|
|
HorzScrollBar.Page = 568
|
|
VertScrollBar.Page = 326
|
|
ActiveControl = OpenHTMLFileButton1
|
|
Caption = 'Example for turbopower internet pro HTML control'
|
|
ClientHeight = 327
|
|
ClientWidth = 569
|
|
OnCreate = MainFormCreate
|
|
LCLVersion = '0.9.29'
|
|
object IpHtmlPanel1: TIpHtmlPanel
|
|
Left = 0
|
|
Height = 285
|
|
Top = 42
|
|
Width = 569
|
|
Align = alClient
|
|
FixedTypeface = 'Courier New'
|
|
DefaultTypeFace = 'default'
|
|
DefaultFontSize = 12
|
|
FlagErrors = False
|
|
PrintSettings.MarginLeft = 0.5
|
|
PrintSettings.MarginTop = 0.5
|
|
PrintSettings.MarginRight = 0.5
|
|
PrintSettings.MarginBottom = 0.5
|
|
TabOrder = 1
|
|
OnHotClick = IpHtmlPanel1HotClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 42
|
|
Top = 0
|
|
Width = 569
|
|
Align = alTop
|
|
ClientHeight = 42
|
|
ClientWidth = 569
|
|
TabOrder = 0
|
|
object OpenHTMLFileButton1: TButton
|
|
Left = 16
|
|
Height = 26
|
|
Top = 8
|
|
Width = 152
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Open HTML File'
|
|
OnClick = OpenHTMLFileButtonClick
|
|
TabOrder = 0
|
|
end
|
|
object Button1: TButton
|
|
Left = 192
|
|
Height = 25
|
|
Top = 8
|
|
Width = 75
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Preview'
|
|
OnClick = Button1Click
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Filter = 'Web Pages|*.html;*.htm'
|
|
FilterIndex = 0
|
|
left = 24
|
|
top = 120
|
|
end
|
|
end
|