Changed folder structure

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5490 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/playsoundpackage/latest_stable/demo/demo.lpi

@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="PlaySound component demo"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <Icon Value="0"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <UseVersionInfo Value="True"/>
+      <RevisionNr Value="1"/>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="4">
+      <Item1>
+        <PackageName Value="RunTimeTypeInfoControls"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="poweredby"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="playwavepackage"/>
+        <MaxVersion Release="1"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="LCL"/>
+      </Item4>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="demo.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="umainform.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="mainform"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <Target>
+      <Filename Value="demo"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

components/playsoundpackage/latest_stable/demo/demo.lpr

@@ -0,0 +1,22 @@
+program demo;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms, runtimetypeinfocontrols, poweredby, umainform
+  { you can add units after this };
+
+{$R *.res}
+
+begin
+  Application.Title:='PlaySound component demo';
+  RequireDerivedFormResource := True;
+  Application.Initialize;
+  Application.CreateForm(Tmainform, mainform);
+  Application.Run;
+end.
+

components/playsoundpackage/latest_stable/demo/demo.lps

@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectSession>
+    <PathDelim Value="\"/>
+    <Version Value="9"/>
+    <BuildModes Active="Default"/>
+    <Units Count="6">
+      <Unit0>
+        <Filename Value="demo.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UsageCount Value="20"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="umainform.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="mainform"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <CursorPos X="32" Y="9"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="D:\Lazarusprojects\playsoundpackage\uplaysound.pas"/>
+        <TopLine Value="85"/>
+        <UsageCount Value="10"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\uplaysound.pas"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="118"/>
+        <CursorPos X="28" Y="118"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="X:\TEMP\wzbed3\grille.pas"/>
+        <EditorIndex Value="-1"/>
+        <TopLine Value="67"/>
+        <UsageCount Value="10"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="..\aboutplaysound.pas"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="580"/>
+        <CursorPos X="32" Y="589"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit5>
+    </Units>
+    <JumpHistory Count="3" HistoryIndex="2">
+      <Position1>
+        <Filename Value="umainform.pas"/>
+      </Position1>
+      <Position2>
+        <Filename Value="umainform.pas"/>
+        <Caret Line="44" Column="3" TopLine="10"/>
+      </Position2>
+      <Position3>
+        <Filename Value="..\aboutplaysound.pas"/>
+      </Position3>
+    </JumpHistory>
+  </ProjectSession>
+</CONFIG>

components/playsoundpackage/latest_stable/demo/umainform.lfm

@@ -0,0 +1,83 @@
+object mainform: Tmainform
+  Left = 415
+  Height = 257
+  Top = 305
+  Width = 352
+  BorderIcons = [biSystemMenu]
+  Caption = 'mainform'
+  ClientHeight = 257
+  ClientWidth = 352
+  DefaultMonitor = dmPrimary
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  LCLVersion = '1.7'
+  object cmd_Async: TButton
+    Left = 264
+    Height = 25
+    Top = 180
+    Width = 75
+    Caption = 'Play Async'
+    OnClick = cmd_AsyncClick
+    TabOrder = 0
+  end
+  object BitBtn1: TBitBtn
+    Left = 264
+    Height = 30
+    Top = 216
+    Width = 75
+    DefaultCaption = True
+    Kind = bkClose
+    ModalResult = 11
+    TabOrder = 1
+  end
+  object cmd_Sync: TButton
+    Left = 264
+    Height = 25
+    Top = 148
+    Width = 75
+    Caption = 'Play Sync'
+    OnClick = cmd_SyncClick
+    TabOrder = 2
+  end
+  object TIPropertyGrid1: TTIPropertyGrid
+    Left = 4
+    Height = 238
+    Top = 8
+    Width = 252
+    CheckboxForBoolean = False
+    DefaultValueFont.Color = clWindowText
+    Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
+    Indent = 16
+    NameFont.Color = clWindowText
+    TIObject = playsound1
+    ValueFont.Color = clMaroon
+  end
+  object cmd_StopSound: TButton
+    Left = 264
+    Height = 25
+    Top = 112
+    Width = 75
+    Caption = 'Stop Sound'
+    OnClick = cmd_StopSoundClick
+    TabOrder = 4
+  end
+  object playsound1: Tplaysound
+    About.Description.Strings = (
+      'Plays WAVE sounds in Windows or Linux'
+    )
+    About.Title = 'About About About About About About PlaySound'
+    About.Height = 400
+    About.Width = 400
+    About.Font.Color = clNavy
+    About.Font.Height = -13
+    About.BackGroundColor = clCream
+    About.Version = '0.0.1'
+    About.Authorname = 'Gordon Bamber'
+    About.Organisation = 'Public Domain'
+    About.AuthorEmail = 'minesadorada@charcodelvalle.com'
+    About.ComponentName = 'PlaySound'
+    About.LicenseType = abLGPL
+    left = 104
+    top = 40
+  end
+end

