home *** CD-ROM | disk | FTP | other *** search
- object MDIChild: TMDIChild
- Left = 323
- Top = 309
- Width = 438
- Height = 231
- ActiveControl = FileEditor1
- Caption = 'MDI Child'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIChild
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poDefault
- Visible = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- TextHeight = 16
- object FileEditor1: TFileEditor
- Left = 0
- Top = 0
- Width = 430
- Height = 185
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ShowLineBreaks = True
- WrapMode = opNone
- MaxLineLength = 72
- OnStateChange = FileEditor1StateChange
- OnProgressEvent = FileEditor1ProgressEvent
- OnSaveModePrompt = FileEditor1SaveModePrompt
- OnSaveNewFile = SaveAs1Click
- OnNewFileName = FileEditor1NewFileName
- OnSaveModified = FileEditor1SaveModified
- OnCaretMoved = FileEditor1CaretMoved
- OnEnter = FileEditor1Enter
- OnExit = FileEditor1Exit
- OnWrapModeChange = FileEditor1WrapModeChange
- OnAbortRequest = FileEditor1AbortRequest
- OnReplaceAll = FileEditor1ReplaceAll
- end
- object MainMenu1: TMainMenu
- AutoMerge = True
- Left = 38
- Top = 5
- object File1: TMenuItem
- Caption = '&File'
- object New1: TMenuItem
- Caption = '&New'
- GroupIndex = 1
- OnClick = New1Click
- end
- object Open1: TMenuItem
- Caption = '&Open'
- GroupIndex = 1
- OnClick = Open1Click
- end
- object Close1: TMenuItem
- Caption = '&Close'
- GroupIndex = 1
- OnClick = Close1Click
- end
- object N1: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object Save1: TMenuItem
- Caption = '&Save'
- GroupIndex = 1
- OnClick = Save1Click
- end
- object SaveAs1: TMenuItem
- Caption = 'Save &As'
- GroupIndex = 1
- OnClick = SaveAs1Click
- end
- object N2: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object Print1: TMenuItem
- Caption = '&Print'
- GroupIndex = 1
- OnClick = Print1Click
- end
- object PrintSetup1: TMenuItem
- Caption = 'Print Setu&p'
- GroupIndex = 1
- OnClick = PrintSetup1Click
- end
- object N3: TMenuItem
- Caption = '-'
- GroupIndex = 1
- end
- object Exit1: TMenuItem
- Caption = '&Exit'
- GroupIndex = 1
- OnClick = Exit1Click
- ShortCutText = 'Alt+X'
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- GroupIndex = 20
- object Undo1: TMenuItem
- Caption = '&Undo'
- OnClick = Undo1Click
- ShortCutText = 'Alt+BkSp'
- end
- object Redo1: TMenuItem
- Caption = '&Redo'
- OnClick = Redo1Click
- ShortCutText = 'Alt+R'
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object Cut1: TMenuItem
- Caption = 'Cu&t'
- OnClick = Cut1Click
- ShortCutText = 'Ctrl+X'
- end
- object Copy1: TMenuItem
- Caption = '&Copy'
- OnClick = Copy1Click
- ShortCutText = 'Ctrl+C'
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- OnClick = Paste1Click
- ShortCutText = 'Ctrl+V'
- end
- object N5: TMenuItem
- Caption = '-'
- end
- object FlowText1: TMenuItem
- Caption = '&Flow Text'
- OnClick = FlowText1Click
- ShortCutText = 'Shift+F5'
- end
- object Capitalise1: TMenuItem
- Caption = 'Capitalise &Words'
- OnClick = Capitalise1Click
- ShortCutText = 'Shift+F3'
- end
- object N6: TMenuItem
- Caption = '-'
- ShortCutText = '-'
- end
- object InsertPageBreak1: TMenuItem
- Caption = 'Insert Page &Break'
- OnClick = InsertPageBreak1Click
- ShortCutText = 'Ctrl+L'
- end
- object InsertDateTime1: TMenuItem
- Caption = 'Insert &Date/Time'
- OnClick = InsertDateTime1Click
- ShortCutText = 'F5'
- end
- object N7: TMenuItem
- Caption = '-'
- end
- object SelectAll1: TMenuItem
- Caption = '&Select All'
- OnClick = SelectAll1Click
- end
- end
- object Search1: TMenuItem
- Caption = '&Search'
- GroupIndex = 20
- object Find1: TMenuItem
- Caption = '&Find'
- OnClick = Find1Click
- ShortCutText = 'Ctrl+F'
- end
- object FindNext1: TMenuItem
- Caption = 'Find &Next'
- OnClick = FindNext1Click
- ShortCutText = 'F3'
- end
- object Replace1: TMenuItem
- Caption = '&Replace'
- OnClick = Replace1Click
- end
- object GotoLine1: TMenuItem
- Caption = '&Goto Line'
- OnClick = GotoLine1Click
- end
- end
- object Options1: TMenuItem
- Caption = '&Options'
- GroupIndex = 20
- object Font1: TMenuItem
- Caption = '&Font'
- OnClick = Font1Click
- end
- object Colour1: TMenuItem
- Caption = '&Colour'
- OnClick = Colour1Click
- end
- object MaxLineLength1: TMenuItem
- Caption = '&Max. Line Length'
- OnClick = MaxLineLength1Click
- end
- end
- end
- object FindDialog1: TFindDialog
- OnFind = FindDialog1Find
- Left = 66
- Top = 5
- end
- object FontDialog1: TFontDialog
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 94
- Top = 6
- end
- object SaveDialog1: TSaveDialog
- Filter = 'Text Files (*.txt)|*.txt|All Files (*.*)|*.*'
- Options = [ofOverwritePrompt, ofHideReadOnly]
- Left = 121
- Top = 6
- end
- object PrintDialog1: TPrintDialog
- Left = 149
- Top = 6
- end
- object ReplaceDialog1: TReplaceDialog
- OnFind = FindDialog1Find
- OnReplace = ReplaceDialog1Find
- Left = 176
- Top = 6
- end
- object ColorDialog1: TColorDialog
- Left = 203
- Top = 7
- end
- object PopupMenu1: TPopupMenu
- Left = 231
- Top = 7
- object Find2: TMenuItem
- Caption = '&Find'
- OnClick = Find1Click
- end
- object N8: TMenuItem
- Caption = '-'
- end
- object Cut2: TMenuItem
- Caption = 'Cu&t'
- OnClick = Cut1Click
- end
- object Copy2: TMenuItem
- Caption = '&Copy'
- OnClick = Copy1Click
- end
- object Paste2: TMenuItem
- Caption = '&Paste'
- OnClick = Paste1Click
- end
- object N9: TMenuItem
- Caption = '-'
- end
- object FlowText2: TMenuItem
- Caption = 'Flow &Text'
- OnClick = FlowText1Click
- end
- end
- end
-