From 76838c6238ff79baeff9a6142efb8cfb48b9ac7c Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Tue, 16 Aug 2005 09:27:22 +0000
Subject: [PATCH] fix inability to uncheck checkbox

git-svn-id: trunk@7508 -
---
 lcl/include/customcheckbox.inc | 7 -------
 lcl/stdctrls.pp                | 2 --
 2 files changed, 9 deletions(-)

diff --git a/lcl/include/customcheckbox.inc b/lcl/include/customcheckbox.inc
index 45a3ef9c24..9e08fdf292 100644
--- a/lcl/include/customcheckbox.inc
+++ b/lcl/include/customcheckbox.inc
@@ -185,13 +185,6 @@ begin
   inherited Loaded;
 end;
 
-procedure TCustomCheckBox.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
-  Y: Integer);
-begin
-  inherited MouseUp(Button, Shift, X, Y);
-  if State=cbGrayed then State:=cbChecked;
-end;
-
 {------------------------------------------------------------------------------
   procedure TCustomCheckBox.RealSetText(const Value: TCaption);
  ------------------------------------------------------------------------------}
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index 8f6b16e93f..6bc0b2c118 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -887,8 +887,6 @@ type
     procedure RealSetText(const Value: TCaption); override;
     procedure ApplyChanges; virtual;
     procedure Loaded; override;
-    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
-                      X, Y: Integer); override;
   public
     constructor Create(TheOwner: TComponent); override;
   public