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

fix for speedbutton from Micha

Browse Source 
git-svn-id: trunk@4682 -
This commit is contained in:
mattias 2003-09-27 09:49:30 +00:00
parent 452b7d6f5f
commit 13349a85c9
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/buttons.pp
View File

@ -233,7 +233,7 @@ type
function GetDrawFlags: integer; virtual;
property MouseInControl : Boolean read FMouseInControl;
public
constructor Create(AOwner : TComponent); override;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Click; override;
published
@ -307,6 +307,9 @@ end.
{ =============================================================================
$Log$
Revision 1.51 2003/09/27 09:49:30 mattias
fix for speedbutton from Micha
Revision 1.50 2003/09/18 09:21:03 mattias
renamed LCLLinux to LCLIntf

11
lcl/include/speedbutton.inc
View File

@ -244,7 +244,7 @@ function TSpeedButton.GetDrawFlags: integer;
begin
Result:=DFCS_BUTTONPUSH;
if FState in [bsDown, bsExclusive] then inc(Result,DFCS_PUSHED);
if FMouseInControl then inc(Result,DFCS_CHECKED);
// if FMouseInControl then inc(Result,DFCS_CHECKED);
if not Enabled then inc(Result,DFCS_INACTIVE);
if Flat and (not (csDesigning in ComponentState)) and
@ -539,9 +539,9 @@ begin
end;
end
else begin
{if not FMouseInControl then begin
if not FMouseInControl then begin
UpdateTracking;
end;}
end;
end;
end;
@ -563,7 +563,7 @@ begin
if FGroupIndex = 0
then begin
FState := bsUp;
FMouseInControl := False;
// FMouseInControl := False;
if not (FState in [bsExclusive, bsDown]) then
Invalidate;
end
@ -698,6 +698,9 @@ end;
{ =============================================================================
$Log$
Revision 1.42 2003/09/27 09:49:30 mattias
fix for speedbutton from Micha
Revision 1.41 2003/06/23 09:42:09 mattias
fixes for debugging lazarus