From 77b7c33e02820ad1f413660f8d360cfb00d40945 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sat, 11 Feb 2012 15:59:06 +0000
Subject: [PATCH] lcl: avoid reseting value when changing edit state. Issue
 #21258

git-svn-id: trunk@35307 -
---
 lcl/include/dbcheckbox.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/include/dbcheckbox.inc b/lcl/include/dbcheckbox.inc
index e356460ad9..cd2252a7a8 100644
--- a/lcl/include/dbcheckbox.inc
+++ b/lcl/include/dbcheckbox.inc
@@ -137,11 +137,14 @@ end;
 
 procedure TDBCheckBox.DoOnChange;
 begin
+  //avoid reseting value when state changes
+  FDataLink.OnDataChange := nil;
   if FDatalink.Edit then begin
     FDatalink.Modified;
     FDataLink.UpdateRecord;
   end else
     State:=GetFieldCheckState;
+  FDataLink.OnDataChange := @DataChange;
   inherited DoOnChange;
 end;