Исправил пример MovingFrameBasedTime.pas

This commit is contained in:
Mikhalkovich Stanislav 2020-08-12 21:17:55 +03:00
parent 490ddaa43a
commit f25419b1e1
5 changed files with 9 additions and 9 deletions

View file

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

View file

@ -1,4 +1,4 @@
%MINOR%=6
%REVISION%=2629
%COREVERSION%=3
%REVISION%=2630
%MINOR%=6
%MAJOR%=3

View file

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

View file

@ -1 +1 @@
3.6.3.2629
3.6.3.2630

View file

@ -1 +1 @@
!define VERSION '3.6.3.2629'
!define VERSION '3.6.3.2630'