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

started OnMouseEnter and OnMouseLeave

Browse Source 
git-svn-id: trunk@2503 -
This commit is contained in:
mattias 2002-08-17 23:41:25 +00:00
parent db65741e11
commit c8030a05a7
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/include/speedbutton.inc
View File

@ -1,3 +1,5 @@
// included by buttons.pp
{******************************************************************************
TSpeedButton
******************************************************************************
@ -486,7 +488,6 @@ var
NewState: TButtonState;
begin
inherited MouseMove(Shift, X, Y);
if csDesigning in ComponentState then exit;
if FDragging
@ -513,12 +514,9 @@ begin
end;
end
else begin
Assert(False,'Trace:FDragging is False');
if not FMouseInControl
then begin
Assert(False,'Trace:FMouseInControl is false');
{if not FMouseInControl then begin
UpdateTracking;
end;
end;}
end;
end;
@ -548,7 +546,7 @@ begin
SetDown(not FDown);
if FDown then Repaint;
end;
UpdateTracking;
//UpdateTracking;
end;
inherited MouseUp(Button, Shift, X, Y);
end;
@ -621,8 +619,8 @@ procedure TSpeedButton.CMEnabledChanged(var Message: TLMEssage);
Begin
//Should create a new glyph based on the new state
UpdateTracking;
Repaint;
//UpdateTracking;
Invalidate;
end;
{------------------------------------------------------------------------------
@ -634,14 +632,13 @@ end;
procedure TSpeedButton.CMMouseEnter(var Message :TLMessage);
begin
inherited CMMouseEnter(Message);
if csDesigning in ComponentState then exit;
if not FMouseInControl
and Enabled and (GetCapture = 0)
then begin
FMouseInControl := True;
RePaint;
Invalidate;
end;
end;
@ -654,10 +651,9 @@ end;
procedure TSpeedButton.CMMouseLeave(var Message :TLMessage);
begin
inherited CMMouseLeave(Message);
if csDesigning in ComponentState then exit;
if FMouseInControl
if FMouseInControl
and Enabled and not FDragging
then begin
FMouseInControl := False;
@ -671,9 +667,15 @@ end;
{$C-}
{$ENDIF}
// included by buttons.pp
{ =============================================================================
$Log$
Revision 1.31 2002/11/21 18:49:53 mattias
started OnMouseEnter and OnMouseLeave
Revision 1.30 2002/09/27 20:52:23 lazarus
MWE: Applied patch from "Andrew Johnson" <aj_genius@hotmail.com>