object RichEditWinEh: TRichEditWinEh
  Left = 416
  Top = 327
  ActiveControl = Editor
  BorderIcons = []
  Caption = 'Rich Editor'
  ClientHeight = 408
  ClientWidth = 771
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000088
    88888888888888888888888888000444444444444444444444444444480004FF
    FFFFFFFFFFFFFFFFFFFFFFFF480004F000000FFFFFFFFFFFFFFFFFFF480004F0
    CCCC08000000FFFFFFFFFFFF480004F0CCCC0F09990FFFFFFFFFFFFF480004F0
    CCC00009990FFF00000000FF480004F0CC0BBB0890FFFFFFFFFFFFFF480004F0
    08BBBBB090FFF000000000FF480004FFF0BBBBB80FFFFFFFFFFFFFFF480004FF
    F0BBBBB0FFF00000000000FF480004FFFF0BBB0FFFFFFFFFFFFFFFFF480004FF
    FFF000FFF00000F0000000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004F0
    0000F000000000000F0000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004F0
    000000000F000000000000FF480004FFFFFFFFFFFFFFFFFFFFFFFFFF480004FF
    FFFFFFFFFFFFFFFFFFFFFFFF480004F007FF700F000000FFF000007F480004F7
    00FF700F0087700F0008700F480004FF0000000F008F700F008FFFFF480004FF
    700F007F7087700F007FFFFF480004FFF00700FFF00000FF008FFFFF480004FF
    FF0000FFF007700F7007FFFF480004FFFF0000FFF007700FF000880F480004FF
    FFF007FFF700000FFF00000F480004FFFFFFFFFFFFFFFFFFFFFFFFFF40000444
    444444444444444444444444400000000000000000000000000000000000FFFF
    FFFFFFFFFFFFC000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000380000003800000038000
    0003800000038000000380000003800000038000000780000007FFFFFFFF}
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  FormElements = [ddfeLeftGripEh, ddfeRightGripEh]
  OnInitForm = CustomDropDownFormEhInitForm
  OnReturnParams = CustomDropDownFormEhReturnParams
  DropDownMode = True
  DesignSize = (
    771
    408)
  PixelsPerInch = 96
  TextHeight = 13
  object Ruler: TPanel
    Left = 0
    Top = 30
    Width = 771
    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 = #1082
      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 = #1081
      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 = #1089
      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 = 771
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
  end
  object Editor: TRichEdit
    Left = 0
    Top = 56
    Width = 771
    Height = 292
    Align = alClient
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    HideSelection = False
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
    WantTabs = True
    OnChange = RichEditChange
    OnKeyDown = EditorKeyDown
    OnSelectionChange = SelectionChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 389
    Width = 771
    Height = 19
    Panels = <
      item
        Width = 20
      end
      item
        Width = 120
      end
      item
        Alignment = taCenter
        Width = 60
      end
      item
        Width = 50
      end>
  end
  object StandardToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 771
    Height = 30
    AutoSize = True
    BorderWidth = 2
    Images = ToolbarImages
    Indent = 4
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    object OpenButton: TToolButton
      Left = 4
      Top = 0
      Hint = 'Open an existing file'
      Caption = '&Open...'
      ImageIndex = 1
      OnClick = FileOpen
    end
    object SaveButton: TToolButton
      Left = 27
      Top = 0
      Hint = 'Save current file'
      Caption = '&Save'
      ImageIndex = 2
      OnClick = FileSave
    end
    object PrintButton: TToolButton
      Left = 50
      Top = 0
      Hint = 'Print current file'
      Caption = '&Print'
      ImageIndex = 3
      OnClick = FilePrint
    end
    object ToolButton5: TToolButton
      Left = 73
      Top = 0
      Width = 8
      ImageIndex = 3
      Style = tbsSeparator
    end
    object CutButton: TToolButton
      Left = 81
      Top = 0
      Hint = 'Delete selected item'
      Caption = 'Cu&t'
      ImageIndex = 5
      OnClick = EditCut
    end
    object CopyButton: TToolButton
      Left = 104
      Top = 0
      Hint = 'Copy selected item to clipboard'
      Caption = '&Copy'
      ImageIndex = 6
      OnClick = EditCopy
    end
    object PasteButton: TToolButton
      Left = 127
      Top = 0
      Hint = 'Paste contents of clipboard'
      Caption = '&Paste'
      ImageIndex = 7
      OnClick = EditPaste
    end
    object UndoButton: TToolButton
      Left = 150
      Top = 0
      Hint = 'Undo the last action'
      Caption = '&Undo'
      ImageIndex = 4
      OnClick = EditUndo
    end
    object ToolButton10: TToolButton
      Left = 173
      Top = 0
      Width = 8
      ImageIndex = 7
      Style = tbsSeparator
    end
    object FontName: TComboBox
      Left = 181
      Top = 0
      Width = 173
      Height = 21
      Hint = 'Font Name|Select font name'
      Ctl3D = False
      DropDownCount = 10
      ParentCtl3D = False
      TabOrder = 0
      OnChange = FontNameChange
    end
    object FontSize: TComboBox
      Left = 354
      Top = 0
      Width = 55
      Height = 21
      DropDownCount = 16
      TabOrder = 3
      OnChange = FontSizeChange
      Items.Strings = (
        '8'
        '9'
        '10'
        '11'
        '12'
        '14'
        '16'
        '18'
        '20'
        '22'
        '24'
        '26'
        '28'
        '36'
        '48'
        '72')
    end
    object ToolButton11: TToolButton
      Left = 409
      Top = 0
      Width = 8
      ImageIndex = 8
      Style = tbsSeparator
    end
    object BoldButton: TToolButton
      Left = 417
      Top = 0
      Hint = 'Bold'
      ImageIndex = 8
      Style = tbsCheck
      OnClick = BoldButtonClick
    end
    object ItalicButton: TToolButton
      Left = 440
      Top = 0
      Hint = 'Italic'
      ImageIndex = 9
      Style = tbsCheck
      OnClick = ItalicButtonClick
    end
    object UnderlineButton: TToolButton
      Left = 463
      Top = 0
      Hint = 'Underline'
      ImageIndex = 10
      Style = tbsCheck
      OnClick = UnderlineButtonClick
    end
    object ToolButton16: TToolButton
      Left = 486
      Top = 0
      Width = 8
      ImageIndex = 12
      Style = tbsSeparator
    end
    object LeftAlign: TToolButton
      Left = 494
      Top = 0
      Hint = 'Align Left'
      Grouped = True
      ImageIndex = 11
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object CenterAlign: TToolButton
      Tag = 2
      Left = 517
      Top = 0
      Hint = 'Center'
      Grouped = True
      ImageIndex = 12
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object RightAlign: TToolButton
      Tag = 1
      Left = 540
      Top = 0
      Hint = 'Align Right'
      Grouped = True
      ImageIndex = 13
      Style = tbsCheck
      OnClick = AlignButtonClick
    end
    object ToolButton20: TToolButton
      Left = 563
      Top = 0
      Width = 8
      ImageIndex = 15
      Style = tbsSeparator
    end
    object BulletsButton: TToolButton
      Left = 571
      Top = 0
      Hint = 'Bullets|Enter bullet mode'
      ImageIndex = 14
      Style = tbsCheck
      OnClick = BulletsButtonClick
    end
    object FontSizeOld: TEdit
      Left = 594
      Top = 0
      Width = 92
      Height = 22
      Hint = 'Font Size|Select font size'
      TabOrder = 1
      Text = '0'
      Visible = False
      OnChange = FontSizeOldChange
    end
    object UpDown1: TUpDown
      Left = 702
      Top = 0
      Width = 15
      Height = 22
      Associate = FontSizeOld
      TabOrder = 2
      Visible = False
    end
    object ToolButton1: TToolButton
      Left = 717
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object tbSelectFont: TToolButton
      Left = 725
      Top = 0
      Caption = 'tbSelectFont'
      ImageIndex = 15
      OnClick = SelectFont
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 348
    Width = 771
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    object Panel2: TPanel
      Left = 586
      Top = 0
      Width = 185
      Height = 41
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object OKButton: TButton
        Left = 25
        Top = 10
        Width = 75
        Height = 25
        Caption = '&OK'
        Default = True
        ModalResult = 1
        TabOrder = 0
        OnClick = OKButtonClick
      end
      object CancelButton: TButton
        Left = 106
        Top = 10
        Width = 75
        Height = 25
        Cancel = True
        Caption = 'Cancel'
        ModalResult = 2
        TabOrder = 1
        OnClick = CancelButtonClick
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 238
    Top = 66
    object FileMenu: TMenuItem
      Caption = '&File'
      object FileNewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new file'
        ShortCut = 16462
      end
      object FileOpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing file'
        ShortCut = 16463
        OnClick = FileOpen
      end
      object FileSaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save current file'
        ShortCut = 16467
        OnClick = FileSave
      end
      object FileSaveAsItem: TMenuItem
        Caption = 'Save &As...'
        Hint = 'Save current file under a new name'
        OnClick = FileSaveAs
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FilePrintItem: TMenuItem
        Caption = '&Print'
        Hint = 'Print current file'
        ShortCut = 16464
        OnClick = FilePrint
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit this application'
        ShortCut = 32856
        OnClick = FileExit
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      object EditUndoItem: TMenuItem
        Caption = '&Undo'
        Hint = 'Undo the last action'
        ShortCut = 16474
        OnClick = EditUndo
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object EditCutItem: TMenuItem
        Caption = 'Cu&t'
        Hint = 'Delete selected item'
        ShortCut = 16472
        OnClick = EditCut
      end
      object EditCopyItem: TMenuItem
        Caption = '&Copy'
        Hint = 'Copy selected item to clipboard'
        ShortCut = 16451
        OnClick = EditCopy
      end
      object EditPasteItem: TMenuItem
        Caption = '&Paste'
        Hint = 'Paste contents of clipboard'
        ShortCut = 16470
        OnClick = EditPaste
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object miEditFont: TMenuItem
        Caption = '&Font...'
        OnClick = SelectFont
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
    Left = 174
    Top = 102
  end
  object SaveDialog: TSaveDialog
    Filter = 'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT'
    Left = 206
    Top = 102
  end
  object PrintDialog: TPrintDialog
    Left = 238
    Top = 102
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Left = 142
    Top = 102
  end
  object ToolbarImages: TImageList
    Left = 206
    Top = 66
    Bitmap = {
      [encoded data, 42560 characters]
      000000000000}
  end
end
