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

fix inability to uncheck checkbox

Browse Source 
git-svn-id: trunk@7508 -
This commit is contained in:
micha 2005-08-16 09:27:22 +00:00
parent d7584d0c80
commit 76838c6238
2 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customcheckbox.inc
View File

@ -185,13 +185,6 @@ begin
inherited Loaded; inherited Loaded;
end; 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); procedure TCustomCheckBox.RealSetText(const Value: TCaption);
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}

2
lcl/stdctrls.pp
View File

@ -887,8 +887,6 @@ type
procedure RealSetText(const Value: TCaption); override; procedure RealSetText(const Value: TCaption); override;
procedure ApplyChanges; virtual; procedure ApplyChanges; virtual;
procedure Loaded; override; procedure Loaded; override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
public public