object frVistaRichEdit: TfrVistaRichEdit
  Left = 0
  Top = 0
  Width = 625
  Height = 209
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  ParentColor = False
  ParentFont = False
  TabOrder = 0
  OnResize = FormResize
  OnShow = FormShow
  object Ruler: TPanel
    Left = 0
    Top = 32
    Width = 625
    Height = 26
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = 'asdf'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnResize = RulerResize
    object FirstInd: TLabel
      Left = 2
      Top = 2
      Width = 10
      Height = 9
      AutoSize = False
      Caption = #234
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = FirstIndMouseUp
    end
    object LeftInd: TLabel
      Left = 2
      Top = 12
      Width = 10
      Height = 11
      AutoSize = False
      Caption = #233
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = LeftIndMouseUp
    end
    object RulerLine: TBevel
      Left = 4
      Top = 12
      Width = 579
      Height = 2
      Shape = bsTopLine
    end
    object RightInd: TLabel
      Left = 575
      Top = 14
      Width = 9
      Height = 12
      Caption = #241
      DragCursor = crArrow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      OnMouseDown = RulerItemMouseDown
      OnMouseMove = RulerItemMouseMove
      OnMouseUp = RightIndMouseUp
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 625
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
  end
  object Editor: TRichEdit
    Left = 0
    Top = 58
    Width = 625
    Height = 132
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 1
    OnChange = RichEditChange
    OnSelectionChange = SelectionChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 190
    Width = 625
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Alignment = taCenter
        Width = 60
      end
      item
        Width = 50
      end>
  end
  object StandardToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 625
    AutoSize = True
    BorderWidth = 2
    Flat = True
    Images = ToolbarImages
    Indent = 4
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Wrapable = False
    object CutButton: TToolButton
      Left = 4
      Top = 0
      Action = EditCutCmd
    end
    object CopyButton: TToolButton
      Left = 27
      Top = 0
      Action = EditCopyCmd
    end
    object PasteButton: TToolButton
      Left = 50
      Top = 0
      Action = EditPasteCmd
    end
    object UndoButton: TToolButton
      Left = 73
      Top = 0
      Action = EditUndoCmd
    end
    object ToolButton10: TToolButton
      Left = 96
      Top = 0
      Width = 8
      ImageIndex = 7
      Style = tbsSeparator
    end
    object FontName: TComboBox
      Left = 104
      Top = 0
      Width = 173
      Height = 21
      Hint = 'Font Name|Select font name'
      Ctl3D = False
      DropDownCount = 10
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 0
      OnChange = FontNameChange
    end
    object ToolButton11: TToolButton
      Left = 277
      Top = 0
      Width = 8
      ImageIndex = 8
      Style = tbsSeparator
    end
    object FontSize: TEdit
      Left = 285
      Top = 0
      Width = 26
      Height = 22
      Hint = 'Font Size|Select font size'
      TabOrder = 1
      Text = '0'
      OnChange = FontSizeChange
    end
    object UpDown1: TUpDown
      Left = 311
      Top = 0
      Width = 15
      Height = 22
      Associate = FontSize
      TabOrder = 2
    end
    object ToolButton2: TToolButton
      Left = 326
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object BoldButton: TToolButton
      Left = 334
      Top = 0
      Hint = 'Bold'
      ImageIndex = 8
      Style = tbsCheck
      OnClick = BoldButtonClick
    end
    object ItalicButton: TToolButton
      Left = 357
      Top = 0
      Hint = 'Italic'
      ImageIndex = 9
      Style = tbsCheck
      OnClick = ItalicButtonClick
    end
    object UnderlineButton: TToolButton
      Left = 380
      Top = 0
      Hint = 'Underline'
      ImageIndex = 10
      Style = tbsCheck
      OnClick = UnderlineButtonClick
    end
    object ToolButton16: TToolButton
      Left = 403
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsDivider
    end
    object LeftAlign: TToolButton
      Left = 411
      Top = 0
      Hint = 'Align Left'
      Grouped = True
      ImageIndex = 11
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object CenterAlign: TToolButton
      Tag = 2
      Left = 434
      Top = 0
      Hint = 'Center'
      Grouped = True
      ImageIndex = 12
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object RightAlign: TToolButton
      Tag = 1
      Left = 457
      Top = 0
      Hint = 'Align Right'
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object ToolButton20: TToolButton
      Left = 480
      Top = 0
      Width = 8
      ImageIndex = 15
      Style = tbsDivider
    end
    object BulletsButton: TToolButton
      Left = 488
      Top = 0
      Hint = 'Bullets|Enter bullet mode'
      ImageIndex = 14
      Style = tbsCheck
      OnClick = BulletsButtonClick
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 24
    Top = 104
  end
  object ToolbarImages: TImageList
    Left = 88
    Top = 68
    Bitmap = {
[encoded data, 47215 characters]
      000000000000}
  end
  object ActionList2: TActionList
    Images = ToolbarImages
    OnUpdate = ActionList2Update
    Left = 56
    Top = 68
    object EditUndoCmd: TAction
      Category = 'Edit'
      Caption = '&Undo'
      Hint = 'Undo the last action'
      ImageIndex = 4
      ShortCut = 16474
      OnExecute = EditUndo
    end
    object EditCutCmd: TAction
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Delete selected item'
      ImageIndex = 5
      ShortCut = 16472
      OnExecute = EditCut
    end
    object EditCopyCmd: TAction
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy selected item to clipboard'
      ImageIndex = 6
      ShortCut = 16451
      OnExecute = EditCopy
    end
    object EditPasteCmd: TAction
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste contents of clipboard'
      ImageIndex = 7
      ShortCut = 16470
      OnExecute = EditPaste
    end
    object EditFontCmd: TAction
      Category = 'Edit'
      Caption = '&Font...'
      OnExecute = SelectFont
    end
  end
end
