Enable Copy/Paste shortcuts

This commit is contained in:
ronaldhordijk 2005-10-23 07:58:21 +00:00
parent 5237717fcf
commit 2b87fc214b

View File

@ -2,7 +2,7 @@ object MainForm: TMainForm
Left = 387 Left = 387
Top = 166 Top = 166
Width = 605 Width = 605
Height = 615 Height = 635
Caption = 'Apophysis' Caption = 'Apophysis'
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 520 Height = 534
end end
object ToolBar: TToolBar object ToolBar: TToolBar
Left = 0 Left = 0
@ -284,7 +284,7 @@ object MainForm: TMainForm
Left = 0 Left = 0
Top = 28 Top = 28
Width = 160 Width = 160
Height = 520 Height = 534
Align = alLeft Align = alLeft
Columns = < Columns = <
item item
@ -303,7 +303,7 @@ object MainForm: TMainForm
Left = 164 Left = 164
Top = 28 Top = 28
Width = 433 Width = 433
Height = 520 Height = 534
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
@ -314,7 +314,7 @@ object MainForm: TMainForm
Left = 1 Left = 1
Top = 1 Top = 1
Width = 431 Width = 431
Height = 518 Height = 532
Align = alClient Align = alClient
AutoSize = True AutoSize = True
PopupMenu = DisplayPopup PopupMenu = DisplayPopup
@ -327,7 +327,7 @@ object MainForm: TMainForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 548 Top = 562
Width = 597 Width = 597
Height = 19 Height = 19
Panels = < Panels = <
@ -2600,13 +2600,15 @@ object MainForm: TMainForm
end end
object mnuCopy: TMenuItem object mnuCopy: TMenuItem
Caption = 'Copy' Caption = 'Copy'
Hint = 'Copy as UPR (Ctrl+C)|Copies a UPR to the clipboard' Hint = 'Copy |Copies a flame to the clipboard'
ImageIndex = 7 ImageIndex = 7
ShortCut = 16451
OnClick = mnuCopyClick OnClick = mnuCopyClick
end end
object mnuPaste: TMenuItem object mnuPaste: TMenuItem
Caption = 'Paste' Caption = 'Paste'
ImageIndex = 8 ImageIndex = 8
ShortCut = 16470
OnClick = mnuPasteClick OnClick = mnuPasteClick
end end
object N20: TMenuItem object N20: TMenuItem