object FormRtfLabelExample: TFormRtfLabelExample
Left = 0
Top = 0
Caption = 'RtfLabel Example'
ClientHeight = 361
ClientWidth = 481
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 481
Height = 105
Align = alTop
MaxLength = 100000000
ScrollBars = ssVertical
TabOrder = 0
end
object Panel1: TPanel
Left = 0
Top = 105
Width = 481
Height = 44
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object Label1: TLabel
Left = 192
Top = 3
Width = 30
Height = 13
Caption = '&Zoom:'
FocusControl = ComboBox1
end
object Label2: TLabel
Left = 256
Top = 3
Width = 38
Height = 13
Caption = '&Version:'
FocusControl = ComboBox2
end
object CheckBox1: TCheckBox
Left = 9
Top = 6
Width = 81
Height = 17
Caption = '&Transparent'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 8
Top = 22
Width = 81
Height = 17
Caption = '&Wordwrap'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CheckBox2Click
end
object CheckBox3: TCheckBox
Left = 96
Top = 4
Width = 89
Height = 17
Caption = '&Padding (4px)'
Checked = True
State = cbChecked
TabOrder = 2
OnClick = CheckBox3Click
end
object CheckBox4: TCheckBox
Left = 96
Top = 22
Width = 81
Height = 17
Caption = '&Autosize'
Checked = True
State = cbChecked
TabOrder = 3
OnClick = CheckBox4Click
end
object ComboBox1: TComboBox
Left = 192
Top = 18
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnClick = ComboBox1Click
Items.Strings = (
' 5'
' 10'
' 25'
' 50'
' 75'
' 100'
' 125'
' 150'
' 200'
' 250'
' 300'
' 500'
'2000'
'4000'
'6000')
end
object Panel2: TPanel
Left = 312
Top = 0
Width = 169
Height = 44
Align = alRight
BevelOuter = bvNone
ParentColor = True
TabOrder = 5
object Button1: TButton
Left = 8
Top = 8
Width = 73
Height = 25
Caption = '&Load'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 88
Top = 8
Width = 73
Height = 25
Caption = '&Update'
TabOrder = 1
OnClick = Button2Click
end
end
object ComboBox2: TComboBox
Left = 256
Top = 18
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 6
OnClick = ComboBox2Click
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 149
Width = 481
Height = 212
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
Color = clWindow
ParentColor = False
TabOrder = 2
OnResize = ScrollBox1Resize
object PaintBox1: TPaintBox
Left = 0
Top = 0
Width = 477
Height = 208
Align = alClient
OnPaint = PaintBox1Paint
end
end
object OpenDialog1: TOpenDialog
DefaultExt = 'rtf'
Filter = 'RTF files|*.rtf|All files|*.*'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Load RTF file'
Left = 200
Top = 8
end
end |