home *** CD-ROM | disk | FTP | other *** search
- object FrmShowRich: TFrmShowRich
- Left = 78
- Top = 146
- Width = 489
- Height = 282
- BorderIcons = [biSystemMenu, biMaximize]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object PnlMemo: TPanel
- Left = 0
- Top = 0
- Width = 481
- Height = 255
- Hint = 'Narration'
- Align = alClient
- BevelInner = bvLowered
- BorderWidth = 3
- DragMode = dmAutomatic
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object Panel1: TPanel
- Left = 5
- Top = 5
- Width = 471
- Height = 27
- Align = alTop
- BevelInner = bvLowered
- TabOrder = 0
- object BtnOk: TButton
- Left = 3
- Top = 3
- Width = 59
- Height = 20
- Hint = 'Close current window'
- Caption = '&Ok'
- Default = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = BtnOkClick
- end
- object BtnClose: TButton
- Left = 65
- Top = 3
- Width = 59
- Height = 20
- Hint = 'Cancel changes & Close current window'
- Cancel = True
- Caption = 'C&lose'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Times New Roman'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = BtnCloseClick
- end
- end
- object DBRichEdit: TDBRichEdit
- Left = 5
- Top = 32
- Width = 471
- Height = 218
- Align = alClient
- DataSource = SrcRichEdit
- PopupMenu = PopupMenu1
- TabOrder = 1
- OnChange = DBRichEditChange
- end
- end
- object SrcRichEdit: TDataSource
- Left = 384
- Top = 16
- 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 = 280
- Top = 80
- end
- object PopupMenu1: TPopupMenu
- OnPopup = PopupMenu1Popup
- Left = 152
- Top = 120
- object Font1: TMenuItem
- Caption = 'Font'
- OnClick = Font1Click
- end
- object Protect1: TMenuItem
- Caption = 'Protect'
- OnClick = Protect1Click
- end
- end
- end
-