paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 10:20:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

added OnMouseEnter, OnMouseLeave property (changes by chris, committed by stoppok)

Browse Source 
git-svn-id: trunk@7 -
This commit is contained in:
lazarus 2000-07-16 12:44:31 +00:00
parent 553b33058f
commit 22127cbbef
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/buttons.pp
View File

@ -33,7 +33,7 @@ interface
{$ASSERTIONS ON} {$ASSERTIONS ON}
{$endif} {$endif}
uses stdctrls, vclglobals, classes, LCLLinux,graphics,sysutils, controls, lMessages,Forms; uses stdctrls, vclglobals, classes, LCLLinux,graphics,sysutils, controls, lMessages,Forms, messages;
type type
TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom); TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);
@ -50,10 +50,14 @@ type
FOnEnter: TNotifyEvent; FOnEnter: TNotifyEvent;
FOnResize: TNotifyEvent; FOnResize: TNotifyEvent;
Procedure SetDefault(Value : Boolean); Procedure SetDefault(Value : Boolean);
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected protected
procedure Click; override; procedure Click; override;
//TODO: make this compatible //TODO: make this compatible
procedure CreateWnd; override; procedure CreateWnd; override;
property OnMouseEnter : TNotifyEvent read FOnEnter write FOnEnter;
property OnMouseLeave : TNotifyEvent read FOnLeave write FOnLeave;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
published published
@ -168,7 +172,7 @@ implementation
const const
BitBtnModalResults : Array[TBitBtnKind] of TModalResult = (0,mrOK,mrCAncel,0,mryes,mrNo, BitBtnModalResults : Array[TBitBtnKind] of TModalResult = (0,mrOK,mrCAncel,0,mryes,mrNo,
0,mrAbort,mrRetry, mrIgnore, mrAll); 0,mrAbort,mrRetry, mrIgnore, mrAll);
BitbtnCaption : Array[TBitBtnKind] of String = ('','OK','Cancel','Help','','','Close','','','',''); BitbtnCaption : Array[TBitBtnKind] of String = ('','OK','Cancel','Help','','','Close','','','','All');
var var
@ -185,6 +189,7 @@ BitbtnImages[bkOK] := IMGOK_Check;
BitbtnImages[bkCancel] := IMGCancel_X; BitbtnImages[bkCancel] := IMGCancel_X;
BitbtnImages[bkClose] := IMGClose; BitbtnImages[bkClose] := IMGClose;
BitbtnImages[bkHelp] := IMGHELP; BitbtnImages[bkHelp] := IMGHELP;
BitbtnImages[bkAll] := IMGAll_Check;
finalization finalization
@ -195,6 +200,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.2 2000/07/16 12:44:31 lazarus
added OnMouseEnter, OnMouseLeave property (changes by chris, committed by stoppok)
Revision 1.1 2000/07/13 10:28:23 michael Revision 1.1 2000/07/13 10:28:23 michael
+ Initial import + Initial import