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

LCL: Publish events OnMouseWheel, OnMouseWheelDown and OnMouseWheelUp for more controls. Issue #26781, patch from Sandro Cumerlato.

Browse Source 
git-svn-id: trunk@46336 -
This commit is contained in:
juha 2014-09-26 15:26:05 +00:00
parent 4fa796d65d
commit 6b94576488
2 changed files with 84 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lcl/extctrls.pp
View File

@ -67,6 +67,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property ParentBiDiMode; property ParentBiDiMode;
property ParentShowHint; property ParentShowHint;
@ -159,6 +162,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
// property Options; // property Options;
@ -279,8 +285,13 @@ type
property OnEndDock; property OnEndDock;
property OnEndDrag; property OnEndDrag;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint; property OnPaint;
property OnResize; property OnResize;
property OnStartDock; property OnStartDock;
@ -439,10 +450,10 @@ type
// property OnEndDock; // property OnEndDock;
property OnEndDrag; property OnEndDrag;
property OnMouseDown; property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel; property OnMouseWheel;
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;
@ -495,8 +506,13 @@ type
property Visible; property Visible;
property OnClick; property OnClick;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property Stretch: Boolean read FStretch write SetStretch default False; property Stretch: Boolean read FStretch write SetStretch default False;
property Transparent: Boolean read FTransparent write SetTransparent default False; property Transparent: Boolean read FTransparent write SetTransparent default False;
property Proportional: Boolean read FProportional write SetProportional default False; property Proportional: Boolean read FProportional write SetProportional default False;
@ -579,8 +595,13 @@ type
property OnChangeBounds; property OnChangeBounds;
property OnResize; property OnResize;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint; property OnPaint;
end; end;
@ -691,6 +712,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnSelectionChanged; property OnSelectionChanged;
property OnStartDrag; property OnStartDrag;
@ -803,6 +827,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
@ -846,8 +873,13 @@ type
property OnDragOver; property OnDragOver;
property OnEndDrag; property OnEndDrag;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
//property OnEnter; //property OnEnter;
//property OnExit; //property OnExit;
property OnStartDrag; property OnStartDrag;
@ -934,8 +966,13 @@ type
property OnKeyPress; property OnKeyPress;
property OnKeyUp; property OnKeyUp;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
end; end;
@ -1036,6 +1073,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDock; property OnStartDock;
property OnStartDrag; property OnStartDrag;
@ -1131,8 +1171,8 @@ type
property OnClick; property OnClick;
property OnDblClick; property OnDblClick;
property OnMouseDown; property OnMouseDown;
property OnMouseUp;
property OnMouseMove; property OnMouseMove;
property OnMouseUp;
property OnPaint; property OnPaint;
end; end;
@ -1340,11 +1380,11 @@ type
property DragCursor; property DragCursor;
property DragKind; property DragKind;
property DragMode; property DragMode;
property DrawingStyle; property DrawingStyle;
property Enabled; property Enabled;
property GradientDirection; property GradientDirection;
property GradientEndColor; property GradientEndColor;
property GradientStartColor; property GradientStartColor;
property ParentColor; property ParentColor;
property ParentFont; property ParentFont;
property ParentShowHint; property ParentShowHint;
@ -1375,8 +1415,13 @@ type
property OnExit; property OnExit;
property OnGetSiteInfo; property OnGetSiteInfo;
property OnMouseDown; property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnPaint; property OnPaint;
property OnResize; property OnResize;
property OnStartDock; property OnStartDock;

43
lcl/stdctrls.pp
View File

@ -217,6 +217,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDock; property OnStartDock;
property OnStartDrag; property OnStartDrag;
@ -449,8 +452,11 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnStartDrag; property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnSelect; property OnSelect;
property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
property ParentBidiMode; property ParentBidiMode;
property ParentColor; property ParentColor;
@ -586,10 +592,10 @@ type
property OnKeyUp; property OnKeyUp;
property OnMeasureItem: TMeasureItemEvent read FOnMeasureItem write FOnMeasureItem; property OnMeasureItem: TMeasureItemEvent read FOnMeasureItem write FOnMeasureItem;
property OnMouseDown; property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel; property OnMouseWheel;
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;
@ -652,11 +658,11 @@ type
property OnKeyDown; property OnKeyDown;
property OnKeyUp; property OnKeyUp;
property OnMeasureItem; property OnMeasureItem;
property OnMouseMove;
property OnMouseDown; property OnMouseDown;
property OnMouseUp;
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel; property OnMouseWheel;
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;
@ -891,6 +897,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
@ -1034,6 +1043,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property ParentBidiMode; property ParentBidiMode;
@ -1176,6 +1188,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
@ -1273,6 +1288,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property OnUTF8KeyPress; property OnUTF8KeyPress;
@ -1325,6 +1343,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnStartDrag; property OnStartDrag;
property ParentBidiMode; property ParentBidiMode;
property ParentFont; property ParentFont;
@ -1383,6 +1404,9 @@ type
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property ParentBidiMode; property ParentBidiMode;
@ -1493,21 +1517,21 @@ type
property Transparent; property Transparent;
property Visible; property Visible;
property WordWrap; property WordWrap;
property OnChangeBounds;
property OnClick; property OnClick;
property OnContextPopup;
property OnDblClick; property OnDblClick;
property OnDragDrop; property OnDragDrop;
property OnDragOver; property OnDragOver;
property OnEndDrag; property OnEndDrag;
property OnMouseDown; property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel; property OnMouseWheel;
property OnMouseWheelDown; property OnMouseWheelDown;
property OnMouseWheelUp; property OnMouseWheelUp;
property OnChangeBounds;
property OnContextPopup;
property OnResize; property OnResize;
property OnStartDrag; property OnStartDrag;
property OptimalFill; property OptimalFill;
@ -1598,4 +1622,3 @@ end;
{$I customstatictext.inc} {$I customstatictext.inc}
end. end.