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

Debugger: Fix "use instance class" button, in watches properties.

Browse Source
This commit is contained in:
Martin 2021-11-27 23:04:27 +01:00
parent 79d6afe4b6
commit 9e41ef446f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/watchpropertydlg.pp
View File

@ -101,12 +101,11 @@ begin
then FWatch.DisplayFormat := StyleToDispFormat[rgStyle.ItemIndex]
else FWatch.DisplayFormat := wdfDefault;
FWatch.EvaluateFlags := [];
if chkUseInstanceClass.Checked
then FWatch.EvaluateFlags := [defClassAutoCast]
else FWatch.EvaluateFlags := [];
then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defClassAutoCast];
if chkAllowFunc.Checked
then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defAllowFunctionCall]
else FWatch.EvaluateFlags := [];
then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defAllowFunctionCall];
FWatch.RepeatCount := StrToIntDef(txtRepCount.Text, 0);
FWatch.Enabled := chkEnabled.Checked;