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

Debugger: Inspector, handle ctrl-up/down for grid navigation / ctrl-return to select row for inspection (go to field) / alt left/right for history

Browse Source
This commit is contained in:
Martin 2023-03-22 18:35:34 +01:00
parent e24fc09860
commit 00cbd93c01
1 changed files with 53 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
ide/packages/idedebugger/inspectdlg.pas
View File

@ -31,7 +31,7 @@ uses
Classes, SysUtils, Math, Classes, SysUtils, Math,
// LCL // LCL
LCLProc, LCLType, Grids, StdCtrls, Menus, Forms, Controls, Graphics, ComCtrls, LCLProc, LCLType, Grids, StdCtrls, Menus, Forms, Controls, Graphics, ComCtrls,
ExtCtrls, Buttons, Spin, Clipbrd, ExtCtrls, Buttons, Spin, Clipbrd, LMessages,
// IdeIntf // IdeIntf
IDEWindowIntf, IDEImagesIntf, ObjectInspector, PropEdits, IDEWindowIntf, IDEImagesIntf, ObjectInspector, PropEdits,
// DebuggerIntf // DebuggerIntf
@ -92,6 +92,7 @@ type
FGridData: TStringGrid; FGridData: TStringGrid;
FGridMethods: TStringGrid; FGridMethods: TStringGrid;
FExpressionWasEvaluated: Boolean; FExpressionWasEvaluated: Boolean;
FInKeyForward: Boolean;
procedure ArrayNavChanged(Sender: TArrayNavigationBar; AValue: Int64); procedure ArrayNavChanged(Sender: TArrayNavigationBar; AValue: Int64);
procedure DoAddEval(Sender: TObject); procedure DoAddEval(Sender: TObject);
@ -703,11 +704,56 @@ begin
end; end;
procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TIDEInspectDlg.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SentToGrid;
var
grid: TStringGrid;
Message: TLMKeyDown;
begin
if FGridData.IsVisible then grid := FGridData
else if FGridMethods.IsVisible then grid := FGridMethods
else
exit;
Message := Default(TLMKeyDown);
Message.Msg := CN_KEYDOWN;
Message.CharCode := Key;
Message.KeyData := ShiftStateToKeys(Shift);
FInKeyForward := True;
grid.Dispatch(Message);
FInKeyForward := False;
Key := 0;
end;
begin begin
if (Key = VK_ESCAPE) and (not Docked) and case Key of
(not WatchInspectNav1.DropDownOpen) VK_ESCAPE: begin
then if (not Docked) and (not WatchInspectNav1.DropDownOpen) then
Close; Close;
end;
VK_UP, VK_DOWN, VK_HOME, VK_END, VK_PRIOR, VK_NEXT: begin
if FInKeyForward then exit;
if (ssCtrl in Shift) or (not WatchInspectNav1.EdInspect.Focused) then begin
Exclude(Shift, ssCtrl);
SentToGrid;
end;
end;
VK_LEFT: begin
if (ssAlt in Shift) then
WatchInspectNav1.GoPrevBrowseEntry;
end;
VK_RIGHT: begin
if (ssAlt in Shift) then
WatchInspectNav1.GoNextBrowseEntry;
end;
VK_RETURN: begin
if not (ssCtrl in Shift) then
exit;
DataGridDoubleClick(nil);
Key := 0;
end;
end;
end; end;
procedure TIDEInspectDlg.Localize; procedure TIDEInspectDlg.Localize;
@ -1196,10 +1242,12 @@ begin
WatchInspectNav1.edFilter.OnButtonClick := @EdFilterClear; WatchInspectNav1.edFilter.OnButtonClick := @EdFilterClear;
FGridData:=TStringGrid.Create(DataPage); FGridData:=TStringGrid.Create(DataPage);
FGridData.TabAdvance := aaNone;
DataPage.InsertControl(FGridData); DataPage.InsertControl(FGridData);
GridDataSetup(True); GridDataSetup(True);
FGridMethods:=TStringGrid.Create(MethodsPage); FGridMethods:=TStringGrid.Create(MethodsPage);
FGridMethods.TabAdvance := aaNone;
MethodsPage.InsertControl(FGridMethods); MethodsPage.InsertControl(FGridMethods);
GridMethodsSetup(True); GridMethodsSetup(True);