[JVCL-Checkins] SF.net SVN: jvcl:[13522] trunk/jvcl/run/JvTracker.pas

[<ah...@us...>]

Revision: 13522
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13522&view=rev
Author:   ahuser
Date:     2013-05-25 13:47:02 +0000 (Sat, 25 May 2013)
Log Message:
-----------
Mantis 6101: JvTracker not update OnChange when you move the cursor keys

Modified Paths:
--------------
    trunk/jvcl/run/JvTracker.pas

Modified: trunk/jvcl/run/JvTracker.pas
===================================================================
--- trunk/jvcl/run/JvTracker.pas	2013-05-25 13:40:28 UTC (rev 13521)
+++ trunk/jvcl/run/JvTracker.pas	2013-05-25 13:47:02 UTC (rev 13522)
@@ -42,6 +42,12 @@
 interface
 
 uses
+  {$IFDEF HAS_UNIT_SYSTEM_UITYPES}
+  System.UITypes, // inline
+  {$ENDIF HAS_UNIT_SYSTEM_UITYPES}
+  {$IFDEF HAS_UNIT_TYPES}
+  Types, // inline
+  {$ENDIF HAS_UNIT_TYPES}
   {$IFDEF UNITVERSIONING}
   JclUnitVersioning,
   {$ENDIF UNITVERSIONING}
@@ -859,7 +865,11 @@
       Value := Value - FStep;
     VK_RIGHT, VK_DOWN:
       Value := Value + FStep;
+  else
+    inherited;
+    Exit;
   end;
+  DoChangedValue(FValue);
 end;
 
 {$IFDEF UNITVERSIONING}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.