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

Debugger: Watches, "copy name" to take expression from sub-watches

Browse Source
This commit is contained in:
Martin 2022-06-14 22:34:49 +02:00
parent 3c5a7c2742
commit 770127ba3a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/watchesdlg.pp
View File

@ -759,12 +759,17 @@ end;
procedure TWatchesDlg.actCopyNameExecute(Sender: TObject); procedure TWatchesDlg.actCopyNameExecute(Sender: TObject);
var var
Node: PVirtualNode; Node: PVirtualNode;
AWatch: TIdeWatch;
begin begin
Node := tvWatches.GetFocusedNode; Node := tvWatches.GetFocusedNode;
if Node = nil then if Node = nil then
exit; exit;
Clipboard.Open; Clipboard.Open;
Clipboard.AsText := tvWatches.NodeText[Node, COL_WATCH_EXPR-1]; AWatch := TIdeWatch(tvWatches.NodeItem[Node]);
if AWatch <> nil then
Clipboard.AsText := AWatch.Expression
else
Clipboard.AsText := tvWatches.NodeText[Node, COL_WATCH_EXPR-1];
Clipboard.Close; Clipboard.Close;
end; end;