pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Introduce new datastore event OnPlaySound in order to play alarm sounds on non-Windows systems. If not assigned on Windows the mmsystem routine is used.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-13 09:53:36 +00:00
parent 9a1cfcd5f8
commit 4688f2e91d
2 changed files with 30 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpbase.pas
View File

@ -72,6 +72,8 @@ type
TVpTimeFormat = (tf24Hour, tf12Hour);
TVpPlaySoundMode = (psmSync, psmASync);
{ XML definitions }
DOMString = WideString;
@ -96,6 +98,9 @@ type
TVpGetEditorCaption = procedure(var Caption : string) of object;
TVpPlaySoundEvent = procedure(Sender: TObject; const AWavFile: String;
AMode: TVpPlaySoundMode) of object;
{ XML exceptions }
EXML = class (Exception);

33
components/tvplanit/source/vpbaseds.pas
View File

@ -210,6 +210,7 @@ type
FOnAlert : TVpEventEvent;
FOnResourceChange : TVpResourceEvent;
FOnDateChanged : TVpDateChangedEvent;
FOnPlaySound : TVpPlaySoundEvent;
procedure dsOnTimer(Sender: TObject);
procedure dsDoOnAlert(Event: TVpEvent);
@ -258,6 +259,7 @@ type
procedure PostTasks; virtual; abstract;
procedure PostResources; virtual; abstract;
procedure RegisterWatcher (Watcher : THandle);
procedure PlaySound(const AWavFile: String; APlaySoundMode: TVpPlaySoundMode);
property Loading : Boolean
read FLoading write FLoading;
property Resource: TVpResource
@ -290,6 +292,8 @@ type
read FOnDisconnect write FOnDisconnect;
property OnResourceChange: TVpResourceEvent
read FOnResourceChange write FOnResourceChange;
property OnPlaySound: TVpPlaySoundEvent
read FOnPlaySound write FOnPlaySound;
end;
@ -383,7 +387,7 @@ implementation
uses
VpSR, VpConst, VpMisc, VpResEditDlg, VpAlarmDlg,
{$IFNDEF LCL}
{$IFDEF WINDOWS}
mmSystem,
{$ENDIF}
VpDlg, VpSelResDlg;
@ -601,23 +605,22 @@ end;
procedure TVpCustomDataStore.dsDoOnAlert(Event: TVpEvent);
begin
if Event.AlertDisplayed then Exit;
if Event.AlertDisplayed then
Exit;
if Assigned(FOnAlert) then
FOnAlert(Self, Event)
else begin
{Ding!}
if FPlayEventSounds then begin
{$IFNDEF LCL}
if FileExists(Event.AlarmWavPath) then
if FileExists(Event.DingPath) then
{ if the event has a sound of its own, then play that one. }
SndPlaySound(PChar(Event.AlarmWavPath), snd_Async)
PlaySound(Event.DingPath, psmASync)
else if FileExists(FDefaultEventSound) then
{ otherwise, if there is a default sound assigned, then play that one }
SndPlaySound(PChar(FDefaultEventSound), snd_Async)
PlaySound(FDefaultEventSound, psmASync)
else
{ otherwise just ding }
{$ENDIF}
Beep;
end;
@ -869,7 +872,21 @@ begin
end;
{=====}
procedure TVpCustomDatastore.PlaySound(const AWavFile: String;
APlaySoundMode: TVpPlaySoundMode);
begin
if Assigned(FOnPlaySound) then
FOnPlaySound(Self, AWavFile, APlaySoundMode)
else begin
{$IFDEF WINDOWS}
case APlaySoundMode of
psmSync : SndPlaySound(PChar(AWavFile), SND_SYNC);
psmASync : SndPlaySound(PChar(AWavFile), SND_ASYNC);
end;
{$ENDIF}
end;
end;
{=====}
{ TVpResourceCombo }