?? unitmain.dfm
字號:
object FormMain: TFormMain
Left = 76
Top = 58
Width = 637
Height = 454
Caption = '我的記事本'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋體'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
WindowState = wsMaximized
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object RichEdit1: TRichEdit
Left = 0
Top = 0
Width = 629
Height = 408
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
HideSelection = False
ParentFont = False
PlainText = True
PopupMenu = PopupMenu1
ScrollBars = ssBoth
TabOrder = 0
end
object MainMenu1: TMainMenu
Left = 128
Top = 24
object MenuFile: TMenuItem
Caption = '[&F]文件'
OnClick = MenuFileClick
object ItemNew: TMenuItem
Caption = '[&N]新建'
OnClick = ItemNewClick
end
object ItemOpen: TMenuItem
Caption = '[&O]打開...'
OnClick = ItemOpenClick
end
object ItemSave: TMenuItem
Caption = '[&S]保存'
OnClick = ItemSaveClick
end
object ItemSaveAs: TMenuItem
Caption = '[&A]另存為...'
OnClick = ItemSaveAsClick
end
object N2: TMenuItem
Caption = '-'
end
object ItemFont: TMenuItem
Caption = '[&F]顯示字體...'
OnClick = ItemFontClick
end
object N1: TMenuItem
Caption = '-'
end
object ItemPageSet: TMenuItem
Caption = '[&T]頁面設置...'
OnClick = ItemPageSetClick
end
object ItemPrint: TMenuItem
Caption = '[&P]打印'
OnClick = ItemPrintClick
end
object N4: TMenuItem
Caption = '-'
end
object ItemClose: TMenuItem
Caption = '[&C]關閉'
OnClick = ItemCloseClick
end
end
object MenuEdit: TMenuItem
Caption = '[&E]編輯'
OnClick = PopupMenu1Popup
object ItemUndo1: TMenuItem
Caption = '[&U]撤消'
OnClick = ItemUndoClick
end
object ItemRedo1: TMenuItem
Caption = '[&R]重做'
Visible = False
OnClick = ItemRedoClick
end
object N7: TMenuItem
Caption = '-'
end
object ItemCut1: TMenuItem
Caption = '[&T]剪切'
OnClick = ItemCutClick
end
object ItemCopy1: TMenuItem
Caption = '[&C]復制'
OnClick = ItemCopyClick
end
object ItemPaste1: TMenuItem
Caption = '[&P]粘貼'
OnClick = ItemPasteClick
end
object ItemDelete1: TMenuItem
Caption = '[&D]刪除'
OnClick = ItemDeleteClick
end
object N8: TMenuItem
Caption = '-'
end
object ItemSelectAll1: TMenuItem
Caption = '[&A]全選'
OnClick = ItemSelectAllClick
end
object N9: TMenuItem
Caption = '-'
end
object ItemFind1: TMenuItem
Caption = '[&F]查找...'
OnClick = ItemFindTextClick
end
object ItemFindAndPlace1: TMenuItem
Caption = '[&L]查找和替換...'
OnClick = ItemFindAndReplaceClick
end
object N10: TMenuItem
Caption = '-'
end
object ItemAutoWarp1: TMenuItem
Caption = '[&W]自動換行'
Checked = True
OnClick = ItemAutoWarp1Click
end
end
object H1: TMenuItem
Caption = '[&H]幫助'
object N12: TMenuItem
Caption = '[&A]關于我的記事本'
end
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'txt'
Filter = 'TXT File|*.txt|All File|*.*'
FilterIndex = 0
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 208
Top = 64
end
object OpenDialog1: TOpenDialog
DefaultExt = 'txt'
Filter = 'TXT File|*.txt|All File|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 304
Top = 40
end
object FontDialog1: TFontDialog
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 176
Top = 152
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 112
Top = 120
object ItemUndo: TMenuItem
Caption = '&U撤消'
OnClick = ItemUndoClick
end
object ItemRedo: TMenuItem
Caption = '&R重做'
Visible = False
OnClick = ItemRedoClick
end
object N3: TMenuItem
Caption = '-'
end
object ItemCut: TMenuItem
Caption = '&T剪切'
OnClick = ItemCutClick
end
object ItemCopy: TMenuItem
Caption = '&C復制'
OnClick = ItemCopyClick
end
object ItemPaste: TMenuItem
Caption = '&P粘貼'
OnClick = ItemPasteClick
end
object ItemDelete: TMenuItem
Caption = '&D刪除'
OnClick = ItemDeleteClick
end
object N5: TMenuItem
Caption = '-'
end
object ItemSelectAll: TMenuItem
Caption = '&A全選'
OnClick = ItemSelectAllClick
end
object N6: TMenuItem
Caption = '-'
end
object ItemFindText: TMenuItem
Caption = '&F查找...'
OnClick = ItemFindTextClick
end
object ItemFindAndReplace: TMenuItem
Caption = '&L查找并替換...'
OnClick = ItemFindAndReplaceClick
end
object N11: TMenuItem
Caption = '-'
end
object ItemAutoWarp: TMenuItem
Caption = '&W自動換行'
OnClick = ItemAutoWarp1Click
end
end
object FindDialog1: TFindDialog
OnFind = FindDialog1Find
Left = 248
Top = 144
end
object ReplaceDialog1: TReplaceDialog
OnReplace = ReplaceDialog1Replace
Left = 320
Top = 168
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -