object MDIChild: TMDIChild Left = 0 Top = 2 Width = 640 Height = 450 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] FormStyle = fsMDIChild OldCreateOrder = True Position = poDefault Visible = True WindowState = wsMaximized OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object StatusBar1: TStatusBar Left = 0 Top = 404 Width = 632 Height = 19 Panels = < item Width = 50 end item Alignment = taCenter Width = 60 end item Width = 40 end> SimplePanel = False end object EditedText: TRichEdit Left = 0 Top = 0 Width = 632 Height = 404 Align = alClient HideScrollBars = False PlainText = True ScrollBars = ssBoth TabOrder = 1 WordWrap = False OnChange = EditedTextSelectionChange OnKeyDown = EditedTextKeyDown OnKeyUp = EditedTextKeyUp OnMouseDown = EditedTextMouseDown OnSelectionChange = EditedTextSelectionChange end object SaveDialog: TSaveDialog Filter = 'All files|*.*|HTML files|*.html|HTM files|*.htm' FilterIndex = 2 Left = 52 Top = 13 end object FormStorage1: TFormStorage IniSection = '\Software\DRHTML\MainForm' Options = [] UseRegistry = True StoredProps.Strings = ( 'SaveDialog.InitialDir' 'SaveDialog.FilterIndex') Left = 16 Top = 8 end end