Changeset 531 for trunk/Packages/CevoComponents/ButtonBase.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ButtonBase.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -140 +140 @@
 // procedure TButtonBase.PlayDownSound;
 // begin
-// if DownSound<>'' then SndPlaySound(pchar(DownSound),SND_ASYNC)
+// if DownSound<>'' then SndPlaySound(PChar(DownSound),SND_ASYNC)
 // end;
 
 // procedure TButtonBase.PlayUpSound;
 // begin
-// if UpSound<>'' then SndPlaySound(pchar(UpSound),SND_ASYNC)
+// if UpSound<>'' then SndPlaySound(PChar(UpSound),SND_ASYNC)
 // end;