Shortcuts reverted to previously defined ones.

This commit is contained in:
utak3r 2005-10-03 21:52:47 +00:00
parent 802be47799
commit 042efae45e

View File

@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 514 Height = 522
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 = 514 Height = 522
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 = 514 Height = 522
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 = 512 Height = 520
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 = 542 Top = 550
Width = 597 Width = 597
Height = 19 Height = 19
Panels = < Panels = <
@ -2626,7 +2626,7 @@ object MainForm: TMainForm
Caption = 'Full Screen' Caption = 'Full Screen'
Hint = 'Show the flame in fullscreen mode' Hint = 'Show the flame in fullscreen mode'
ImageIndex = 52 ImageIndex = 52
ShortCut = 114 ShortCut = 16454
OnClick = mnuFullScreenClick OnClick = mnuFullScreenClick
end end
object N4: TMenuItem object N4: TMenuItem
@ -2636,28 +2636,28 @@ object MainForm: TMainForm
Caption = '&Editor' Caption = '&Editor'
Hint = 'Show the Transform Editor' Hint = 'Show the Transform Editor'
ImageIndex = 19 ImageIndex = 19
ShortCut = 115 ShortCut = 16453
OnClick = mnuEditorClick OnClick = mnuEditorClick
end end
object mnuAdjust: TMenuItem object mnuAdjust: TMenuItem
Caption = 'Adjust' Caption = 'Adjust'
Hint = 'Show the Adjust window' Hint = 'Show the Adjust window'
ImageIndex = 18 ImageIndex = 18
ShortCut = 116 ShortCut = 16449
OnClick = mnuAdjustClick OnClick = mnuAdjustClick
end end
object mnuGrad: TMenuItem object mnuGrad: TMenuItem
Caption = 'Gradient' Caption = 'Gradient'
Hint = 'Show the Gradient window' Hint = 'Show the Gradient window'
ImageIndex = 11 ImageIndex = 11
ShortCut = 117 ShortCut = 16455
OnClick = mnuGradClick OnClick = mnuGradClick
end end
object mnuMutate: TMenuItem object mnuMutate: TMenuItem
Caption = 'Mutation' Caption = 'Mutation'
Hint = 'Show the Mutation window' Hint = 'Show the Mutation window'
ImageIndex = 17 ImageIndex = 17
ShortCut = 118 ShortCut = 16461
OnClick = mnuMutateClick OnClick = mnuMutateClick
end end
object mnuimage: TMenuItem object mnuimage: TMenuItem
@ -2671,7 +2671,7 @@ object MainForm: TMainForm
object mnuImageSize: TMenuItem object mnuImageSize: TMenuItem
Caption = 'Image Size' Caption = 'Image Size'
ImageIndex = 51 ImageIndex = 51
ShortCut = 113 ShortCut = 16457
OnClick = mnuImageSizeClick OnClick = mnuImageSizeClick
end end
end end
@ -2691,21 +2691,25 @@ object MainForm: TMainForm
object mnuRandom: TMenuItem object mnuRandom: TMenuItem
Caption = '&Randomize' Caption = '&Randomize'
Hint = 'Randomize flame parameters' Hint = 'Randomize flame parameters'
ShortCut = 120
OnClick = mnuRandomClick OnClick = mnuRandomClick
end end
object mnuRWeights: TMenuItem object mnuRWeights: TMenuItem
Caption = 'Random &Weights' Caption = 'Random &Weights'
Hint = 'Randomize transform weights' Hint = 'Randomize transform weights'
ShortCut = 116
OnClick = mnuRWeightsClick OnClick = mnuRWeightsClick
end end
object mnuEqualize: TMenuItem object mnuEqualize: TMenuItem
Caption = '&Equalize Weights' Caption = '&Equalize Weights'
Hint = 'Set all weights to the same value' Hint = 'Set all weights to the same value'
ShortCut = 117
OnClick = mnuEqualizeClick OnClick = mnuEqualizeClick
end end
object mnuNormalWeights: TMenuItem object mnuNormalWeights: TMenuItem
Caption = 'Compute Weights' Caption = 'Compute Weights'
Hint = 'Compute weights from triangle areas' Hint = 'Compute weights from triangle areas'
ShortCut = 118
OnClick = mnuNormalWeightsClick OnClick = mnuNormalWeightsClick
end end
object N7: TMenuItem object N7: TMenuItem