pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-09-29 07:02:18 +00:00
parent 93a756c1cc
commit 72a9ffc042
20 changed files with 64 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/rx/trunk/autopanel.pas
View File

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

3
components/rx/trunk/curredit.pas
View File

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

3
components/rx/trunk/pickdate.pas
View File

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

3
components/rx/trunk/rxclock.pas
View File

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

6
components/rx/trunk/rxctrls.pas
View File

@@ -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;

3
components/rx/trunk/rxdaterangeeditunit.pas
View File

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

3
components/rx/trunk/rxdbcolorbox.pas
View File

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

3
components/rx/trunk/rxdbcomb.pas
View File

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

3
components/rx/trunk/rxdbctrls.pas
View File

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

3
components/rx/trunk/rxdbgrid.pas
View File

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

3
components/rx/trunk/rxdbspinedit.pas
View File

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

3
components/rx/trunk/rxdbtimeedit.pas
View File

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

3
components/rx/trunk/rxdice.pas
View File

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

3
components/rx/trunk/rxlookup.pas
View File

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

8
components/rx/trunk/rxspin.pas
View File

@@ -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 OnContextPopup;
//{$ENDIF}
//{$IFDEF RX_D4}
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
property OnContextPopup;
property OnEndDock;
property OnStartDock;
//{$ENDIF}

3
components/rx/trunk/rxswitch.pas
View File

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

3
components/rx/trunk/rxtimeedit.pas
View File

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

7
components/rx/trunk/rxtoolbar.pas
View File

@@ -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, gdeDisabled);
// FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, false);
FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, gdeShadowed);
Dec(Offset.X, 2);
Dec(Offset.Y, 2);
end;

3
components/rx/trunk/rxviewspanel.pas
View File

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

3
components/rx/trunk/tooledit.pas
View File

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