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

Sounds correct

Browse source
This commit is contained in:
miks1965 2018-03-22 10:31:16 +03:00
parent acb2c5fe8f
commit 462d2f12d4
6 changed files with 7 additions and 6 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 Minor = "3";
public const string Build = "5";
public const string Revision = "1640";
public const string Revision = "1641";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=3
%REVISION%=1640
%COREVERSION%=5
%REVISION%=1641
%MINOR%=3
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.3.5.1640'
!define VERSION '3.3.5.1641'

1
TestSuite/CompilationSamples/graph3d.pas
View file

@ -40,6 +40,7 @@ type
TupleInt3 = (integer, integer, integer);
TupleReal3 = (real, real, real);
Point3D = Point3D;
Point = System.Windows.Point;
{MyWindow = class(GWindow)
public

4
bin/Lib/Sounds.pas
View file

@ -5,7 +5,7 @@
procedure PlaySound(fname: string);
begin
var fsound := new System.Windows.Media.MediaPlayer;
fsound.Open(new System.Uri(fname));
fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute));
fsound.Play;
end;
@ -16,7 +16,7 @@ public
begin
Open(fname);
end;
procedure Open(fname: string) := fsound.Open(new System.Uri(fname));
procedure Open(fname: string) := fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute));
procedure Play := fsound.Play;
procedure Stop := fsound.Stop;
procedure Pause := fsound.Pause;