Changeset 347 for trunk/Packages/CevoComponents/Sound.pas

Timestamp:

Apr 6, 2021, 7:39:39 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing in InitOrnament procedure.

File:

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

trunk/Packages/CevoComponents/Sound.pas

@@ -19 +19 @@
     {$IFDEF WINDOWS}
     PrevWndProc: WNDPROC;
-    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;
+    procedure OnMCI(var Msg: TMessage); message MM_MCINOTIFY;
   public
     constructor Create(AOwner: TComponent); override;
@@ -255 +255 @@
 end;
 
-procedure TSoundPlayer.OnMCI(var m: TMessage);
-begin
-  if (m.wParam = MCI_NOTIFY_SUCCESSFUL) and (PlayingSound <> nil) then
+procedure TSoundPlayer.OnMCI(var Msg: TMessage);
+begin
+  if (Msg.wParam = MCI_NOTIFY_SUCCESSFUL) and (PlayingSound <> nil) then
   begin
     PlayingSound.Reset;