Исправил пример MovingFrameBasedTime.pas
This commit is contained in:
parent
490ddaa43a
commit
f25419b1e1
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
%MINOR%=6
|
||||
%REVISION%=2629
|
||||
%COREVERSION%=3
|
||||
%REVISION%=2630
|
||||
%MINOR%=6
|
||||
%MAJOR%=3
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
@ -1 +1 @@
|
|||
3.6.3.2629
|
||||
3.6.3.2630
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
!define VERSION '3.6.3.2629'
|
||||
!define VERSION '3.6.3.2630'
|
||||
|
|
|
|||
Loading…
Reference in a new issue