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

debugger: set shortcuts to call stack dialog popup menu items

Browse Source 
git-svn-id: trunk@30779 -
This commit is contained in:
paul 2011-05-17 01:36:08 +00:00
parent 8ba02eac1c
commit 6ea3da59db
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/callstackdlg.lfm
View File

@ -43,7 +43,6 @@ inherited CallStackDlg: TCallStackDlg
ViewStyle = vsReport
OnClick = lvCallStackClick
OnDblClick = lvCallStackDBLCLICK
OnKeyPress = lvCallStackKeyPress
end
object ToolBar1: TToolBar[1]
Left = 0
@ -196,6 +195,10 @@ inherited CallStackDlg: TCallStackDlg
object actShow: TAction
Caption = 'Show'
OnExecute = actShowClick
SecondaryShortCuts.Strings = (
'enter'
)
ShortCut = 16470
end
object actSetCurrent: TAction
Caption = 'Current'
@ -233,6 +236,7 @@ inherited CallStackDlg: TCallStackDlg
object actToggleBreakPoint: TAction
Caption = 'Toggle Breakpoint'
OnExecute = actToggleBreakPointExecute
ShortCut = 116
end
end
object mnuLimit: TPopupMenu[4]

8
debugger/callstackdlg.pp
View File

@ -90,7 +90,6 @@ type
procedure actViewTopExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lvCallStackClick(Sender: TObject);
procedure lvCallStackKeyPress(Sender: TObject; var Key: char);
procedure popCountClick(Sender: TObject);
procedure ToolButtonPowerClick(Sender: TObject);
procedure txtGotoKeyPress(Sender: TObject; var Key: char);
@ -745,13 +744,6 @@ begin
ToggleBreakPoint(Item);
end;
procedure TCallStackDlg.lvCallStackKeyPress(Sender: TObject; var Key: char);
begin
if key = #13
then lvCallStackDBLCLICK(Sender)
else inherited;;
end;
procedure TCallStackDlg.actViewLimitExecute(Sender: TObject);
begin
try