RxFPC: Publish events OnMouseWheel, OnMouseWheelDown and OnMouseWheelUp for rx controls.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3610 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/autopanel.pas

@@ -104,6 +104,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnStartDrag;
 

components/rx/trunk/curredit.pas

@@ -190,6 +190,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
 
     property OnContextPopup;
     property OnStartDrag;

components/rx/trunk/pickdate.pas

@@ -162,6 +162,9 @@ type
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnPrepareCanvas;
   end;

components/rx/trunk/rxclock.pas

@@ -157,6 +157,9 @@ type
     property OnMouseMove;
     property OnMouseDown;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnDragOver;
     property OnDragDrop;
     property OnEndDrag;

components/rx/trunk/rxctrls.pas

@@ -539,6 +539,9 @@ type
     property OnMouseUp;
     property OnMouseEnter;
     property OnMouseLeave;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnContextPopup;
     property OnEndDock;
@@ -662,6 +665,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnContextPopup;
     property OnEndDock;

components/rx/trunk/rxdaterangeeditunit.pas

@@ -107,6 +107,9 @@ type
     property OnClick;
     property OnEnter;
     property OnExit;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
   end;
 
 implementation

components/rx/trunk/rxdbcolorbox.pas

@@ -139,6 +139,9 @@ type
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnSelect;
     property OnUTF8KeyPress;

components/rx/trunk/rxdbcomb.pas

@@ -157,6 +157,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnSelect;
     property OnStartDrag;
     property OnUTF8KeyPress;

components/rx/trunk/rxdbctrls.pas

@@ -88,6 +88,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDock;
     property OnStartDrag;
     property Orientation;

components/rx/trunk/rxdbgrid.pas

@@ -860,6 +860,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnPrepareCanvas;
     property OnSelectEditor;
     property OnStartDock;

components/rx/trunk/rxdbspinedit.pas

@@ -113,6 +113,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnUTF8KeyPress;
     property ParentFont;

components/rx/trunk/rxdbtimeedit.pas

@@ -121,6 +121,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnUTF8KeyPress;
     property ParentColor;

components/rx/trunk/rxdice.pas

@@ -113,6 +113,9 @@ type
     property OnMouseMove;
     property OnMouseDown;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnKeyDown;
     property OnKeyUp;
     property OnKeyPress;

components/rx/trunk/rxlookup.pas

@@ -356,6 +356,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnGetGridCellProps;
     property OnSelect;

components/rx/trunk/rxspin.pas

@@ -198,13 +198,11 @@ type
     property DragMode;
     property Enabled;
     property Font;
-//{$IFDEF RX_D4}
     property Anchors;
     property BiDiMode;
     property Constraints;
     property DragKind;
     property ParentBiDiMode;
-//{$ENDIF}
     property MaxLength;
     property ParentColor;
 //    property ParentCtl3D;
@@ -232,12 +230,10 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
-//{$IFDEF RX_D5}
+    property OnMouseWheel;
-    property OnContextPopup;
-//{$ENDIF}
-//{$IFDEF RX_D4}
     property OnMouseWheelDown;
     property OnMouseWheelUp;
+    property OnContextPopup;
     property OnEndDock;
     property OnStartDock;
 //{$ENDIF}

components/rx/trunk/rxswitch.pas

@@ -133,6 +133,9 @@ type
     property OnMouseMove;
     property OnMouseDown;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnKeyDown;
     property OnKeyUp;
     property OnKeyPress;

components/rx/trunk/rxtimeedit.pas

@@ -109,6 +109,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnStartDrag;
     property OnUTF8KeyPress;
     property ParentColor;

components/rx/trunk/rxtoolbar.pas

@@ -273,6 +273,9 @@ type
     property OnMouseDown;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnStartDrag;
   end;
@@ -559,8 +562,8 @@ begin
     if ((FLastDrawFlagsA and DFCS_FLAT) <> 0) and ((FLastDrawFlagsA and DFCS_PUSHED) = 0)
       and (tpGlyphPopup in TToolbarItems(FOwnerItem.Collection).FToolPanel.Options) and FFullPush then
     begin
-      FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, false);
+//      FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, false);
-//      FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, gdeDisabled);
+      FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, gdeShadowed);
       Dec(Offset.X, 2);
       Dec(Offset.Y, 2);
     end;

components/rx/trunk/rxviewspanel.pas

@@ -179,6 +179,9 @@ type
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
     property OnStartDock;
     property OnStartDrag;

components/rx/trunk/tooledit.pas

@@ -219,6 +219,9 @@ type
     Property OnMouseDown;
     Property OnMouseMove;
     property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
     property OnResize;
   end;