From 6b94576488bad9f566f74a1f4c9375e49a2fccaf Mon Sep 17 00:00:00 2001 From: juha Date: Fri, 26 Sep 2014 15:26:05 +0000 Subject: [PATCH] LCL: Publish events OnMouseWheel, OnMouseWheelDown and OnMouseWheelUp for more controls. Issue #26781, patch from Sandro Cumerlato. git-svn-id: trunk@46336 - --- lcl/extctrls.pp | 57 +++++++++++++++++++++++++++++++++++++++++++------ lcl/stdctrls.pp | 43 ++++++++++++++++++++++++++++--------- 2 files changed, 84 insertions(+), 16 deletions(-) diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index 5c53cb60a9..5b91d3d701 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -67,6 +67,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property ParentBiDiMode; property ParentShowHint; @@ -159,6 +162,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; // property Options; @@ -279,8 +285,13 @@ type property OnEndDock; property OnEndDrag; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnPaint; property OnResize; property OnStartDock; @@ -439,10 +450,10 @@ type // property OnEndDock; property OnEndDrag; property OnMouseDown; - property OnMouseMove; - property OnMouseUp; property OnMouseEnter; property OnMouseLeave; + property OnMouseMove; + property OnMouseUp; property OnMouseWheel; property OnMouseWheelDown; property OnMouseWheelUp; @@ -495,8 +506,13 @@ type property Visible; property OnClick; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property Stretch: Boolean read FStretch write SetStretch default False; property Transparent: Boolean read FTransparent write SetTransparent default False; property Proportional: Boolean read FProportional write SetProportional default False; @@ -579,8 +595,13 @@ type property OnChangeBounds; property OnResize; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnPaint; end; @@ -691,6 +712,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnSelectionChanged; property OnStartDrag; @@ -803,6 +827,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property OnUTF8KeyPress; @@ -846,8 +873,13 @@ type property OnDragOver; property OnEndDrag; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; //property OnEnter; //property OnExit; property OnStartDrag; @@ -934,8 +966,13 @@ type property OnKeyPress; property OnKeyUp; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnStartDrag; property OnUTF8KeyPress; end; @@ -1036,6 +1073,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDock; property OnStartDrag; @@ -1131,8 +1171,8 @@ type property OnClick; property OnDblClick; property OnMouseDown; - property OnMouseUp; property OnMouseMove; + property OnMouseUp; property OnPaint; end; @@ -1340,11 +1380,11 @@ type property DragCursor; property DragKind; property DragMode; - property DrawingStyle; + property DrawingStyle; property Enabled; property GradientDirection; - property GradientEndColor; - property GradientStartColor; + property GradientEndColor; + property GradientStartColor; property ParentColor; property ParentFont; property ParentShowHint; @@ -1375,8 +1415,13 @@ type property OnExit; property OnGetSiteInfo; property OnMouseDown; + property OnMouseEnter; + property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnPaint; property OnResize; property OnStartDock; diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp index db3ffd8813..dba20b6642 100644 --- a/lcl/stdctrls.pp +++ b/lcl/stdctrls.pp @@ -217,6 +217,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDock; property OnStartDrag; @@ -449,8 +452,11 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; - property OnStartDrag; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnSelect; + property OnStartDrag; property OnUTF8KeyPress; property ParentBidiMode; property ParentColor; @@ -586,10 +592,10 @@ type property OnKeyUp; property OnMeasureItem: TMeasureItemEvent read FOnMeasureItem write FOnMeasureItem; property OnMouseDown; - property OnMouseMove; - property OnMouseUp; property OnMouseEnter; property OnMouseLeave; + property OnMouseMove; + property OnMouseUp; property OnMouseWheel; property OnMouseWheelDown; property OnMouseWheelUp; @@ -652,11 +658,11 @@ type property OnKeyDown; property OnKeyUp; property OnMeasureItem; - property OnMouseMove; property OnMouseDown; - property OnMouseUp; property OnMouseEnter; property OnMouseLeave; + property OnMouseMove; + property OnMouseUp; property OnMouseWheel; property OnMouseWheelDown; property OnMouseWheelUp; @@ -891,6 +897,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property OnUTF8KeyPress; @@ -1034,6 +1043,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property ParentBidiMode; @@ -1176,6 +1188,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property OnUTF8KeyPress; @@ -1273,6 +1288,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property OnUTF8KeyPress; @@ -1325,6 +1343,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnStartDrag; property ParentBidiMode; property ParentFont; @@ -1383,6 +1404,9 @@ type property OnMouseLeave; property OnMouseMove; property OnMouseUp; + property OnMouseWheel; + property OnMouseWheelDown; + property OnMouseWheelUp; property OnResize; property OnStartDrag; property ParentBidiMode; @@ -1493,21 +1517,21 @@ type property Transparent; property Visible; property WordWrap; + property OnChangeBounds; property OnClick; + property OnContextPopup; property OnDblClick; property OnDragDrop; property OnDragOver; property OnEndDrag; property OnMouseDown; - property OnMouseMove; - property OnMouseUp; property OnMouseEnter; property OnMouseLeave; + property OnMouseMove; + property OnMouseUp; property OnMouseWheel; property OnMouseWheelDown; property OnMouseWheelUp; - property OnChangeBounds; - property OnContextPopup; property OnResize; property OnStartDrag; property OptimalFill; @@ -1598,4 +1622,3 @@ end; {$I customstatictext.inc} end. -