Changeset 75 for trunk/Packages
- Timestamp:
- Mar 26, 2024, 11:27:01 PM (9 months ago)
- Location:
- trunk/Packages/CoolAudio
- Files:
-
- 4 edited
- 1 copied
- 15 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CoolAudio/CoolAudio.lpk
r38 r75 1 1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 <Package Version=" 4">3 <Package Version="5"> 4 4 <Name Value="CoolAudio"/> 5 5 <Type Value="RunAndDesignTime"/> … … 32 32 </CompilerOptions> 33 33 <Description Value="Features: 34 - TMediaPlayer for playing sound files using different audio systems 34 - TMediaPlayer for playing sound files using different audio systems 35 35 - TPlayList for song list management"/> 36 36 <License Value="GNU/GPL"/> 37 37 <Version Minor="2"/> 38 <Files Count="1 0">38 <Files Count="11"> 39 39 <Item1> 40 <Filename Value=" UCoolAudio.pas"/>40 <Filename Value="CoolAudio.pas"/> 41 41 <HasRegisterProc Value="True"/> 42 <UnitName Value=" UCoolAudio"/>42 <UnitName Value="CoolAudio"/> 43 43 </Item1> 44 44 <Item2> 45 <Filename Value=" UPlaylist.pas"/>46 <UnitName Value=" UPlaylist"/>45 <Filename Value="Playlist.pas"/> 46 <UnitName Value="Playlist"/> 47 47 </Item2> 48 48 <Item3> 49 <Filename Value="Systems/ UAudioSystem.pas"/>50 <UnitName Value=" UAudioSystem"/>49 <Filename Value="Systems/AudioSystem.pas"/> 50 <UnitName Value="AudioSystem"/> 51 51 </Item3> 52 52 <Item4> 53 <Filename Value="Systems/DSP/ UAudioSystemDSP.pas"/>54 <UnitName Value=" UAudioSystemDSP"/>53 <Filename Value="Systems/DSP/AudioSystemDSP.pas"/> 54 <UnitName Value="AudioSystemDSP"/> 55 55 </Item4> 56 56 <Item5> 57 <Filename Value="Systems/FMOD/ UAudioSystemFMOD.pas"/>58 <UnitName Value=" UAudioSystemFMOD"/>57 <Filename Value="Systems/FMOD/AudioSystemFMOD.pas"/> 58 <UnitName Value="AudioSystemFMOD"/> 59 59 </Item5> 60 60 <Item6> 61 <Filename Value="Systems/MAD/ UAudioSystemMAD.pas"/>62 <UnitName Value=" UAudioSystemMAD"/>61 <Filename Value="Systems/MAD/AudioSystemMAD.pas"/> 62 <UnitName Value="AudioSystemMAD"/> 63 63 </Item6> 64 64 <Item7> 65 <Filename Value="Systems/WinAPI/ UAudioSystemWindows.pas"/>66 <UnitName Value=" UAudioSystemWindows"/>65 <Filename Value="Systems/WinAPI/AudioSystemWindows.pas"/> 66 <UnitName Value="AudioSystemWindows"/> 67 67 </Item7> 68 68 <Item8> 69 <Filename Value="Systems/mplayer/ UAudioSystemMPlayer.pas"/>70 <UnitName Value=" UAudioSystemMPlayer"/>69 <Filename Value="Systems/mplayer/AudioSystemMPlayer.pas"/> 70 <UnitName Value="AudioSystemMPlayer"/> 71 71 </Item8> 72 72 <Item9> 73 <Filename Value="Systems/ UWavFile.pas"/>74 <UnitName Value=" UWavFile"/>73 <Filename Value="Systems/WavFile.pas"/> 74 <UnitName Value="WavFile"/> 75 75 </Item9> 76 76 <Item10> 77 <Filename Value=" UCoolAudioConfig.inc"/>78 <UnitName Value=" UCoolAudioConfig"/>77 <Filename Value="CoolAudioConfig.inc"/> 78 <UnitName Value="CoolAudioConfig"/> 79 79 </Item10> 80 <Item11> 81 <Filename Value="CoolAudioPackage.pas"/> 82 <Type Value="Main Unit"/> 83 <AddToUsesPkgSection Value="False"/> 84 <UnitName Value="CoolAudio"/> 85 </Item11> 80 86 </Files> 87 <CompatibilityMode Value="True"/> 81 88 <RequiredPkgs Count="2"> 82 89 <Item1> -
trunk/Packages/CoolAudio/CoolAudio.pas
r74 r75 1 unit UCoolAudio;1 unit CoolAudio; 2 2 3 {$I UCoolAudioConfig.inc} 4 5 {$mode Delphi}{$H+} 3 {$I CoolAudioConfig.inc} 6 4 7 5 interface … … 9 7 uses 10 8 Classes, SysUtils, 11 {$IFDEF AudioSystemWindows} UAudioSystemWindows,{$ENDIF}12 {$IFDEF AudioSystemMPlayer} UAudioSystemMPlayer,{$ENDIF}13 {$IFDEF AudioSystemFMOD} UAudioSystemFMOD,{$ENDIF}14 {$IFDEF AudioSystemMAD} UAudioSystemMAD,{$ENDIF}15 {$IFDEF AudioSystemDSP} UAudioSystemDSP,{$ENDIF}16 UAudioSystem;9 {$IFDEF AudioSystemWindows}AudioSystemWindows,{$ENDIF} 10 {$IFDEF AudioSystemMPlayer}AudioSystemMPlayer,{$ENDIF} 11 {$IFDEF AudioSystemFMOD}AudioSystemFMOD,{$ENDIF} 12 {$IFDEF AudioSystemMAD}AudioSystemMAD,{$ENDIF} 13 {$IFDEF AudioSystemDSP}AudioSystemDSP,{$ENDIF} 14 AudioSystem; 17 15 18 16 var … … 25 23 26 24 uses 27 UPlayList;25 PlayList; 28 26 29 27 procedure Register; … … 43 41 finalization 44 42 45 AudioSystemManager.Free;43 FreeAndNil(AudioSystemManager); 46 44 47 45 end. -
trunk/Packages/CoolAudio/CoolAudioPackage.pas
r74 r75 3 3 } 4 4 5 unit CoolAudio ;5 unit CoolAudioPackage; 6 6 7 {$warn 5023 off : no warning about unused units} 7 8 interface 8 9 9 10 uses 10 UCoolAudio, UPlaylist, UAudioSystem, UAudioSystemDSP, UAudioSystemFMOD,11 UAudioSystemMAD, UAudioSystemWindows, UAudioSystemMPlayer, UWavFile,11 CoolAudio, Playlist, AudioSystem, AudioSystemDSP, AudioSystemFMOD, 12 AudioSystemMAD, AudioSystemWindows, AudioSystemMPlayer, WavFile, 12 13 LazarusPackageIntf; 13 14 … … 16 17 procedure Register; 17 18 begin 18 RegisterUnit(' UCoolAudio', @UCoolAudio.Register);19 RegisterUnit('CoolAudio', @CoolAudio.Register); 19 20 end; 20 21 -
trunk/Packages/CoolAudio/Demo/Demo.lpi
r32 r75 1 <?xml version="1.0" ?>1 <?xml version="1.0" encoding="UTF-8"?> 2 2 <CONFIG> 3 3 <ProjectOptions> 4 <Version Value=" 9"/>4 <Version Value="12"/> 5 5 <General> 6 <MainUnit Value="0"/> 6 <Flags> 7 <CompatibilityMode Value="True"/> 8 </Flags> 7 9 <ResourceType Value="res"/> 8 10 <UseXPManifest Value="True"/> 9 11 <Icon Value="0"/> 10 <ActiveWindowIndexAtStart Value="0"/>11 12 </General> 12 13 <i18n> 13 14 <EnableI18N LFM="False"/> 14 15 </i18n> 15 <VersionInfo>16 <StringTable ProductVersion=""/>17 </VersionInfo>18 16 <BuildModes Count="1" Active="Default"> 19 17 <Item1 Name="Default" Default="True"/> … … 21 19 <PublishOptions> 22 20 <Version Value="2"/> 23 <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>24 <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>25 21 </PublishOptions> 26 22 <RunParams> 27 < local>28 <FormatVersion Value="1"/>29 < LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>30 </ local>23 <FormatVersion Value="2"/> 24 <Modes Count="1"> 25 <Mode0 Name="default"/> 26 </Modes> 31 27 </RunParams> 32 28 <RequiredPackages Count="2"> … … 38 34 </Item2> 39 35 </RequiredPackages> 40 <Units Count=" 45">36 <Units Count="17"> 41 37 <Unit0> 42 38 <Filename Value="Demo.lpr"/> 43 39 <IsPartOfProject Value="True"/> 44 <UnitName Value="Demo"/> 45 <WindowIndex Value="0"/> 46 <TopLine Value="1"/> 47 <CursorPos X="34" Y="10"/> 40 <EditorIndex Value="3"/> 41 <CursorPos Y="3"/> 48 42 <UsageCount Value="85"/> 43 <Loaded Value="True"/> 49 44 </Unit0> 50 45 <Unit1> 51 <Filename Value=" UFormMain.pas"/>46 <Filename Value="FormMain.pas"/> 52 47 <IsPartOfProject Value="True"/> 53 48 <ComponentName Value="FormMain"/> 54 49 <HasResources Value="True"/> 55 50 <ResourceBaseClass Value="Form"/> 56 <UnitName Value="UFormMain"/>57 51 <IsVisibleTab Value="True"/> 58 <EditorIndex Value="0"/> 59 <WindowIndex Value="0"/> 60 <TopLine Value="128"/> 61 <CursorPos X="16" Y="134"/> 52 <TopLine Value="121"/> 53 <CursorPos X="30" Y="138"/> 62 54 <UsageCount Value="85"/> 63 55 <Loaded Value="True"/> … … 65 57 </Unit1> 66 58 <Unit2> 67 <Filename Value="../UCoolAudio.pas"/> 68 <UnitName Value="UCoolAudio"/> 69 <WindowIndex Value="0"/> 59 <Filename Value="../CoolAudio.pas"/> 70 60 <TopLine Value="22"/> 71 61 <CursorPos X="34" Y="37"/> 72 62 <UsageCount Value="36"/> 63 <DefaultSyntaxHighlighter Value="Delphi"/> 73 64 </Unit2> 74 65 <Unit3> 75 <Filename Value="../Systems/UAudioSystemFMOD.pas"/> 76 <UnitName Value="UAudioSystemFMOD"/> 77 <WindowIndex Value="0"/> 66 <Filename Value="../Systems/AudioSystemFMOD.pas"/> 78 67 <TopLine Value="47"/> 79 <CursorPos X="1"Y="61"/>68 <CursorPos Y="61"/> 80 69 <UsageCount Value="39"/> 70 <DefaultSyntaxHighlighter Value="Delphi"/> 81 71 </Unit3> 82 72 <Unit4> 83 <Filename Value="../UPlaylist.pas"/> 84 <UnitName Value="UPlaylist"/> 85 <WindowIndex Value="0"/> 73 <Filename Value="../Playlist.pas"/> 86 74 <TopLine Value="23"/> 87 75 <CursorPos X="31" Y="35"/> 88 76 <UsageCount Value="18"/> 77 <DefaultSyntaxHighlighter Value="Delphi"/> 89 78 </Unit4> 90 79 <Unit5> 91 80 <Filename Value="../fmodintf/fmoddyn.pas"/> 92 <UnitName Value="fmoddyn"/>93 <WindowIndex Value="0"/>94 81 <TopLine Value="579"/> 95 82 <CursorPos X="19" Y="593"/> 96 83 <UsageCount Value="34"/> 84 <DefaultSyntaxHighlighter Value="Delphi"/> 97 85 </Unit5> 98 86 <Unit6> 99 87 <Filename Value="../fmodintf/fmodtypes.pas"/> 100 <UnitName Value="fmodtypes"/>101 <WindowIndex Value="0"/>102 88 <TopLine Value="158"/> 103 89 <CursorPos X="43" Y="178"/> 104 90 <UsageCount Value="6"/> 91 <DefaultSyntaxHighlighter Value="Delphi"/> 105 92 </Unit6> 106 93 <Unit7> 107 <Filename Value="../Systems/UAudioSystemMPlayer.pas"/> 108 <UnitName Value="UAudioSystemMPlayer"/> 109 <WindowIndex Value="0"/> 94 <Filename Value="../Systems/AudioSystemMPlayer.pas"/> 110 95 <TopLine Value="243"/> 111 96 <CursorPos X="114" Y="258"/> 112 97 <UsageCount Value="39"/> 98 <DefaultSyntaxHighlighter Value="Delphi"/> 113 99 </Unit7> 114 100 <Unit8> 115 <Filename Value="../CoolAudio.pas"/> 116 <UnitName Value="CoolAudio"/> 117 <WindowIndex Value="0"/> 118 <TopLine Value="1"/> 119 <CursorPos X="45" Y="19"/> 120 <UsageCount Value="10"/> 121 </Unit8> 122 <Unit9> 123 <Filename Value="../Systems/UAudioSystem.pas"/> 124 <UnitName Value="UAudioSystem"/> 125 <WindowIndex Value="0"/> 101 <Filename Value="../Systems/AudioSystem.pas"/> 126 102 <TopLine Value="27"/> 127 103 <CursorPos X="15" Y="40"/> 128 104 <UsageCount Value="51"/> 105 <DefaultSyntaxHighlighter Value="Delphi"/> 106 </Unit8> 107 <Unit9> 108 <Filename Value=""/> 109 <UsageCount Value="10"/> 110 <DefaultSyntaxHighlighter Value="None"/> 129 111 </Unit9> 130 112 <Unit10> 131 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/> 132 <UnitName Value="StdCtrls"/> 133 <WindowIndex Value="0"/> 134 <TopLine Value="418"/> 135 <CursorPos X="18" Y="430"/> 136 <UsageCount Value="6"/> 137 </Unit10> 138 <Unit11> 139 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/controls.pp"/> 140 <UnitName Value="Controls"/> 141 <WindowIndex Value="0"/> 142 <TopLine Value="2427"/> 143 <CursorPos X="24" Y="2429"/> 144 <UsageCount Value="8"/> 145 </Unit11> 146 <Unit12> 147 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/lclclasses.pp"/> 148 <UnitName Value="LCLClasses"/> 149 <WindowIndex Value="0"/> 150 <TopLine Value="38"/> 151 <CursorPos X="32" Y="50"/> 152 <UsageCount Value="4"/> 153 </Unit12> 154 <Unit13> 155 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/widgetset/wslclclasses.pp"/> 156 <UnitName Value="WSLCLClasses"/> 157 <WindowIndex Value="0"/> 158 <TopLine Value="120"/> 159 <CursorPos X="16" Y="131"/> 160 <UsageCount Value="4"/> 161 </Unit13> 162 <Unit14> 163 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/buttons.inc"/> 164 <WindowIndex Value="0"/> 165 <TopLine Value="26"/> 166 <CursorPos X="18" Y="28"/> 167 <UsageCount Value="4"/> 168 </Unit14> 169 <Unit15> 170 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/buttoncontrol.inc"/> 171 <WindowIndex Value="0"/> 172 <TopLine Value="65"/> 173 <CursorPos X="17" Y="67"/> 174 <UsageCount Value="4"/> 175 </Unit15> 176 <Unit16> 177 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/> 178 <WindowIndex Value="0"/> 179 <TopLine Value="2275"/> 180 <CursorPos X="1" Y="2287"/> 181 <UsageCount Value="34"/> 182 </Unit16> 183 <Unit17> 184 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/wincontrol.inc"/> 185 <WindowIndex Value="0"/> 186 <TopLine Value="6307"/> 187 <CursorPos X="17" Y="6320"/> 188 <UsageCount Value="4"/> 189 </Unit17> 190 <Unit18> 191 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-process/src/process.pp"/> 192 <UnitName Value="process"/> 193 <WindowIndex Value="0"/> 194 <TopLine Value="13"/> 195 <CursorPos X="21" Y="26"/> 196 <UsageCount Value="8"/> 197 </Unit18> 198 <Unit19> 199 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/libogcfpc/src/debug.pp"/> 200 <UnitName Value="debug"/> 201 <WindowIndex Value="0"/> 202 <TopLine Value="1"/> 203 <CursorPos X="1" Y="1"/> 204 <UsageCount Value="8"/> 205 </Unit19> 206 <Unit20> 207 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/winunits-base/src/mmsystem.pp"/> 208 <UnitName Value="mmsystem"/> 209 <WindowIndex Value="0"/> 210 <TopLine Value="1781"/> 211 <CursorPos X="52" Y="1791"/> 212 <UsageCount Value="36"/> 213 </Unit20> 214 <Unit21> 215 <Filename Value="../Systems/UAudioSystemWindows.pas"/> 216 <UnitName Value="UAudioSystemWindows"/> 217 <WindowIndex Value="0"/> 218 <TopLine Value="212"/> 219 <CursorPos X="50" Y="224"/> 220 <UsageCount Value="45"/> 221 </Unit21> 222 <Unit22> 223 <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/sysutils/sysstrh.inc"/> 224 <WindowIndex Value="0"/> 225 <TopLine Value="159"/> 226 <CursorPos X="10" Y="176"/> 227 <UsageCount Value="5"/> 228 </Unit22> 229 <Unit23> 230 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/osutilsh.inc"/> 231 <WindowIndex Value="0"/> 232 <TopLine Value="23"/> 233 <CursorPos X="10" Y="23"/> 234 <UsageCount Value="35"/> 235 </Unit23> 236 <Unit24> 237 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win/wininc/base.inc"/> 238 <WindowIndex Value="0"/> 239 <TopLine Value="148"/> 240 <CursorPos X="6" Y="159"/> 241 <UsageCount Value="11"/> 242 </Unit24> 243 <Unit25> 244 <Filename Value="UFormPlaylist.pas"/> 113 <Filename Value="FormPlaylist.pas"/> 245 114 <IsPartOfProject Value="True"/> 246 115 <ComponentName Value="FormPlaylist"/> 247 116 <HasResources Value="True"/> 248 117 <ResourceBaseClass Value="Form"/> 249 <UnitName Value="UFormPlaylist"/> 250 <WindowIndex Value="0"/> 251 <TopLine Value="155"/> 252 <CursorPos X="28" Y="168"/> 118 <EditorIndex Value="1"/> 119 <TopLine Value="133"/> 120 <CursorPos X="65" Y="156"/> 253 121 <UsageCount Value="25"/> 254 </Unit25> 255 <Unit26> 256 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 257 <UnitName Value="UAudioSystemWindows"/> 258 <EditorIndex Value="3"/> 259 <WindowIndex Value="0"/> 260 <TopLine Value="21"/> 261 <CursorPos X="73" Y="43"/> 262 <UsageCount Value="11"/> 263 <Loaded Value="True"/> 264 </Unit26> 265 <Unit27> 266 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/customform.inc"/> 267 <WindowIndex Value="0"/> 268 <TopLine Value="934"/> 269 <CursorPos X="1" Y="947"/> 270 <UsageCount Value="10"/> 271 </Unit27> 272 <Unit28> 273 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/listitem.inc"/> 274 <WindowIndex Value="0"/> 275 <TopLine Value="725"/> 276 <CursorPos X="1" Y="738"/> 277 <UsageCount Value="10"/> 278 </Unit28> 279 <Unit29> 280 <Filename Value="../UCoolAudioConfig.inc"/> 281 <WindowIndex Value="0"/> 282 <TopLine Value="1"/> 283 <CursorPos X="1" Y="5"/> 284 <UsageCount Value="10"/> 285 </Unit29> 286 <Unit30> 122 <Loaded Value="True"/> 123 </Unit10> 124 <Unit11> 125 <Filename Value="../CoolAudioConfig.inc"/> 126 <CursorPos Y="5"/> 127 <UsageCount Value="10"/> 128 <DefaultSyntaxHighlighter Value="Delphi"/> 129 </Unit11> 130 <Unit12> 287 131 <Filename Value="../Systems/FMOD/fmoddyn.pas"/> 288 <UnitName Value="fmoddyn"/>289 <WindowIndex Value="0"/>290 132 <TopLine Value="576"/> 291 133 <CursorPos X="20" Y="594"/> 292 134 <UsageCount Value="10"/> 293 </Unit30> 294 <Unit31> 295 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/stdctrls.pp"/> 296 <UnitName Value="StdCtrls"/> 297 <WindowIndex Value="0"/> 298 <TopLine Value="1081"/> 299 <CursorPos X="3" Y="1085"/> 300 <UsageCount Value="10"/> 301 </Unit31> 302 <Unit32> 303 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/buttons.inc"/> 304 <WindowIndex Value="0"/> 305 <TopLine Value="280"/> 306 <CursorPos X="3" Y="285"/> 307 <UsageCount Value="10"/> 308 </Unit32> 309 <Unit33> 310 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/buttoncontrol.inc"/> 311 <WindowIndex Value="0"/> 312 <TopLine Value="59"/> 313 <CursorPos X="3" Y="61"/> 314 <UsageCount Value="10"/> 315 </Unit33> 316 <Unit34> 317 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/widgetset/wsstdctrls.pp"/> 318 <UnitName Value="WSStdCtrls"/> 319 <WindowIndex Value="0"/> 320 <TopLine Value="212"/> 321 <CursorPos X="3" Y="225"/> 322 <UsageCount Value="10"/> 323 </Unit34> 324 <Unit35> 325 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/widgetset/wsfactory.pas"/> 326 <UnitName Value="WSFactory"/> 327 <WindowIndex Value="0"/> 328 <TopLine Value="42"/> 329 <CursorPos X="1" Y="55"/> 330 <UsageCount Value="10"/> 331 </Unit35> 332 <Unit36> 333 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/controls.pp"/> 334 <UnitName Value="Controls"/> 335 <WindowIndex Value="0"/> 336 <TopLine Value="1309"/> 337 <CursorPos X="15" Y="1310"/> 338 <UsageCount Value="10"/> 339 </Unit36> 340 <Unit37> 341 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/control.inc"/> 342 <WindowIndex Value="0"/> 343 <TopLine Value="3633"/> 344 <CursorPos X="47" Y="3641"/> 345 <UsageCount Value="10"/> 346 </Unit37> 347 <Unit38> 348 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/lclclasses.pp"/> 349 <UnitName Value="LCLClasses"/> 350 <WindowIndex Value="0"/> 351 <TopLine Value="37"/> 352 <CursorPos X="13" Y="41"/> 353 <UsageCount Value="10"/> 354 </Unit38> 355 <Unit39> 356 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/widgetset/wslclclasses.pp"/> 357 <UnitName Value="WSLCLClasses"/> 358 <WindowIndex Value="0"/> 359 <TopLine Value="61"/> 360 <CursorPos X="3" Y="74"/> 361 <UsageCount Value="10"/> 362 </Unit39> 363 <Unit40> 364 <Filename Value="../Systems/FMOD/UAudioSystemFMOD.pas"/> 365 <UnitName Value="UAudioSystemFMOD"/> 366 <WindowIndex Value="0"/> 135 <DefaultSyntaxHighlighter Value="Delphi"/> 136 </Unit12> 137 <Unit13> 138 <Filename Value="../Systems/FMOD/AudioSystemFMOD.pas"/> 367 139 <TopLine Value="66"/> 368 140 <CursorPos X="25" Y="68"/> 369 141 <UsageCount Value="10"/> 370 </Unit40> 371 <Unit41> 372 <Filename Value="../Systems/mplayer/UAudioSystemMPlayer.pas"/> 373 <UnitName Value="UAudioSystemMPlayer"/> 374 <WindowIndex Value="0"/> 375 <TopLine Value="130"/> 376 <CursorPos X="1" Y="134"/> 377 <UsageCount Value="10"/> 378 </Unit41> 379 <Unit42> 380 <Filename Value="../../../../Lazarus/1.1_2.6.0/fpc/2.6.0/source/rtl/objpas/classes/classesh.inc"/> 381 <WindowIndex Value="0"/> 382 <TopLine Value="1919"/> 383 <CursorPos X="11" Y="1932"/> 384 <UsageCount Value="10"/> 385 </Unit42> 386 <Unit43> 387 <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/> 388 <UnitName Value="UAudioSystemDSP"/> 142 <DefaultSyntaxHighlighter Value="Delphi"/> 143 </Unit13> 144 <Unit14> 145 <Filename Value="../Systems/mplayer/AudioSystemMPlayer.pas"/> 389 146 <EditorIndex Value="2"/> 390 <WindowIndex Value="0"/> 147 <CursorPos X="15"/> 148 <UsageCount Value="10"/> 149 <Loaded Value="True"/> 150 <DefaultSyntaxHighlighter Value="Delphi"/> 151 </Unit14> 152 <Unit15> 153 <Filename Value="../Systems/DSP/AudioSystemDSP.pas"/> 154 <EditorIndex Value="5"/> 391 155 <TopLine Value="160"/> 392 <CursorPos X="1" Y="167"/> 393 <UsageCount Value="10"/> 394 <Loaded Value="True"/> 395 </Unit43> 396 <Unit44> 397 <Filename Value="../Systems/MAD/UAudioSystemMAD.pas"/> 398 <UnitName Value="UAudioSystemMAD"/> 399 <EditorIndex Value="1"/> 400 <WindowIndex Value="0"/> 156 <CursorPos Y="167"/> 157 <UsageCount Value="10"/> 158 <Loaded Value="True"/> 159 <DefaultSyntaxHighlighter Value="Delphi"/> 160 </Unit15> 161 <Unit16> 162 <Filename Value="../Systems/MAD/AudioSystemMAD.pas"/> 163 <EditorIndex Value="4"/> 401 164 <TopLine Value="2"/> 402 <CursorPos X="40" Y="20"/> 403 <UsageCount Value="10"/> 404 <Loaded Value="True"/> 405 </Unit44> 165 <CursorPos X="9" Y="20"/> 166 <UsageCount Value="10"/> 167 <Loaded Value="True"/> 168 <DefaultSyntaxHighlighter Value="Delphi"/> 169 </Unit16> 406 170 </Units> 407 <JumpHistory Count="1 7" HistoryIndex="16">171 <JumpHistory Count="18" HistoryIndex="17"> 408 172 <Position1> 409 <Filename Value=" UFormMain.pas"/>410 <Caret Line=" 121" Column="10" TopLine="111"/>173 <Filename Value="FormMain.pas"/> 174 <Caret Line="7" Column="33"/> 411 175 </Position1> 412 176 <Position2> 413 <Filename Value=" UFormMain.pas"/>414 <Caret Line="1 25" Column="28" TopLine="112"/>177 <Filename Value="Demo.lpr"/> 178 <Caret Line="10" Column="20"/> 415 179 </Position2> 416 180 <Position3> 417 <Filename Value=" UFormMain.pas"/>418 <Caret Line=" 122" Column="28" TopLine="112"/>181 <Filename Value="FormMain.pas"/> 182 <Caret Line="84" Column="62" TopLine="62"/> 419 183 </Position3> 420 184 <Position4> 421 <Filename Value=" UFormMain.pas"/>422 <Caret Line=" 164" Column="30" TopLine="159"/>185 <Filename Value="FormMain.pas"/> 186 <Caret Line="60" Column="50" TopLine="34"/> 423 187 </Position4> 424 188 <Position5> 425 <Filename Value=" UFormMain.pas"/>426 <Caret Line=" 51" Column="49" TopLine="27"/>189 <Filename Value="FormMain.pas"/> 190 <Caret Line="69" Column="3" TopLine="45"/> 427 191 </Position5> 428 192 <Position6> 429 <Filename Value=" UFormMain.pas"/>430 <Caret Line=" 29" Column="32" TopLine="18"/>193 <Filename Value="FormPlaylist.pas"/> 194 <Caret Line="74" Column="12" TopLine="50"/> 431 195 </Position6> 432 196 <Position7> 433 <Filename Value=" UFormMain.pas"/>434 <Caret Line=" 27" Column="18" TopLine="18"/>197 <Filename Value="FormPlaylist.pas"/> 198 <Caret Line="82" Column="26" TopLine="58"/> 435 199 </Position7> 436 200 <Position8> 437 <Filename Value=" ../Systems/MAD/UAudioSystemMAD.pas"/>438 <Caret Line=" 37" Column="23" TopLine="23"/>201 <Filename Value="FormPlaylist.pas"/> 202 <Caret Line="93" Column="21" TopLine="68"/> 439 203 </Position8> 440 204 <Position9> 441 <Filename Value=" ../Systems/MAD/UAudioSystemMAD.pas"/>442 <Caret Line=" 20" Column="29" TopLine="2"/>205 <Filename Value="FormPlaylist.pas"/> 206 <Caret Line="110" Column="29" TopLine="86"/> 443 207 </Position9> 444 208 <Position10> 445 <Filename Value=" ../Systems/DSP/UAudioSystemDSP.pas"/>446 <Caret Line=" 23" Column="14" TopLine="5"/>209 <Filename Value="FormPlaylist.pas"/> 210 <Caret Line="122" Column="23" TopLine="98"/> 447 211 </Position10> 448 212 <Position11> 449 <Filename Value=" ../Systems/DSP/UAudioSystemDSP.pas"/>450 <Caret Line=" 32" Column="40" TopLine="14"/>213 <Filename Value="FormPlaylist.pas"/> 214 <Caret Line="146" Column="36" TopLine="119"/> 451 215 </Position11> 452 216 <Position12> 453 <Filename Value=" ../Systems/DSP/UAudioSystemDSP.pas"/>454 <Caret Line=" 43" Column="23" TopLine="25"/>217 <Filename Value="FormPlaylist.pas"/> 218 <Caret Line="167" Column="39" TopLine="133"/> 455 219 </Position12> 456 220 <Position13> 457 <Filename Value=" ../Systems/WinAPI/UAudioSystemWindows.pas"/>458 <Caret Line=" 27" Column="44" TopLine="16"/>221 <Filename Value="FormPlaylist.pas"/> 222 <Caret Line="176" Column="47" TopLine="133"/> 459 223 </Position13> 460 224 <Position14> 461 <Filename Value=" ../Systems/WinAPI/UAudioSystemWindows.pas"/>462 <Caret Line=" 69" Column="53" TopLine="51"/>225 <Filename Value="FormMain.pas"/> 226 <Caret Line="146" Column="29" TopLine="122"/> 463 227 </Position14> 464 228 <Position15> 465 <Filename Value=" ../Systems/WinAPI/UAudioSystemWindows.pas"/>466 <Caret Line="1 6" Column="31" TopLine="1"/>229 <Filename Value="FormMain.pas"/> 230 <Caret Line="156" Column="29" TopLine="132"/> 467 231 </Position15> 468 232 <Position16> 469 <Filename Value=" ../Systems/WinAPI/UAudioSystemWindows.pas"/>470 <Caret Line=" 43" Column="73" TopLine="21"/>233 <Filename Value="Demo.lpr"/> 234 <Caret Line="19" Column="66"/> 471 235 </Position16> 472 236 <Position17> 473 <Filename Value=" UFormMain.pas"/>474 <Caret Line=" 8" Column="51" TopLine="1"/>237 <Filename Value="Demo.lpr"/> 238 <Caret Line="3"/> 475 239 </Position17> 240 <Position18> 241 <Filename Value="../Systems/mplayer/AudioSystemMPlayer.pas"/> 242 <Caret Column="15"/> 243 </Position18> 476 244 </JumpHistory> 477 245 </ProjectOptions> … … 485 253 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 486 254 </SearchPaths> 255 <Parsing> 256 <SyntaxOptions> 257 <SyntaxMode Value="Delphi"/> 258 </SyntaxOptions> 259 </Parsing> 487 260 <Linking> 488 261 <Debugging> 489 <DebugInfoType Value="ds Stabs"/>262 <DebugInfoType Value="dsDwarf3"/> 490 263 </Debugging> 491 264 <Options> … … 495 268 </Options> 496 269 </Linking> 497 <Other>498 <CompilerPath Value="$(CompPath)"/>499 </Other>500 270 </CompilerOptions> 501 271 <Debugging> -
trunk/Packages/CoolAudio/Demo/Demo.lpr
r32 r75 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UFormMain, UFormPlaylist;10 Forms, FormMain, FormPlaylist; 11 11 12 12 {$R *.res} … … 14 14 begin 15 15 RequireDerivedFormResource := True; 16 Application.Title:=''; 16 17 Application.Initialize; 17 Application.CreateForm(TFormMain, FormMain );18 Application.CreateForm(TFormPlaylist, FormPlaylist );18 Application.CreateForm(TFormMain, FormMain.FormMain); 19 Application.CreateForm(TFormPlaylist, FormPlaylist.FormPlaylist); 19 20 Application.Run; 20 21 end. -
trunk/Packages/CoolAudio/Demo/FormMain.pas
r74 r75 1 unit UFormMain; 2 3 {$mode Delphi}{$H+} 1 unit FormMain; 4 2 5 3 interface … … 7 5 uses 8 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, ExtCtrls, ActnList, UAudioSystem, 10 UCoolAudio, UPlaylist; 7 ComCtrls, ExtCtrls, ActnList, AudioSystem, CoolAudio, Playlist; 11 8 12 9 type … … 54 51 procedure TrackBarPositionChange(Sender: TObject); 55 52 procedure TrackBarVolumeChange(Sender: TObject); 56 private57 53 public 58 54 procedure UpdateInterface; … … 65 61 ApplicationTitle = 'CoolAudio demo'; 66 62 63 67 64 implementation 68 65 … … 70 67 71 68 uses 72 UFormPlaylist;69 FormPlaylist; 73 70 74 71 { TFormMain } … … 147 144 begin 148 145 PlayList.PlayNext; 149 FormPlaylist. ReloadList;146 FormPlaylist.FormPlaylist.ReloadList; 150 147 end; 151 148 … … 157 154 procedure TFormMain.AShowPlaylistExecute(Sender: TObject); 158 155 begin 159 FormPlaylist. Show;156 FormPlaylist.FormPlaylist.Show; 160 157 end; 161 158 -
trunk/Packages/CoolAudio/Demo/FormPlaylist.pas
r74 r75 1 unit UFormPlaylist; 2 3 {$mode objfpc}{$H+} 1 unit FormPlaylist; 4 2 5 3 interface … … 7 5 uses 8 6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, Menus, ActnList, UPlaylist;7 ComCtrls, Menus, ActnList, Playlist; 10 8 11 9 type … … 47 45 procedure ListView1DblClick(Sender: TObject); 48 46 procedure ListView1KeyPress(Sender: TObject; var Key: char); 49 private50 { private declarations }51 47 public 52 48 procedure ReloadList; … … 61 57 62 58 uses 63 UAudioSystem, UFormMain;59 AudioSystem, FormMain; 64 60 65 61 resourcestring … … 76 72 procedure TFormPlaylist.AClearAllExecute(Sender: TObject); 77 73 begin 78 FormMain. PlayList.Items.Clear;74 FormMain.FormMain.PlayList.Items.Clear; 79 75 ReloadList; 80 76 end; … … 84 80 I: Integer; 85 81 begin 86 with FormMain. PlayList, Items do begin82 with FormMain.FormMain.PlayList, Items do begin 87 83 for I := Count - 1 downto 0 do 88 84 if ListView1.Items[I].Selected then Delete(I); … … 94 90 procedure TFormPlaylist.AItemPlayExecute(Sender: TObject); 95 91 begin 96 FormMain. PlayList.CurrentIndex := ListView1.Selected.Index;97 FormMain. PlayList.Play;92 FormMain.FormMain.PlayList.CurrentIndex := ListView1.Selected.Index; 93 FormMain.FormMain.PlayList.Play; 98 94 end; 99 95 … … 112 108 NewItem := TPlaylistItem.Create; 113 109 NewItem.FileName := Dir + DirectorySeparator + sr.Name; 114 FormMain. PlayList.Items.Add(NewItem);110 FormMain.FormMain.PlayList.Items.Add(NewItem); 115 111 end; 116 112 until FindNext(sr) <> 0; … … 124 120 begin 125 121 if OpenDialog1.Execute then begin 126 FormMain. PlayList.AddFile(OpenDialog1.FileName);122 FormMain.FormMain.PlayList.AddFile(OpenDialog1.FileName); 127 123 ReloadList; 128 124 end; … … 145 141 procedure TFormPlaylist.ListView1Data(Sender: TObject; Item: TListItem); 146 142 begin 147 if (Item.Index >= 0) and (Item.Index < FormMain. PlayList.Items.Count) then148 with TPlaylistItem(FormMain. PlayList.Items[Item.Index]) do begin143 if (Item.Index >= 0) and (Item.Index < FormMain.FormMain.PlayList.Items.Count) then 144 with TPlaylistItem(FormMain.FormMain.PlayList.Items[Item.Index]) do begin 149 145 Item.Caption := FileName; 150 Item.Data := FormMain. PlayList.Items[Item.Index];146 Item.Data := FormMain.FormMain.PlayList.Items[Item.Index]; 151 147 end; 152 148 end; … … 164 160 procedure TFormPlaylist.ReloadList; 165 161 begin 166 ListView1.Items.Count := FormMain. PlayList.Items.Count;162 ListView1.Items.Count := FormMain.FormMain.PlayList.Items.Count; 167 163 ListView1.Refresh; 168 164 ListView1.Selected := nil; 169 if (FormMain. PlayList.CurrentIndex >= 0) and170 (FormMain. PlayList.CurrentIndex < ListView1.Items.Count) then171 ListView1.Items[FormMain. PlayList.CurrentIndex].Selected := True;165 if (FormMain.FormMain.PlayList.CurrentIndex >= 0) and 166 (FormMain.FormMain.PlayList.CurrentIndex < ListView1.Items.Count) then 167 ListView1.Items[FormMain.FormMain.PlayList.CurrentIndex].Selected := True; 172 168 UpdateInterface; 173 169 end; … … 178 174 AItemPlay.Enabled := Assigned(ListView1.Selected); 179 175 AClearAll.Enabled := ListView1.Items.Count > 0; 180 CheckBoxRandom.Checked := FormMain. PlayList.RandomOrder;181 CheckBoxRepeat.Checked := FormMain. PlayList.RepeatInfinitely;176 CheckBoxRandom.Checked := FormMain.FormMain.PlayList.RandomOrder; 177 CheckBoxRepeat.Checked := FormMain.FormMain.PlayList.RepeatInfinitely; 182 178 end; 183 179 -
trunk/Packages/CoolAudio/Playlist.pas
r74 r75 1 unit UPlaylist; 2 3 {$mode delphi}{$H+} 1 unit Playlist; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, Contnrs, UAudioSystem;6 Classes, SysUtils, Generics.Collections, AudioSystem; 9 7 10 8 type … … 30 28 published 31 29 Player: TMediaPlayer; 32 Items: TObjectList ; // TObjectList<TPlaylistItem>30 Items: TObjectList<TPlaylistItem>; 33 31 property RandomOrder: Boolean read FRandomOrder write FRandomOrder; 34 32 property RepeatInfinitely: Boolean read FRepeatInfinitely … … 52 50 procedure TPlayList.Shuffle; 53 51 begin 54 55 52 end; 56 53 … … 84 81 begin 85 82 inherited; 86 Items := TObjectList .Create;83 Items := TObjectList<TPlaylistItem>.Create; 87 84 end; 88 85 89 86 destructor TPlayList.Destroy; 90 87 begin 91 Items.Free;92 inherited Destroy;88 FreeAndNil(Items); 89 inherited; 93 90 end; 94 91 -
trunk/Packages/CoolAudio/Systems/AudioSystem.pas
r74 r75 1 unit UAudioSystem; 2 3 {$mode delphi}{$H+} 1 unit AudioSystem; 4 2 5 3 interface 6 4 7 5 uses 8 Classes, SysUtils, Contnrs;6 Classes, SysUtils, Generics.Collections; 9 7 10 8 type … … 118 116 TAudioSystemManager = class(TComponent) 119 117 public 120 Systems: TObjectList ; // TListObject<TAudioSystem>118 Systems: TObjectList<TAudioSystemManagerItem>; 121 119 procedure Register(Name: string; SystemClass: TAudioSystemClass); 122 120 procedure FillStringList(StringList: TStrings); … … 298 296 StringList.Clear; 299 297 for I := 0 to Systems.Count - 1 do 300 with TAudioSystemManagerItem(Systems[I])do298 with Systems[I] do 301 299 StringList.AddObject(Name, Systems[I]); 302 300 end; … … 309 307 I := 0; 310 308 while (I < Systems.Count) and 311 (( TAudioSystemManagerItem(Systems[I]).Name <> Name) or312 (not TAudioSystemManagerItem(Systems[I]).Supported and SupportedOnly)) do Inc(I);313 if I < Systems.Count then Result := TAudioSystemManagerItem(Systems[I])309 ((Systems[I].Name <> Name) or 310 (not Systems[I].Supported and SupportedOnly)) do Inc(I); 311 if I < Systems.Count then Result := Systems[I] 314 312 else Result := nil; 315 313 end; … … 330 328 begin 331 329 inherited; 332 Systems := TObjectList .Create;330 Systems := TObjectList<TAudioSystemManagerItem>.Create; 333 331 end; 334 332 335 333 destructor TAudioSystemManager.Destroy; 336 334 begin 337 Systems.Free;338 inherited Destroy;335 FreeAndNil(Systems); 336 inherited; 339 337 end; 340 338 … … 424 422 Stop; 425 423 Active := False; 426 inherited Destroy;424 inherited; 427 425 end; 428 426 … … 448 446 destructor TAudioSystem.Destroy; 449 447 begin 450 inherited Destroy;448 inherited; 451 449 end; 452 450 -
trunk/Packages/CoolAudio/Systems/DSP/AudioSystemDSP.pas
r74 r75 1 unit UAudioSystemDSP;1 unit AudioSystemDSP; 2 2 3 {$I UCoolAudioConfig.inc} 4 {$mode delphi}{$H+} 3 {$I CoolAudioConfig.inc} 5 4 6 5 interface … … 8 7 {$IFDEF AudioSystemDSP} 9 8 uses 10 Classes, SysUtils, UAudioSystem, BaseUnix, UWavFile, StdCtrls, ExtCtrls;9 Classes, SysUtils, AudioSystem, BaseUnix, WavFile, ExtCtrls; 11 10 12 11 type … … 70 69 {$ENDIF} 71 70 71 72 72 implementation 73 73 … … 83 83 procedure TAudioSystemDSP.OpenDevice; 84 84 var 85 Stereo , Error: Longint;85 Stereo: Longint; 86 86 begin 87 87 Write('Openning /dev/dsp'); -
trunk/Packages/CoolAudio/Systems/FMOD/AudioSystemFMOD.pas
r74 r75 1 unit UAudioSystemFMOD;1 unit AudioSystemFMOD; 2 2 3 {$I UCoolAudioConfig.inc} 4 {$mode delphi}{$H+} 3 {$I CoolAudioConfig.inc} 5 4 6 5 interface … … 9 8 {$IFDEF AudioSystemFMOD} 10 9 uses 11 Classes, SysUtils, fmoddyn, fmodtypes, UAudioSystem, DateUtils;10 Classes, SysUtils, fmoddyn, fmodtypes, AudioSystem, DateUtils; 12 11 13 12 type -
trunk/Packages/CoolAudio/Systems/MAD/AudioSystemMAD.pas
r74 r75 1 unit UAudioSystemMAD;1 unit AudioSystemMAD; 2 2 3 {$I UCoolAudioConfig.inc} 4 {$mode delphi}{$H+} 3 {$I CoolAudioConfig.inc} 5 4 6 5 interface … … 8 7 {$IFDEF AudioSystemMAD} 9 8 uses 10 Classes, SysUtils, mad, UAudioSystem;9 Classes, SysUtils, mad, AudioSystem; 11 10 12 11 type … … 26 25 27 26 {$ENDIF} 27 28 28 29 29 implementation -
trunk/Packages/CoolAudio/Systems/WavFile.pas
r74 r75 13 13 { *************************************************************************** } 14 14 15 unit UWavFile;15 unit WavFile; 16 16 17 17 interface … … 79 79 80 80 implementation 81 82 81 83 82 { ********************* Auxiliary functions & procedures ******************** } -
trunk/Packages/CoolAudio/Systems/WinAPI/AudioSystemWindows.pas
r74 r75 1 unit UAudioSystemWindows; 2 3 {$I UCoolAudioConfig.inc} 4 {$mode delphi}{$H+} 1 unit AudioSystemWindows; 2 3 {$I CoolAudioConfig.inc} 5 4 6 5 interface … … 8 7 {$IFDEF Windows} 9 8 uses 10 Windows, Classes, SysUtils, UAudioSystem, MMSystem, DateUtils;9 Windows, Classes, SysUtils, AudioSystem, MMSystem, DateUtils; 11 10 12 11 type -
trunk/Packages/CoolAudio/Systems/mplayer/AudioSystemMPlayer.pas
r74 r75 1 1 // MPlayer slave command list: http://www.mplayerhq.hu/DOCS/tech/slave.txt 2 2 3 unit UAudioSystemMPlayer; 4 5 {$I UCoolAudioConfig.inc} 6 {$mode Delphi}{$H+} 3 unit AudioSystemMPlayer; 4 5 {$I CoolAudioConfig.inc} 7 6 8 7 interface 9 8 10 9 uses 11 Classes, SysUtils, UAudioSystem, Process, Math, Dialogs, DateUtils;10 Classes, SysUtils, AudioSystem, Process, Math, Dialogs, DateUtils; 12 11 13 12 const … … 64 63 SCantStopProcess = 'Can''t stop Mplayer process'; 65 64 65 66 66 implementation 67 67 … … 125 125 destructor TAudioSystemMPlayer.Destroy; 126 126 begin 127 inherited Destroy;127 inherited; 128 128 end; 129 129 … … 189 189 function TPlayerMPlayer.GetVolume: Real; 190 190 begin 191 Result := 0; 191 192 end; 192 193 … … 251 252 var 252 253 MPOptions: String; 253 Vol: Real;254 254 begin 255 255 if FPlaying then Stop; … … 306 306 begin 307 307 Stop; 308 F Process.Free;309 inherited Destroy;308 FreeAndNil(FProcess); 309 inherited; 310 310 end; 311 311
Note:
See TracChangeset
for help on using the changeset viewer.