Ignore:
Timestamp:
Apr 6, 2021, 7:39:39 PM (8 months ago)
Author:
chronos
Message:
File:
1 edited

Legend:

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

    r317 r347  
    1919    {$IFDEF WINDOWS}
    2020    PrevWndProc: WNDPROC;
    21     procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;
     21    procedure OnMCI(var Msg: TMessage); message MM_MCINOTIFY;
    2222  public
    2323    constructor Create(AOwner: TComponent); override;
     
    255255end;
    256256
    257 procedure TSoundPlayer.OnMCI(var m: TMessage);
    258 begin
    259   if (m.wParam = MCI_NOTIFY_SUCCESSFUL) and (PlayingSound <> nil) then
     257procedure TSoundPlayer.OnMCI(var Msg: TMessage);
     258begin
     259  if (Msg.wParam = MCI_NOTIFY_SUCCESSFUL) and (PlayingSound <> nil) then
    260260  begin
    261261    PlayingSound.Reset;
Note: See TracChangeset for help on using the changeset viewer.