?? unit1.~dfm
字號:
object Form1: TForm1
Left = 231
Top = 22
Width = 696
Height = 480
Caption = 'Text Edit Example'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 0
Top = 0
Width = 688
Height = 426
Align = alClient
Lines.Strings = (
'')
OEMConvert = True
ScrollBars = ssVertical
TabOrder = 0
end
object MainMenu1: TMainMenu
Left = 232
Top = 200
object File1: TMenuItem
Caption = 'File'
object Open1: TMenuItem
Action = Open
end
object Save1: TMenuItem
Action = Save
end
object Exit1: TMenuItem
Action = Exit
end
end
object Edir1: TMenuItem
Caption = 'Edit'
object Copy1: TMenuItem
Action = EditCopy1
end
object Cut1: TMenuItem
Action = EditCut1
end
object Color1: TMenuItem
Action = EditDelete1
Caption = 'Clear'
Hint = 'Clear the Text'
end
object Paste1: TMenuItem
Action = EditPaste1
end
object SelectAll1: TMenuItem
Action = EditSelectAll1
end
object Undo1: TMenuItem
Action = EditUndo1
end
end
object Font1: TMenuItem
Action = Font
end
object BGColor1: TMenuItem
Action = Color
end
end
object OD1: TOpenDialog
Filter = 'TXT Files|*.txt'
Left = 256
Top = 32
end
object SD1: TSaveDialog
Filter = 'TXT Files|*.txt'
Left = 328
Top = 64
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 456
Top = 88
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 = 384
Top = 160
end
object ActionList1: TActionList
Left = 560
Top = 48
object EditCut1: TEditCut
Category = 'Edit'
Caption = 'Cu&t'
Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
ImageIndex = 0
ShortCut = 16472
OnExecute = EditCut1Execute
end
object EditCopy1: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy|Copies the selection and puts it on the Clipboard'
ImageIndex = 1
ShortCut = 16451
OnExecute = EditCopy1Execute
end
object EditPaste1: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste|Inserts Clipboard contents'
ImageIndex = 2
ShortCut = 16470
OnExecute = EditPaste1Execute
end
object EditSelectAll1: TEditSelectAll
Category = 'Edit'
Caption = 'Select &All'
Hint = 'Select All|Selects the entire document'
ShortCut = 16449
OnExecute = EditSelectAll1Execute
end
object EditUndo1: TEditUndo
Category = 'Edit'
Caption = '&Undo'
Hint = 'Undo|Reverts the last action'
ImageIndex = 3
ShortCut = 16474
OnExecute = EditUndo1Execute
end
object EditDelete1: TEditDelete
Category = 'Edit'
Caption = '&Delete'
Hint = 'Delete|Erases the selection'
ImageIndex = 5
ShortCut = 46
OnExecute = EditDelete1Execute
end
object Open: TAction
Caption = 'Open'
OnExecute = OpenExecute
end
object Save: TAction
Caption = 'Save'
OnExecute = SaveExecute
end
object Exit: TAction
Caption = 'Exit'
OnExecute = ExitExecute
end
object Font: TAction
Caption = 'Font'
OnExecute = FontExecute
end
object Color: TAction
Caption = 'Color'
OnExecute = ColorExecute
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -