paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 14:48:14 +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 ViewStyle = vsReport
OnClick = lvCallStackClick OnClick = lvCallStackClick
OnDblClick = lvCallStackDBLCLICK OnDblClick = lvCallStackDBLCLICK
OnKeyPress = lvCallStackKeyPress
end end
object ToolBar1: TToolBar[1] object ToolBar1: TToolBar[1]
Left = 0 Left = 0
@ -196,6 +195,10 @@ inherited CallStackDlg: TCallStackDlg
object actShow: TAction object actShow: TAction
Caption = 'Show' Caption = 'Show'
OnExecute = actShowClick OnExecute = actShowClick
SecondaryShortCuts.Strings = (
'enter'
)
ShortCut = 16470
end end
object actSetCurrent: TAction object actSetCurrent: TAction
Caption = 'Current' Caption = 'Current'
@ -233,6 +236,7 @@ inherited CallStackDlg: TCallStackDlg
object actToggleBreakPoint: TAction object actToggleBreakPoint: TAction
Caption = 'Toggle Breakpoint' Caption = 'Toggle Breakpoint'
OnExecute = actToggleBreakPointExecute OnExecute = actToggleBreakPointExecute
ShortCut = 116
end end
end end
object mnuLimit: TPopupMenu[4] object mnuLimit: TPopupMenu[4]

8
debugger/callstackdlg.pp
View File

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