object EditForm: TEditForm Left = 317 Top = 238 Width = 435 Height = 300 Caption = 'Untitled' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild Menu = MainMenu1 PopupMenu = PopupMenu1 Position = poDefault Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Editor: TRichEdit Left = 0 Top = 0 Width = 427 Height = 248 Align = alClient BorderStyle = bsNone ScrollBars = ssVertical TabOrder = 0 end object MainMenu1: TMainMenu Left = 184 Top = 112 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&New' ShortCut = 0 OnClick = New1Click end object Open1: TMenuItem Caption = '&Open...' ShortCut = 0 OnClick = Open1Click end object Close1: TMenuItem Caption = '&Close' ShortCut = 0 OnClick = Close1Click end object Save1: TMenuItem Caption = '&Save' ShortCut = 0 OnClick = Save1Click end object Saveas1: TMenuItem Caption = 'Save &as...' ShortCut = 0 OnClick = Saveas1Click end object Print1: TMenuItem Caption = '&Print' ShortCut = 0 OnClick = Print1Click end object Printersetup1: TMenuItem Caption = 'Printer setup...' ShortCut = 0 OnClick = Printersetup1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' GroupIndex = 1 ShortCut = 0 OnClick = Edit1Click object Cut1: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = Cut1Click end object Copy1: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = Copy1Click end object Paste1: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = Paste1Click end object Delete1: TMenuItem Caption = 'De&lete' ShortCut = 16452 OnClick = Delete1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Selectall1: TMenuItem Caption = 'Select &all' ShortCut = 16449 OnClick = Selectall1Click end end object Character1: TMenuItem Caption = '&Character' GroupIndex = 1 ShortCut = 0 object Left1: TMenuItem Caption = '&Left' Checked = True ShortCut = 0 OnClick = Left1Click end object Right1: TMenuItem Caption = '&Right' ShortCut = 0 OnClick = Left1Click end object Center1: TMenuItem Caption = '&Center' ShortCut = 0 OnClick = Left1Click end object N4: TMenuItem Caption = '-' ShortCut = 0 end object Wordwrap1: TMenuItem Caption = '&Word wrap' Checked = True ShortCut = 0 OnClick = Wordwrap1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object Font1: TMenuItem Caption = '&Font...' ShortCut = 0 OnClick = Font1Click end end end object PopupMenu1: TPopupMenu Left = 96 Top = 64 object Cut2: TMenuItem Caption = 'Cu&t' ShortCut = 0 OnClick = Cut1Click end object Copy2: TMenuItem Caption = '&Copy' ShortCut = 0 OnClick = Copy1Click end object Paste2: TMenuItem Caption = '&Paste' ShortCut = 0 OnClick = Paste1Click end end object SaveFileDialog: TSaveDialog DefaultExt = 'rtf' FileEditStyle = fsEdit Filter = 'Rich text files (*.rtf)|*.rtf|Plain text files (*.txt)|*.txt|All' + ' files|*.*' Options = [ofHideReadOnly, ofFileMustExist, ofNoReadOnlyReturn] Left = 56 Top = 64 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 136 Top = 64 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 176 Top = 64 end object PrintDialog1: TPrintDialog Left = 216 Top = 64 end end