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

finshed Make Resourcestring dialog and implemented TToggleBox

Browse Source 
git-svn-id: trunk@2395 -
This commit is contained in:
mattias 2002-08-17 23:41:20 +00:00
parent efe3ab437e
commit 1ef7fbd096
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -809,7 +809,7 @@ end;
function ControlGetsMouseDownBefore(AControl: TControl): boolean; function ControlGetsMouseDownBefore(AControl: TControl): boolean;
begin begin
case AControl.fCompStyle of case AControl.fCompStyle of
csCheckBox: csCheckBox, csToggleBox:
Result:=false; Result:=false;
else else
Result:=true; Result:=true;
@ -1101,7 +1101,8 @@ function ControlGetsMouseUpBefore(AControl: TControl): boolean;
begin begin
case AControl.fCompStyle of case AControl.fCompStyle of
csCheckBox, csCheckBox,
csRadioButton: csRadioButton,
csToggleBox:
Result:=false; Result:=false;
else else
Result:=true; Result:=true;
@ -2541,6 +2542,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.168 2003/03/09 17:44:12 mattias
finshed Make Resourcestring dialog and implemented TToggleBox
Revision 1.167 2003/02/18 22:56:23 mattias Revision 1.167 2003/02/18 22:56:23 mattias
fixed key grabbing fixed key grabbing