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

Timestamp:

Mar 19, 2021, 9:59:02 AM (3 years ago)

Author:

chronos

Message:

• Added: Allow to set gamma corection in settings dialog.

File:

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

trunk/Packages/CevoComponents/Sound.pas

@@ -11 +11 @@
 type
   TPlayStyle = (psAsync, psSync);
+  TSoundMode = (smOff, smOn, smOnAlt);
 
   { TSoundPlayer }
@@ -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>;