administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3"; public const string Major = "3";
public const string Minor = "6"; public const string Minor = "6";
public const string Build = "3"; public const string Build = "3";
public const string Revision = "2629"; public const string Revision = "2630";
public const string MainVersion = Major + "." + Minor; public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

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

8
InstallerSamples/Graphics/WPFObjects/MovingFrameBasedTime.pas
View file

@ -3,11 +3,11 @@
begin begin
var c := new CircleWPF(Window.Center, 20, Colors.Green); var c := new CircleWPF(Window.Center, 20, Colors.Green);
BeginFrameBasedAnimationTime(dt->begin OnDrawFrame := dt → begin
c.MoveTime(dt); c.MoveTime(dt);
end); end;
OnKeyDown := k -> begin OnKeyDown := k → begin
case k of case k of
Key.Left: c.Direction := (-5, 0); Key.Left: c.Direction := (-5, 0);
Key.Right: c.Direction := (5, 0); Key.Right: c.Direction := (5, 0);
@ -16,7 +16,7 @@ begin
end; end;
end; end;
OnKeyUp := k -> begin OnKeyUp := k → begin
c.Direction := (0, 0); c.Direction := (0, 0);
end; end;
end. end.

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.6.3.2629 3.6.3.2630

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

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