home *** CD-ROM | disk | FTP | other *** search
- object EditorForm: TEditorForm
- Left = 148
- Top = 215
- Width = 528
- Height = 387
- Caption = 'EditorForm'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Scaled = False
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnDragOver = FormDragOver
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar: TStatusBar
- Left = 0
- Top = 341
- Width = 520
- Height = 19
- Panels = <
- item
- Alignment = taCenter
- Text = '1:1'
- Width = 70
- end
- item
- Alignment = taCenter
- Width = 70
- end
- item
- Width = 70
- end
- item
- Width = 100
- end>
- SimplePanel = False
- end
- object Page: TPageControl
- Left = 0
- Top = 0
- Width = 520
- Height = 292
- Align = alClient
- DragCursor = crDefault
- PopupMenu = PopupMenu1
- TabOrder = 2
- OnChange = PageChange
- OnMouseDown = PageMouseDown
- end
- object SplitPanel: TPanel
- Left = 0
- Top = 292
- Width = 520
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- DragCursor = crVSplit
- DragMode = dmAutomatic
- TabOrder = 3
- Visible = False
- OnDragOver = SplitPanelDragOver
- OnEndDrag = SplitPanelEndDrag
- end
- object KeyCodeList: TListBox
- Left = 328
- Top = 184
- Width = 169
- Height = 89
- Cursor = crArrow
- TabStop = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ImeName = '�ѱ���(�ѱ�)'
- ItemHeight = 13
- Items.Strings = (
- 'array[]'
- 'bool '
- 'class '
- 'do'
- 'e'
- 'f'
- 'g'
- 'h'
- 'Interface'
- 'j'
- 'k'
- 'l'
- 'm'
- 'n'
- 'o'
- 'public '
- 'q'
- 'r'
- 's'
- 'try'
- 'u'
- 'void '
- 'w'
- 'x'
- 'y'
- 'z')
- ParentFont = False
- Sorted = True
- TabOrder = 0
- Visible = False
- OnClick = KeyCodeListClick
- OnExit = KeyCodeListExit
- OnKeyDown = KeyCodeListKeyDown
- end
- object MessageWindow: TListBox
- Left = 0
- Top = 295
- Width = 520
- Height = 46
- Align = alBottom
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ImeName = '�ѱ���(�ѱ�)'
- ItemHeight = 16
- ParentFont = False
- TabOrder = 4
- Visible = False
- OnDblClick = MessageWindowDblClick
- OnDragOver = MessageWindowDragOver
- end
- object OpenDialog1: TOpenDialog
- Filter =
- 'Java files (*.java)|*.java|HTML files (*.html)|*.html|Text files' +
- ' (*.txt)|*.txt|Any file (*.*)|*.*'
- Options = [ofOverwritePrompt, ofPathMustExist]
- Left = 7
- Top = 212
- end
- object SaveDialog1: TSaveDialog
- Filter =
- 'Java files (*.java)|*.java|HTML files (*.html)|*.html|Text files' +
- ' (*.txt)|*.txt|Any file (*.*)|*.*'
- Options = [ofPathMustExist]
- Left = 36
- Top = 212
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 65
- Top = 212
- object CodeAssistant: TMenuItem
- Enabled = False
- ShortCut = 16458
- Visible = False
- OnClick = CodeAssistantClick
- end
- object Open1: TMenuItem
- Caption = 'Ope&n'
- ShortCut = 16463
- OnClick = Open1Click
- end
- object Close1: TMenuItem
- Caption = 'Clo&se'
- ShortCut = 16499
- OnClick = Close1Click
- end
- object RefreshEditor1: TMenuItem
- Caption = '&Refresh Editor'
- OnClick = RefreshEditor1Click
- end
- object FindFrame1: TMenuItem
- Caption = '&Find Frame'
- ShortCut = 123
- OnClick = FindFrame1Click
- end
- object HelpTopics1: TMenuItem
- Caption = '&Help Topics'
- ShortCut = 112
- OnClick = HelpTopics1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Copy1: TMenuItem
- Caption = '&Copy'
- ShortCut = 16451
- OnClick = Copy1Click
- end
- object Cut1: TMenuItem
- Caption = 'Cu&t'
- ShortCut = 16472
- OnClick = Cut1Click
- end
- object Paste1: TMenuItem
- Caption = '&Paste'
- ShortCut = 16470
- OnClick = Paste1Click
- end
- object Undo1: TMenuItem
- Caption = '&Undo'
- ShortCut = 16474
- OnClick = Undo1Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object ReadOnly1: TMenuItem
- Caption = 'Read &Only'
- OnClick = ReadOnly1Click
- end
- object MessageWindow1: TMenuItem
- Caption = '&Message Window'
- OnClick = MessageWindow1Click
- end
- end
- object ReplaceDialog1: TReplaceDialog
- OnFind = ReplaceDialog1Find
- OnReplace = ReplaceDialog1Replace
- Left = 94
- Top = 212
- end
- object FindDialog1: TFindDialog
- Options = [frDown, frDisableUpDown]
- OnFind = FindDialog1Find
- Left = 123
- Top = 212
- end
- end
-