object FormDrawRtfText: TFormDrawRtfText
Left = 0
Top = 0
Caption = 'DrawRtfText Example'
ClientHeight = 393
ClientWidth = 473
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 Panel1: TPanel
Left = 0
Top = 0
Width = 153
Height = 393
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 48
Width = 49
Height = 13
Caption = 'Alignment:'
end
object Label2: TLabel
Left = 8
Top = 163
Width = 30
Height = 13
Caption = '&Zoom:'
FocusControl = ComboBox1
end
object Label3: TLabel
Left = 8
Top = 195
Width = 38
Height = 13
Caption = '&Version:'
FocusControl = ComboBox2
end
object Label4: TLabel
Left = 8
Top = 224
Width = 63
Height = 13
Caption = 'Size: ? x ? px'
end
object Button1: TButton
Left = 8
Top = 8
Width = 65
Height = 25
Caption = '&Load...'
TabOrder = 0
OnClick = Button1Click
end
object Button3: TButton
Left = 80
Top = 8
Width = 65
Height = 25
Caption = '&Update'
TabOrder = 1
OnClick = Button3Click
end
object Panel3: TPanel
Left = 8
Top = 64
Width = 65
Height = 49
BevelOuter = bvNone
TabOrder = 2
object RadioButton1: TRadioButton
Left = 0
Top = 0
Width = 57
Height = 17
Caption = 'Left'
Checked = True
TabOrder = 0
TabStop = True
OnClick = CheckBox2Click
end
object RadioButton2: TRadioButton
Left = 0
Top = 16
Width = 57
Height = 17
Caption = 'Center'
TabOrder = 1
OnClick = CheckBox2Click
end
object RadioButton3: TRadioButton
Left = 0
Top = 32
Width = 57
Height = 17
Caption = 'Right'
TabOrder = 2
OnClick = CheckBox2Click
end
end
object Panel4: TPanel
Left = 80
Top = 64
Width = 65
Height = 49
BevelOuter = bvNone
TabOrder = 3
object RadioButton4: TRadioButton
Left = 0
Top = 0
Width = 57
Height = 17
Caption = 'Top'
Checked = True
TabOrder = 0
TabStop = True
OnClick = CheckBox2Click
end
object RadioButton5: TRadioButton
Left = 0
Top = 16
Width = 57
Height = 17
Caption = 'Middle'
TabOrder = 1
OnClick = CheckBox2Click
end
object RadioButton6: TRadioButton
Left = 0
Top = 32
Width = 57
Height = 17
Caption = 'Bottom'
TabOrder = 2
OnClick = CheckBox2Click
end
end
object CheckBox2: TCheckBox
Left = 8
Top = 128
Width = 57
Height = 17
Caption = 'Wrap'
Checked = True
State = cbChecked
TabOrder = 4
OnClick = CheckBox2Click
end
object Button2: TButton
Left = 80
Top = 124
Width = 65
Height = 25
Caption = 'Font...'
TabOrder = 5
OnClick = Button2Click
end
object ComboBox1: TComboBox
Left = 56
Top = 160
Width = 57
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 6
OnClick = CheckBox2Click
Items.Strings = (
' 5'
' 10'
' 25'
' 50'
' 75'
' 100'
' 125'
' 150'
' 200'
' 250'
' 300'
' 500'
'2000'
'4000'
'6000')
end
object ComboBox2: TComboBox
Left = 56
Top = 192
Width = 49
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 7
OnClick = ComboBox2Click
end
end
object Panel1a: TPanel
Left = 153
Top = 0
Width = 320
Height = 393
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object LabelSep: TLabel
Left = 0
Top = 113
Width = 320
Height = 3
Align = alTop
AutoSize = False
end
object Panel2: TPanel
Left = 0
Top = 116
Width = 320
Height = 277
Align = alClient
BevelOuter = bvNone
BorderStyle = bsSingle
Color = clWindow
TabOrder = 0
object PaintBox1: TPaintBox
Left = 0
Top = 0
Width = 316
Height = 273
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
OnPaint = PaintBox1Paint
end
end
object Memo1: TMemo
Left = 0
Top = 0
Width = 320
Height = 113
Align = alTop
Lines.Strings = (
'Memo1')
MaxLength = 100000000
ScrollBars = ssVertical
TabOrder = 1
end
end
object OpenDialog1: TOpenDialog
Filter = 'RTF files|*.rtf|All files|*.*'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Load RTF file'
Left = 8
Top = 256
end
object FontDialog1: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Left = 40
Top = 256
end
end |