You've already forked lazarus-ccr
3811b1ef1e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3562 8e941d3f-bd1b-0410-a28a-d453659cc2b4
67 lines
1.2 KiB
ObjectPascal
67 lines
1.2 KiB
ObjectPascal
unit umainform;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, Buttons, uplaysound;
|
|
|
|
type
|
|
|
|
{ Tmainform }
|
|
|
|
Tmainform = class(TForm)
|
|
BitBtn1: TBitBtn;
|
|
cmd_Async: TButton;
|
|
cmd_Sync: TButton;
|
|
playsound1: Tplaysound;
|
|
TIPropertyGrid1: TTIPropertyGrid;
|
|
procedure cmd_AsyncClick(Sender: TObject);
|
|
procedure cmd_SyncClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
mainform: Tmainform;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ Tmainform }
|
|
|
|
procedure Tmainform.cmd_AsyncClick(Sender: TObject);
|
|
// No gap between sounds. App remains responsive
|
|
begin
|
|
playsound1.PlayStyle:=psASync;
|
|
playsound1.SoundFile:='doorbell.wav';
|
|
playsound1.Execute;
|
|
playsound1.SoundFile:='telephone.wav';
|
|
playsound1.Execute;
|
|
end;
|
|
|
|
procedure Tmainform.cmd_SyncClick(Sender: TObject);
|
|
begin
|
|
playsound1.PlayStyle:=psSync;
|
|
playsound1.SoundFile:='doorbell.wav';
|
|
playsound1.Execute;
|
|
playsound1.SoundFile:='telephone.wav';
|
|
playsound1.Execute;
|
|
|
|
end;
|
|
|
|
procedure Tmainform.FormCreate(Sender: TObject);
|
|
begin
|
|
Caption:=Application.Title;
|
|
Icon:=Application.Icon;
|
|
end;
|
|
|
|
end.
|
|
|