paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +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 end
object ActMoveUp: TAction object ActMoveUp: TAction
Category = 'MoveUpDown' Category = 'MoveUpDown'
OnExecute = ActMoveDownExecute OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveUpUpdate OnUpdate = ActMoveUpUpdate
ShortCut = 16422 ShortCut = 16422
end end
object ActMoveDown: TAction object ActMoveDown: TAction
Category = 'MoveUpDown' Category = 'MoveUpDown'
OnExecute = ActMoveDownExecute OnExecute = ActMoveUpDownExecute
OnUpdate = ActMoveDownUpdate OnUpdate = ActMoveDownUpdate
ShortCut = 16424 ShortCut = 16424
end end
@ -197,12 +197,12 @@ object ActionListEditor: TActionListEditor
object mItemActListMoveUpAction: TMenuItem object mItemActListMoveUpAction: TMenuItem
Action = ActMoveUp Action = ActMoveUp
Caption = 'Move Up' Caption = 'Move Up'
OnClick = ActMoveDownExecute OnClick = ActMoveUpDownExecute
end end
object mItemActListMoveDownAction: TMenuItem object mItemActListMoveDownAction: TMenuItem
Action = ActMoveDown Action = ActMoveDown
Caption = 'Move Down' Caption = 'Move Down'
OnClick = ActMoveDownExecute OnClick = ActMoveUpDownExecute
end end
object MenuItem6: TMenuItem object MenuItem6: TMenuItem
Caption = '-' Caption = '-'

4
components/ideintf/actionseditor.pas
View File

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