home *** CD-ROM | disk | FTP | other *** search
- object RichEdit98Editor: TRichEdit98Editor
- Left = 348
- Top = 244
- Width = 451
- Height = 323
- Caption = 'RichEdit98 Editor'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object ToolBar: TToolBar
- Left = 0
- Top = 0
- Width = 443
- Height = 22
- EdgeBorders = []
- Flat = True
- Images = ImageList
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object FontList: TComboBox
- Left = 0
- Top = 0
- Width = 171
- Height = 24
- TabStop = False
- Style = csOwnerDrawVariable
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 18
- ParentFont = False
- TabOrder = 0
- OnChange = FontListChange
- OnDrawItem = FontListDrawItem
- end
- object SizeList: TComboBox
- Left = 171
- Top = 0
- Width = 51
- Height = 24
- TabStop = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 1
- Text = '10'
- OnChange = SizeListChange
- OnDropDown = SizeListDropDown
- OnKeyUp = SizeListKeyUp
- Items.Strings = (
- '8'
- '9'
- '10'
- '11'
- '12'
- '14'
- '16'
- '18'
- '20'
- '22'
- '24'
- '28'
- '32'
- '36'
- '48'
- '72')
- end
- object ToolButton10: TToolButton
- Left = 222
- Top = 0
- Width = 8
- Caption = 'ToolButton10'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object BoldBtn: TToolButton
- Left = 230
- Top = 0
- Hint = 'Bold'
- Caption = 'BoldBtn'
- ImageIndex = 0
- Style = tbsCheck
- OnClick = BoldBtnClick
- end
- object ItalicBtn: TToolButton
- Left = 253
- Top = 0
- Hint = 'Italic'
- Caption = 'ItalicBtn'
- ImageIndex = 1
- Style = tbsCheck
- OnClick = ItalicBtnClick
- end
- object UnderlineBtn: TToolButton
- Left = 276
- Top = 0
- Hint = 'Underline'
- Caption = 'UnderlineBtn'
- ImageIndex = 2
- Style = tbsCheck
- OnClick = UnderlineBtnClick
- end
- object ToolButton1: TToolButton
- Left = 299
- Top = 0
- Width = 8
- Caption = 'ToolButton1'
- ImageIndex = 7
- Style = tbsSeparator
- end
- object LeftBtn: TToolButton
- Left = 307
- Top = 0
- Hint = 'Left'
- Caption = 'LeftBtn'
- Down = True
- Grouped = True
- ImageIndex = 3
- Style = tbsCheck
- OnClick = LeftBtnClick
- end
- object CenterBtn: TToolButton
- Left = 330
- Top = 0
- Hint = 'Center'
- Caption = 'CenterBtn'
- Grouped = True
- ImageIndex = 4
- Style = tbsCheck
- OnClick = CenterBtnClick
- end
- object RightBtn: TToolButton
- Left = 353
- Top = 0
- Hint = 'Right'
- Caption = 'RightBtn'
- Grouped = True
- ImageIndex = 5
- Style = tbsCheck
- OnClick = RightBtnClick
- end
- object JustifyBtn: TToolButton
- Left = 376
- Top = 0
- Hint = 'Justify'
- Caption = 'JustifyBtn'
- Grouped = True
- ImageIndex = 6
- Style = tbsCheck
- OnClick = JustifyBtnClick
- end
- object ToolButton4: TToolButton
- Left = 399
- Top = 0
- Width = 8
- Caption = 'ToolButton4'
- ImageIndex = 9
- Style = tbsSeparator
- end
- object BulletBtn: TToolButton
- Left = 407
- Top = 0
- Hint = 'Bullet'
- Caption = 'BulletBtn'
- ImageIndex = 7
- Style = tbsCheck
- OnClick = BulletBtnClick
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 267
- Width = 443
- Height = 29
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object OkButton: TButton
- Left = 127
- Top = 4
- Width = 89
- Height = 23
- Caption = 'OK'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 0
- TabStop = False
- end
- object CancelButton: TButton
- Left = 227
- Top = 4
- Width = 89
- Height = 23
- Caption = 'Cancel'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 1
- TabStop = False
- end
- end
- object ImageList: TImageList
- ShareImages = True
- Left = 330
- Top = 200
- end
- end
-