Changeset 349 for branches/highdpi/Packages/CevoComponents/Sound.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

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

branches/highdpi/Packages/CevoComponents/Sound.pas

@@ -11 +11 @@
 type
   TPlayStyle = (psAsync, psSync);
+  TSoundMode = (smOff, smOn, smOnAlt);
 
   { TSoundPlayer }
@@ -18 +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;
@@ -50 +51 @@
 procedure PreparePlay(Item: string; Index: Integer = -1);
 
-const
-  // sound modes
-  smOff = 0;
-  smOn = 1;
-  smOnAlt = 2;
-
 var
   Sounds: TStringTable;
-  SoundMode: Integer;
+  SoundMode: TSoundMode;
   SoundPlayer: TSoundPlayer;
   SoundList: TFPGObjectList<TSound>;
@@ -260 +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;