Changeset 275 for trunk/Packages

Timestamp:

Aug 13, 2020, 9:44:43 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Use correct type of TSound.Play parameter to be 64-bit on 64-bit systems.

File:

• trunk/Packages/CevoComponents/Sound.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/Sound.pas

@@ -5 +5 @@
 uses
   SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil,
-  StringTables, Directories
+  StringTables, Directories, LCLType
   {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF}
   {$IFDEF LINUX}, Process, AsyncProcess{$ENDIF};
@@ -40 +40 @@
     constructor Create(const FileName: string);
     destructor Destroy; override;
-    procedure Play(HWND: DWORD);
+    procedure Play(Handle: HWND);
     procedure Stop;
     procedure Reset;
@@ -155 +155 @@
 
 
-procedure TSound.Play(HWND: DWORD);
+procedure TSound.Play(Handle: HWND);
 {$IFDEF WINDOWS}
 var
@@ -169 +169 @@
   if FDeviceID <> 0 then
   begin
-    PlayParm.dwCallback := HWND;
+    PlayParm.dwCallback := Handle;
     mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, DWORD_PTR(@PlayParm));
   end