paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: Change event handler name to ActMoveUpDownExecute in ActionListEditor.

Browse Source 
git-svn-id: trunk@53557 -
This commit is contained in:
juha 2016-12-04 18:42:06 +00:00
parent fc9103bd07
commit b58493f762
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/ideintf/actionseditor.lfm
View File

@ -154,13 +154,13 @@ object ActionListEditor: TActionListEditor
end
object ActMoveUp: TAction
Category = 'MoveUpDown'
OnExecute = ActMoveDownExecute
OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveUpUpdate
ShortCut = 16422
end
object ActMoveDown: TAction
Category = 'MoveUpDown'
OnExecute = ActMoveDownExecute
OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveDownUpdate
ShortCut = 16424
end
@ -197,12 +197,12 @@ object ActionListEditor: TActionListEditor
object mItemActListMoveUpAction: TMenuItem
Action = ActMoveUp
Caption = 'Move Up'
OnClick = ActMoveDownExecute
OnClick = ActMoveUpDownExecute
end
object mItemActListMoveDownAction: TMenuItem
Action = ActMoveDown
Caption = 'Move Down'
OnClick = ActMoveDownExecute
OnClick = ActMoveUpDownExecute
end
object MenuItem6: TMenuItem
Caption = '-'

4
components/ideintf/actionseditor.pas
View File

@ -112,7 +112,7 @@ type
btnDown: TToolButton;
procedure ActDeleteExecute(Sender: TObject);
procedure ActDeleteUpdate(Sender: TObject);
procedure ActMoveDownExecute(Sender: TObject);
procedure ActMoveUpDownExecute(Sender: TObject);
procedure ActMoveDownUpdate(Sender: TObject);
procedure ActMoveUpUpdate(Sender: TObject);
procedure ActNewExecute(Sender: TObject);
@ -659,7 +659,7 @@ begin
TAction(Sender).Enabled := lstActionName.SelCount > 0;
end;
procedure TActionListEditor.ActMoveDownExecute(Sender: TObject);
procedure TActionListEditor.ActMoveUpDownExecute(Sender: TObject);
var
fact0,fAct1: TContainedAction;
lboxIndex: Integer;