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

Debugger: Watch-property-dialog, don't allow "all up" for display-format tabs

Browse Source
This commit is contained in:
Martin 2024-02-29 12:57:59 +01:00
parent 482d9b7e20
commit 8cf144ce33
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/idedebugger/frames/displayformatconfigframe.pas
View File

@ -277,7 +277,9 @@ begin
FInButtonClick := True;
try
UpdateFormat;
if not (ssShift in GetKeyShiftState) then begin
if (not(ssShift in GetKeyShiftState)) or
(not(tbNumber.Down or tbEnum.Down or tbBool.Down or tbChar.Down or tbFloat.Down or tbStruct.Down or tbPointer.Down))
then begin
tbNumber.Down := tbNumber = Sender;
tbEnum.Down := tbEnum = Sender;
tbBool.Down := tbBool = Sender;