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

fixed message

Browse Source 
git-svn-id: trunk@2526 -
This commit is contained in:
mattias 2002-08-17 23:41:27 +00:00
parent 3eb5a76a85
commit 4de81e3e30
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/speedbutton.inc
View File

@ -494,7 +494,6 @@ procedure TSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
begin begin
inherited MouseDown(Button, Shift, X, Y); inherited MouseDown(Button, Shift, X, Y);
if csDesigning in ComponentState then exit; if csDesigning in ComponentState then exit;
if (Button = mbLeft) and Enabled if (Button = mbLeft) and Enabled
@ -667,7 +666,7 @@ begin
if csDesigning in ComponentState then exit; if csDesigning in ComponentState then exit;
if not FMouseInControl if not FMouseInControl
and Enabled and (GetCapture = 0) and Enabled and (GetCapture = 0)
then begin then begin
FMouseInControl := True; FMouseInControl := True;
UpdateState(true); UpdateState(true);
@ -682,11 +681,12 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TSpeedButton.CMMouseLeave(var Message :TLMessage); procedure TSpeedButton.CMMouseLeave(var Message :TLMessage);
begin begin
writeln('TSpeedButton.CMMouseLeave A ',FMouseInControl,' ',Enabled,' ',FDragging);
inherited CMMouseLeave(Message); inherited CMMouseLeave(Message);
if csDesigning in ComponentState then exit; if csDesigning in ComponentState then exit;
if FMouseInControl if FMouseInControl
and Enabled and not FDragging and Enabled {and not FDragging}
then begin then begin
FMouseInControl := False; FMouseInControl := False;
UpdateState(true); UpdateState(true);
@ -705,6 +705,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.33 2003/02/06 06:33:57 mattias
fixed message
Revision 1.32 2003/01/27 13:49:16 mattias Revision 1.32 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame reduced speedbutton invalidates, added TCanvas.Frame