Fixed up-down arrows firing OnChange event

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2638 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2013-01-27 11:25:55 +00:00
parent a06ba35698
commit 28f337df41
1 changed files with 9 additions and 4 deletions
--- a/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas
+++ b/components/ZVDateTimeCtrls/trunk/zvdatetimepicker.pas
@ -2822,10 +2822,15 @@ begin
  SetFocusIfPossible;

  if not FReadOnly then begin
-    if Button = btNext then
-      IncreaseCurrentTextPart
-    else
-      DecreaseCurrentTextPart;
+    Inc(FUserChanging);
+    try
+      if Button = btNext then
+        IncreaseCurrentTextPart
+      else
+        DecreaseCurrentTextPart;
+    finally
+      Dec(FUserChanging);
+    end;
  end;
 end;