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

LCL: avoid DoOnChange circle. Issue #33573

Browse Source 
git-svn-id: trunk@57612 -
This commit is contained in:
ondrej 2018-04-06 18:41:28 +00:00
parent b3d7705f6a
commit c131224bf7
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/dbcheckbox.inc
View File

@ -126,11 +126,18 @@ end;
procedure TDBCheckBox.DataChange(Sender: TObject); procedure TDBCheckBox.DataChange(Sender: TObject);
begin begin
// avoid DoOnChange circle #33573
FDataLink.OnDataChange := nil;
State:=GetFieldCheckState; State:=GetFieldCheckState;
FDataLink.OnDataChange := @DataChange;
end; end;
procedure TDBCheckBox.DoOnChange; procedure TDBCheckBox.DoOnChange;
begin begin
// avoid DoOnChange circle #33573
if FDataLink.OnDataChange = nil then
Exit;
//avoid reseting value when state changes //avoid reseting value when state changes
FDataLink.OnDataChange := nil; FDataLink.OnDataChange := nil;
if FDatalink.Edit then begin if FDatalink.Edit then begin