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

started OnMouseEnter and OnMouseLeave

Browse Source 
git-svn-id: trunk@3653 -
This commit is contained in:
mattias 2002-11-21 18:49:52 +00:00
parent aeec2f84b0
commit 41680539cb
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -591,6 +591,7 @@ type
procedure RemoveOnIdleEndHandler(AnOnIdleEndHandler: TNotifyEvent); procedure RemoveOnIdleEndHandler(AnOnIdleEndHandler: TNotifyEvent);
procedure AddOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent); procedure AddOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent);
procedure RemoveOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent); procedure RemoveOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent);
procedure DoBeforeMouseMessage(CurMouseControl: TControl);
public public
property Exename: String read GetExeName; property Exename: String read GetExeName;
property Handle: THandle read FHandle; property Handle: THandle read FHandle;

7
lcl/lmessages.pp
View File

@ -332,9 +332,11 @@ const
LM_MBUTTONQUADCLK = LM_USER+71; LM_MBUTTONQUADCLK = LM_USER+71;
LM_RBUTTONTRIPLECLK = LM_USER+72; LM_RBUTTONTRIPLECLK = LM_USER+72;
LM_RBUTTONQUADCLK = LM_USER+73; LM_RBUTTONQUADCLK = LM_USER+73;
LM_MOUSEENTER = LM_USER+74;
LM_MOUSELEAVE = LM_USER+75;
LM_MOUSELAST2 = LM_RBUTTONQUADCLK; LM_MOUSELAST2 = LM_RBUTTONQUADCLK;
LM_GRABFOCUS = LM_USER+74; LM_GRABFOCUS = LM_USER+79;
LM_DRAWLISTITEM = LM_User+80; LM_DRAWLISTITEM = LM_User+80;
@ -882,6 +884,9 @@ end.
{ {
$Log$ $Log$
Revision 1.39 2002/11/21 18:49:52 mattias
started OnMouseEnter and OnMouseLeave
Revision 1.38 2002/10/25 10:42:08 lazarus Revision 1.38 2002/10/25 10:42:08 lazarus
MG: broke minor circles MG: broke minor circles