Changeset 275 for trunk/Packages


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/Sound.pas

    r207 r275  
    55uses
    66  SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil,
    7   StringTables, Directories
     7  StringTables, Directories, LCLType
    88  {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF}
    99  {$IFDEF LINUX}, Process, AsyncProcess{$ENDIF};
     
    4040    constructor Create(const FileName: string);
    4141    destructor Destroy; override;
    42     procedure Play(HWND: DWORD);
     42    procedure Play(Handle: HWND);
    4343    procedure Stop;
    4444    procedure Reset;
     
    155155
    156156
    157 procedure TSound.Play(HWND: DWORD);
     157procedure TSound.Play(Handle: HWND);
    158158{$IFDEF WINDOWS}
    159159var
     
    169169  if FDeviceID <> 0 then
    170170  begin
    171     PlayParm.dwCallback := HWND;
     171    PlayParm.dwCallback := Handle;
    172172    mciSendCommand(FDeviceID, MCI_PLAY, MCI_NOTIFY, DWORD_PTR(@PlayParm));
    173173  end
Note: See TracChangeset for help on using the changeset viewer.