paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 23:49:13 +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] then FWatch.DisplayFormat := StyleToDispFormat[rgStyle.ItemIndex]
else FWatch.DisplayFormat := wdfDefault; else FWatch.DisplayFormat := wdfDefault;
FWatch.EvaluateFlags := [];
if chkUseInstanceClass.Checked if chkUseInstanceClass.Checked
then FWatch.EvaluateFlags := [defClassAutoCast] then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defClassAutoCast];
else FWatch.EvaluateFlags := [];
if chkAllowFunc.Checked if chkAllowFunc.Checked
then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defAllowFunctionCall] then FWatch.EvaluateFlags := FWatch.EvaluateFlags + [defAllowFunctionCall];
else FWatch.EvaluateFlags := [];
FWatch.RepeatCount := StrToIntDef(txtRepCount.Text, 0); FWatch.RepeatCount := StrToIntDef(txtRepCount.Text, 0);
FWatch.Enabled := chkEnabled.Checked; FWatch.Enabled := chkEnabled.Checked;