[JVCL-Checkins] CVS: jvcl/source JvSpin.pas,1.4,1.5

[Sebastien B. <sb...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory usw-pr-cvs1:/tmp/cvs-serv31257

Modified Files:
	JvSpin.pas 
Log Message:
no message

Index: JvSpin.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvSpin.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** JvSpin.pas	27 Oct 2002 14:41:32 -0000	1.4
--- JvSpin.pas	12 Nov 2002 01:37:23 -0000	1.5
***************
*** 16,22 ****
  All Rights Reserved.
  
- Contributor(s):
- kcang
- 
  Last Modified: 2002-07-04
  
--- 16,19 ----
***************
*** 33,43 ****
[...1622 lines suppressed...]
! end.
  
--- 1211,1227 ----
  end;
  
! procedure TJvSpinEdit.SetThousands(const Value: Boolean);
! begin
!   if ValueType <> vtHex then
!     FThousands := Value;
! end;
  
+ procedure TJvSpinEdit.WMMouseWheel(var Message: TWMMouseWheel);
+ begin
+   if Message.WheelDelta>0 then
+     UpClick(nil)
+   else
+     DownClick(nil);
+ end;
+ 
+ end.