mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-21 13:28:18 +02:00
125 lines
2.7 KiB
Plaintext
125 lines
2.7 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 252
|
|
Height = 660
|
|
Top = 130
|
|
Width = 966
|
|
Caption = 'Example for turbopower internet pro HTML control: Tree of HTML nodes'
|
|
ClientHeight = 660
|
|
ClientWidth = 966
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.9.0.0'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 626
|
|
Top = 34
|
|
Width = 274
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
ClientHeight = 626
|
|
ClientWidth = 274
|
|
TabOrder = 0
|
|
object TreeView1: TTreeView
|
|
Left = 4
|
|
Height = 426
|
|
Top = 0
|
|
Width = 270
|
|
Align = alClient
|
|
BorderSpacing.Left = 4
|
|
TabOrder = 0
|
|
OnChange = TreeView1Change
|
|
end
|
|
object ListBox1: TListBox
|
|
Left = 4
|
|
Height = 180
|
|
Top = 431
|
|
Width = 270
|
|
Align = alBottom
|
|
BorderSpacing.Left = 4
|
|
ItemHeight = 0
|
|
OnDblClick = ListBox1DblClick
|
|
TabOrder = 1
|
|
end
|
|
object Splitter2: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 5
|
|
Top = 426
|
|
Width = 274
|
|
Align = alBottom
|
|
ResizeAnchor = akBottom
|
|
end
|
|
object Label1: TLabel
|
|
Left = 4
|
|
Height = 15
|
|
Top = 611
|
|
Width = 270
|
|
Align = alBottom
|
|
BorderSpacing.Left = 4
|
|
Caption = 'Double-click to edit value'
|
|
ParentColor = False
|
|
end
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 274
|
|
Height = 626
|
|
Top = 34
|
|
Width = 5
|
|
end
|
|
object IpHtmlPanel1: TIpHtmlPanel
|
|
Left = 279
|
|
Height = 626
|
|
Top = 34
|
|
Width = 687
|
|
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
|
|
PrintSettings.Preview.Left = 480
|
|
PrintSettings.Preview.Top = 270
|
|
PrintSettings.Preview.Width = 1440
|
|
PrintSettings.Preview.Height = 810
|
|
TabOrder = 2
|
|
OnCurElementChange = IpHtmlPanel1CurElementChange
|
|
OnHotChange = IpHtmlPanel1HotChange
|
|
OnHotClick = IpHtmlPanel1HotClick
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Height = 34
|
|
Top = 0
|
|
Width = 966
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 34
|
|
ClientWidth = 966
|
|
TabOrder = 3
|
|
object BtnOpenHTMLFile: TButton
|
|
AnchorSideLeft.Control = Panel2
|
|
AnchorSideTop.Control = Panel2
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 4
|
|
Height = 25
|
|
Top = 5
|
|
Width = 112
|
|
AutoSize = True
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 4
|
|
BorderSpacing.Bottom = 4
|
|
Caption = 'Open HTML File'
|
|
OnClick = BtnOpenHTMLFileClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
left = 591
|
|
top = 133
|
|
end
|
|
end
|