components/playsoundpackage/latest_stable/demo/umainform.pas

@@ -0,0 +1,82 @@
+unit umainform;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
+  StdCtrls, Buttons, ExtCtrls, uplaysound;
+
+type
+
+  { Tmainform }
+
+  Tmainform = class(TForm)
+    BitBtn1: TBitBtn;
+    cmd_StopSound: TButton;
+    cmd_Async: TButton;
+    cmd_Sync: TButton;
+    playsound1: Tplaysound;
+    TIPropertyGrid1: TTIPropertyGrid;
+    procedure cmd_AsyncClick(Sender: TObject);
+    procedure cmd_StopSoundClick(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;
+ {$IFDEF WINDOWS}
+  playsound1.SoundFile:='doorbell.wav';
+  playsound1.Execute;
+  playsound1.SoundFile:='telephone.wav';
+  playsound1.Execute;
+ {$ELSE}
+  // Sound file taken from PropertyGrid
+  playsound1.Execute;
+ {$ENDIF}
+end;
+
+procedure Tmainform.cmd_StopSoundClick(Sender: TObject);
+begin
+  playsound1.StopSound;
+end;
+
+procedure Tmainform.cmd_SyncClick(Sender: TObject);
+begin
+  playsound1.PlayStyle:=psSync;
+ {$IFDEF WINDOWS}
+  playsound1.SoundFile:='doorbell.wav';
+  playsound1.Execute;
+  playsound1.SoundFile:='telephone.wav';
+  playsound1.Execute;
+ {$ELSE}
+  // Sound file taken from PropertyGrid
+  playsound1.Execute;
+ {$ENDIF}
+end;
+
+procedure Tmainform.FormCreate(Sender: TObject);
+begin
+  Caption:=Application.Title;
+  Icon:=Application.Icon;
+end;
+
+end.
+

components/playsoundpackage/latest_stable/playwavepackage.lpk

@@ -17,32 +17,7 @@
     </CompilerOptions>
     <Description Value="Simple component to play wave files under Windows or Linux"/>
     <License Value="  Copyright (C)2014 minesadorada@charcodelvalle.com
-  Modified GPL
-  This library is free software; you can redistribute it and/or modify it
-  under the terms of the GNU Library General Public License as published by
-  the Free Software Foundation; either version 2 of the License, or (at your
-  option) any later version with the following modification:
-
-  As a special exception, the copyright holders of this library give you
-  permission to link this library with independent modules to produce an
-  executable, regardless of the license terms of these independent modules,and
-  to copy and distribute the resulting executable under terms of your choice,
-  provided that you also meet, for each linked independent module, the terms
-  and conditions of the license of that module. An independent module is a
-  module which is not derived from or based on this library. If you modify
-  this library, you may extend this exception to your version of the library,
-  but you are not obligated to do so. If you do not wish to do so, delete this
-  exception statement from your version.
-
-  This program is distributed in the hope that it will be useful, but WITHOUT
-  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
-  for more details.
-
-  You should have received a copy of the GNU Library General Public License
-  along with this library; if not, write to the Free Software Foundation,
-  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-"/>
+  Modified GPL"/>
     <Version Release="7"/>
     <Files Count="2">
       <Item1>

components/playsoundpackage/latest_stable/readme.txt

@@ -0,0 +1,25 @@
+PlayWavePackage
+===============
+
+A simple visual component to play WAVe files in Windows or Linux
+
+Licence
+=======
+LGPLv2
+
+Author
+======
+minesadorada
+
+Compatibility
+=============
+Tested in:
+Windows Vista 32-bit
+Linux Mint 64-bit
+
+Should work with:
+All versions of Windows
+Most versions of Linux
+Maybe Macintosh OSX
+
+:Gordon Bamber September 2014