home *** CD-ROM | disk | FTP | other *** search
- object MsgMemoEditor: TMsgMemoEditor
- Left = 30
- Top = 181
- Width = 343
- Height = 268
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSizeToolWin
- Caption = 'MsgMemoEditor'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object dTop: TDock97
- Left = 0
- Top = 0
- Width = 335
- Height = 34
- object Toolbar: TToolbar97
- Left = 0
- Top = 0
- Caption = 'Tools'
- CloseButton = False
- DockableTo = [dpTop]
- DockedTo = dTop
- DockPos = 0
- FullSize = True
- PopupMenu = mPopup
- TabOrder = 0
- object bSave: TToolbarButton97
- Left = 0
- Top = 0
- Width = 30
- Height = 30
- Hint = 'Save'
- ParentShowHint = False
- ShowHint = True
- OnClick = bSaveClick
- end
- object bCancel: TToolbarButton97
- Left = 36
- Top = 0
- Width = 30
- Height = 30
- Hint = 'Clear'
- ParentShowHint = False
- ShowHint = True
- OnClick = bCancelClick
- end
- object ToolbarSep971: TToolbarSep97
- Left = 30
- Top = 0
- end
- end
- end
- object eMemo: TMemo
- Left = 0
- Top = 34
- Width = 335
- Height = 200
- Align = alClient
- PopupMenu = mPopup
- TabOrder = 1
- end
- object dFont: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Left = 8
- Top = 112
- end
- object mPopup: TPopupMenu
- Left = 8
- Top = 152
- object mUndo: TMenuItem
- Caption = '&Undo'
- ShortCut = 32776
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mCut: TMenuItem
- Caption = 'Cu&t'
- OnClick = mCutClick
- end
- object mCopy: TMenuItem
- Caption = '&Copy'
- OnClick = mCopyClick
- end
- object mPaste: TMenuItem
- Caption = '&Paste'
- OnClick = mPasteClick
- end
- object mDelete: TMenuItem
- Caption = '&Delete'
- OnClick = mDeleteClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mSelectAll: TMenuItem
- Caption = 'Select &All'
- OnClick = mSelectAllClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mSave: TMenuItem
- Caption = '&Save memo'
- ShortCut = 16467
- OnClick = bSaveClick
- end
- object mClear: TMenuItem
- Caption = 'C&lear memo'
- ShortCut = 16430
- OnClick = bCancelClick
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object mFont: TMenuItem
- Caption = '&Font...'
- OnClick = mFontClick
- end
- object mStayonTop: TMenuItem
- Caption = 'Al&ways on top'
- Checked = True
- OnClick = mStayonTopClick
- end
- object mClose: TMenuItem
- Caption = 'Close'
- ShortCut = 27
- Visible = False
- OnClick = mCloseClick
- end
- end
- object chkTimer: TTimer
- Enabled = False
- Interval = 500
- OnTimer = chkTimerTimer
- Left = 112
- Top = 112
- end
- end
-