paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-19 14:08:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: "Copy callstack" do not clear clipboard to early. Issue #39880

Browse Source
This commit is contained in:
Martin 2022-09-05 21:01:46 +02:00
parent 715d70dc38
commit f4e3f0e7e7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/callstackdlg.pp
View File

@ -513,9 +513,10 @@ var
Entry: TIdeCallStackEntry; Entry: TIdeCallStackEntry;
S: String; S: String;
begin begin
Clipboard.Clear; if (GetSelectedCallstack=nil) or (GetSelectedCallstack.Count=0) then
exit;
if (GetSelectedCallstack=nil) or (GetSelectedCallstack.Count=0) then exit; Clipboard.Clear;
S := ''; S := '';
// GetSelectedCallstack.PrepareRange(); // GetSelectedCallstack.PrepareRange();