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

DBCtrls: Workaround for TDBRadioGroup being changable even if Dataset is readonly. Issue #31993

Browse Source 
git-svn-id: branches/fixes_1_8@55369 -
This commit is contained in:
mattias 2017-06-17 07:56:41 +00:00
parent 6255b14a0c
commit d6b31e0876
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbradiogroup.inc
View File

@ -139,6 +139,14 @@ begin
end
else
DataChange(Self);
end
// Workaround for TDBRadiogroup not having a ReadOnly property (i.e. ItemIndex
// can be changed even if Dataset is ReadOnly)
// See isse https://bugs.freepascal.org/view.php?id=31993
else if (not DataLink.CanModify) and (DataLink.Field.AsString <> NewValue) then
begin
FValue := ''; // Otherwise, SetValue in next line would exit immediately
Value:= OldValue;
end;
end;