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

Debugger: fix compile

Browse Source
This commit is contained in:
Martin 2022-09-11 03:54:58 +02:00
parent 45b69e8d9d
commit 8fd2e40aec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/threaddlg.pp
View File

@ -235,12 +235,12 @@ var
Entry: TIdeThreadEntry;
Item: TListItem;
begin
if (DebugBoss = nil) or (DebugBoss.Debugger = nil) then begin
if (DebugBoss = nil) or (DebugBoss.DebuggerClass = nil) then begin
tbSuspend.Visible := False;
exit;
end;
tbSuspend.Visible := dfThreadSuspension in DebugBoss.Debugger.SupportedFeatures;
tbSuspend.Visible := dfThreadSuspension in DebugBoss.DebuggerClass.SupportedFeatures;
tbSuspend.Caption := drsSuspend;
tbSuspend.Enabled := False;