From f25419b1e1c0adfb3b33c4bea7fd9086e4909e89 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Wed, 12 Aug 2020 21:17:55 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?=
 =?UTF-8?q?=D0=BB=20=D0=BF=D1=80=D0=B8=D0=BC=D0=B5=D1=80=20MovingFrameBase?=
 =?UTF-8?q?dTime.pas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Configuration/GlobalAssemblyInfo.cs                       | 2 +-
 Configuration/Version.defs                                | 4 ++--
 .../Graphics/WPFObjects/MovingFrameBasedTime.pas          | 8 ++++----
 Release/pabcversion.txt                                   | 2 +-
 ReleaseGenerators/PascalABCNET_version.nsh                | 2 +-
 5 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs
index d014c72ef..b8b144d17 100644
--- a/Configuration/GlobalAssemblyInfo.cs
+++ b/Configuration/GlobalAssemblyInfo.cs
@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "6";
 	public const string Build = "3";
-	public const string Revision = "2629";
+	public const string Revision = "2630";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
diff --git a/Configuration/Version.defs b/Configuration/Version.defs
index 94f7f4e85..1b746ed67 100644
--- a/Configuration/Version.defs
+++ b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%MINOR%=6
-%REVISION%=2629
 %COREVERSION%=3
+%REVISION%=2630
+%MINOR%=6
 %MAJOR%=3
diff --git a/InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas b/InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas
index 31400f5ce..a411db26d 100644
--- a/InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas
+++ b/InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas
@@ -3,11 +3,11 @@
 begin
   var c := new CircleWPF(Window.Center, 20, Colors.Green);
   
-  BeginFrameBasedAnimationTime(dt->begin
+  OnDrawFrame := dt → begin
     c.MoveTime(dt);    
-  end);
+  end;
   
-  OnKeyDown := k -> begin
+  OnKeyDown := k → begin
     case k of
       Key.Left: c.Direction := (-5, 0);
       Key.Right: c.Direction := (5, 0);
@@ -16,7 +16,7 @@ begin
     end;
   end;
   
-  OnKeyUp := k -> begin
+  OnKeyUp := k → begin
     c.Direction := (0, 0);
   end;
 end.
\ No newline at end of file
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
index c996fbd23..05c988c18 100644
--- a/Release/pabcversion.txt
+++ b/Release/pabcversion.txt
@@ -1 +1 @@
-3.6.3.2629
+3.6.3.2630
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index 243326825..31299660f 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.6.3.2629'
+!define VERSION '3.6.3.2630'