Changeset 387
- Timestamp:
- Jul 17, 2012, 10:25:56 PM (12 years ago)
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r384 r387 22 22 <License Value="GNU/GPL"/> 23 23 <Version Minor="7"/> 24 <Files Count="1 5">24 <Files Count="14"> 25 25 <Item1> 26 26 <Filename Value="StopWatch.pas"/> … … 70 70 </Item11> 71 71 <Item12> 72 <Filename Value="URegistry.pas"/>73 <UnitName Value="URegistry"/>74 </Item12>75 <Item13>76 72 <Filename Value="UJobProgressView.pas"/> 77 73 <HasRegisterProc Value="True"/> 78 74 <UnitName Value="UJobProgressView"/> 75 </Item12> 76 <Item13> 77 <Filename Value="UXMLUtils.pas"/> 78 <UnitName Value="UXMLUtils"/> 79 79 </Item13> 80 80 <Item14> 81 <Filename Value="UXMLUtils.pas"/>82 <UnitName Value="UXMLUtils"/>83 </Item14>84 <Item15>85 81 <Filename Value="UApplicationInfo.pas"/> 86 82 <HasRegisterProc Value="True"/> 87 83 <UnitName Value="UApplicationInfo"/> 88 </Item1 5>84 </Item14> 89 85 </Files> 90 86 <i18n> … … 93 89 </i18n> 94 90 <Type Value="RunAndDesignTime"/> 95 <RequiredPkgs Count=" 2">91 <RequiredPkgs Count="3"> 96 92 <Item1> 97 <PackageName Value=" TemplateGenerics"/>93 <PackageName Value="RegistryPkg"/> 98 94 </Item1> 99 95 <Item2> 96 <PackageName Value="TemplateGenerics"/> 97 </Item2> 98 <Item3> 100 99 <PackageName Value="FCL"/> 101 100 <MinVersion Major="1" Valid="True"/> 102 </Item 2>101 </Item3> 103 102 </RequiredPkgs> 104 103 <UsageOptions> -
Common/Common.pas
r384 r387 9 9 uses 10 10 StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 11 UMemory, UResetableThread, UPool, ULastOpenedList, U Registry,12 U JobProgressView, UXMLUtils, UApplicationInfo, LazarusPackageIntf;11 UMemory, UResetableThread, UPool, ULastOpenedList, UJobProgressView, 12 UXMLUtils, UApplicationInfo, LazarusPackageIntf; 13 13 14 14 implementation -
Common/UApplicationInfo.pas
r385 r387 6 6 7 7 uses 8 SysUtils, Registry , Classes, Forms, URegistry;8 SysUtils, Registry2, Classes, Forms, URegistry; 9 9 10 10 type -
Common/ULastOpenedList.pas
r380 r387 6 6 7 7 uses 8 Classes, SysUtils, Registry , URegistry, Menus;8 Classes, SysUtils, Registry2, URegistry, Menus; 9 9 10 10 type -
Common/UMemory.pas
r290 r387 9 9 10 10 type 11 12 11 { TMemory } 13 12 … … 15 14 private 16 15 FData: PByte; 17 FSize: Integer;18 16 function GetItem(Index: Integer): Byte; 19 17 procedure SetItem(Index: Integer; AValue: Byte); 18 function GetSize: Integer; virtual; 20 19 procedure SetSize(AValue: Integer); virtual; 21 20 public 22 procedure Clear(Value: Byte = 0);21 procedure Fill(Value: Byte = 0); 23 22 procedure Assign(Source: TMemory); 24 23 constructor Create; 25 24 destructor Destroy; override; 26 25 property Data: PByte read FData; 27 property Size: Integer read FSize write SetSize;26 property Size: Integer read GetSize write SetSize; 28 27 property Items[Index: Integer]: Byte read GetItem write SetItem; default; 29 28 end; … … 42 41 end; 43 42 43 { TMemoryRec } 44 45 TMemoryRec = record 46 private 47 FData: PByte; 48 function GetItem(Index: Integer): Byte; inline; 49 procedure SetItem(Index: Integer; AValue: Byte); inline; 50 function GetSize: Integer; inline; 51 procedure SetSize(AValue: Integer); inline; 52 public 53 procedure Fill(Value: Byte = 0); inline; 54 procedure Assign(Source: TMemoryRec); inline; 55 property Data: PByte read FData; 56 property Size: Integer read GetSize write SetSize; 57 property Items[Index: Integer]: Byte read GetItem write SetItem; default; 58 end; 59 60 { TBitMemoryRec } 61 62 TBitMemoryRec = record 63 private 64 FMemory: TMemoryRec; 65 FSize: Cardinal; 66 function GetItem(Index: Cardinal): Boolean; inline; 67 function GetSize: Cardinal; inline; 68 procedure SetItem(Index: Cardinal; AValue: Boolean); inline; 69 procedure SetSize(AValue: Cardinal); inline; 70 public 71 procedure WriteItems(Addr: Cardinal; Items: TBitMemoryRec); 72 procedure Fill(Value: Boolean = False); 73 procedure Assign(Source: TBitMemoryRec); inline; 74 property Memory: TMemoryRec read FMemory; 75 property Size: Cardinal read GetSize write SetSize; 76 property Items[Index: Cardinal]: Boolean read GetItem write SetItem; default; 77 end; 78 79 44 80 implementation 45 81 82 { TBitMemoryRec } 83 84 function TBitMemoryRec.GetItem(Index: Cardinal): Boolean; 85 begin 86 Result := Boolean((FMemory[Index shr 3] shr (Index and 7)) and 1); 87 end; 88 89 function TBitMemoryRec.GetSize: Cardinal; 90 begin 91 Result := FSize; 92 end; 93 94 procedure TBitMemoryRec.SetItem(Index: Cardinal; AValue: Boolean); 95 begin 96 FMemory[Index shr 3] := (FMemory[Index shr 3] and ($ff xor (1 shl (Index and 7)))) or 97 (Byte(AValue) shl (Index and 7)); 98 end; 99 100 procedure TBitMemoryRec.SetSize(AValue: Cardinal); 101 begin 102 FSize := AValue; 103 FMemory.Size := (AValue - 1) shr 3 + 1; 104 end; 105 106 procedure TBitMemoryRec.WriteItems(Addr: Cardinal; Items: TBitMemoryRec); 107 begin 108 109 end; 110 111 procedure TBitMemoryRec.Fill(Value: Boolean); 112 begin 113 FMemory.Fill($ff * Byte(Value)); 114 end; 115 116 procedure TBitMemoryRec.Assign(Source: TBitMemoryRec); 117 begin 118 Size := Source.Size; 119 FMemory.Assign(Source.Memory); 120 end; 121 122 { TMemoryRec } 123 124 function TMemoryRec.GetItem(Index: Integer): Byte; 125 begin 126 Result := PByte(FData + Index)^; 127 end; 128 129 procedure TMemoryRec.SetItem(Index: Integer; AValue: Byte); 130 begin 131 PByte(FData + Index)^ := AValue; 132 end; 133 134 function TMemoryRec.GetSize: Integer; 135 begin 136 Result := MemSize(FData); 137 end; 138 139 procedure TMemoryRec.SetSize(AValue: Integer); 140 begin 141 FData := ReAllocMem(FData, AValue); 142 end; 143 144 procedure TMemoryRec.Fill(Value: Byte); 145 begin 146 FillChar(FData^, Size, Value); 147 end; 148 149 procedure TMemoryRec.Assign(Source: TMemoryRec); 150 begin 151 Size := Source.Size; 152 Move(Source.Data^, FData^, Size); 153 end; 154 46 155 { TPositionMemory } 47 156 … … 49 158 begin 50 159 inherited SetSize(AValue); 51 if FPosition > FSize then FPosition := FSize;160 if FPosition > Size then FPosition := Size; 52 161 end; 53 162 … … 70 179 procedure TMemory.SetSize(AValue: Integer); 71 180 begin 72 if FSize = AValue then Exit; 73 FSize := AValue; 74 FData := ReAllocMem(FData, FSize); 181 FData := ReAllocMem(FData, AValue); 75 182 end; 76 183 … … 85 192 end; 86 193 87 procedure TMemory.Clear(Value: Byte); 194 function TMemory.GetSize: Integer; 195 begin 196 Result := MemSize(FData); 197 end; 198 199 procedure TMemory.Fill(Value: Byte); 88 200 begin 89 201 FillChar(FData^, Size, Value); … … 99 211 begin 100 212 FData := nil; 101 FSize := 0;213 Size := 0; 102 214 end; 103 215 -
CoolAudio/Demo/Demo.lpi
r353 r387 43 43 <IsPartOfProject Value="True"/> 44 44 <UnitName Value="Demo"/> 45 <EditorIndex Value="15"/>46 45 <WindowIndex Value="0"/> 47 46 <TopLine Value="1"/> 48 47 <CursorPos X="34" Y="10"/> 49 48 <UsageCount Value="85"/> 50 <Loaded Value="True"/>51 49 </Unit0> 52 50 <Unit1> … … 57 55 <ResourceBaseClass Value="Form"/> 58 56 <UnitName Value="UFormMain"/> 57 <IsVisibleTab Value="True"/> 59 58 <EditorIndex Value="0"/> 60 59 <WindowIndex Value="0"/> 61 <TopLine Value="1 "/>62 <CursorPos X=" 47" Y="9"/>60 <TopLine Value="128"/> 61 <CursorPos X="16" Y="134"/> 63 62 <UsageCount Value="85"/> 64 63 <Loaded Value="True"/> … … 68 67 <Filename Value="../UCoolAudio.pas"/> 69 68 <UnitName Value="UCoolAudio"/> 70 <EditorIndex Value="12"/>71 69 <WindowIndex Value="0"/> 72 70 <TopLine Value="22"/> 73 71 <CursorPos X="34" Y="37"/> 74 72 <UsageCount Value="36"/> 75 <Loaded Value="True"/>76 73 </Unit2> 77 74 <Unit3> … … 86 83 <Filename Value="../UPlaylist.pas"/> 87 84 <UnitName Value="UPlaylist"/> 88 <EditorIndex Value="4"/>89 85 <WindowIndex Value="0"/> 90 86 <TopLine Value="23"/> 91 87 <CursorPos X="31" Y="35"/> 92 88 <UsageCount Value="18"/> 93 <Loaded Value="True"/>94 89 </Unit4> 95 90 <Unit5> … … 120 115 <Filename Value="../CoolAudio.pas"/> 121 116 <UnitName Value="CoolAudio"/> 122 <EditorIndex Value="13"/>123 117 <WindowIndex Value="0"/> 124 118 <TopLine Value="1"/> 125 119 <CursorPos X="45" Y="19"/> 126 120 <UsageCount Value="10"/> 127 <Loaded Value="True"/>128 121 </Unit8> 129 122 <Unit9> 130 123 <Filename Value="../Systems/UAudioSystem.pas"/> 131 124 <UnitName Value="UAudioSystem"/> 132 <EditorIndex Value="5"/>133 125 <WindowIndex Value="0"/> 134 126 <TopLine Value="27"/> 135 127 <CursorPos X="15" Y="40"/> 136 128 <UsageCount Value="51"/> 137 <Loaded Value="True"/>138 129 </Unit9> 139 130 <Unit10> … … 238 229 <Unit23> 239 230 <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/osutilsh.inc"/> 240 <EditorIndex Value="14"/>241 231 <WindowIndex Value="0"/> 242 232 <TopLine Value="23"/> 243 233 <CursorPos X="10" Y="23"/> 244 234 <UsageCount Value="35"/> 245 <Loaded Value="True"/>246 235 </Unit23> 247 236 <Unit24> … … 259 248 <ResourceBaseClass Value="Form"/> 260 249 <UnitName Value="UFormPlaylist"/> 261 <EditorIndex Value="3"/>262 250 <WindowIndex Value="0"/> 263 251 <TopLine Value="155"/> 264 252 <CursorPos X="28" Y="168"/> 265 253 <UsageCount Value="25"/> 266 <Loaded Value="True"/>267 <LoadedDesigner Value="True"/>268 254 </Unit25> 269 255 <Unit26> 270 256 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 271 257 <UnitName Value="UAudioSystemWindows"/> 272 <IsVisibleTab Value="True"/> 273 <EditorIndex Value="6"/> 274 <WindowIndex Value="0"/> 275 <TopLine Value="163"/> 276 <CursorPos X="3" Y="167"/> 258 <EditorIndex Value="3"/> 259 <WindowIndex Value="0"/> 260 <TopLine Value="21"/> 261 <CursorPos X="73" Y="43"/> 277 262 <UsageCount Value="11"/> 278 263 <Loaded Value="True"/> … … 348 333 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/controls.pp"/> 349 334 <UnitName Value="Controls"/> 350 <EditorIndex Value="2"/>351 335 <WindowIndex Value="0"/> 352 336 <TopLine Value="1309"/> 353 337 <CursorPos X="15" Y="1310"/> 354 338 <UsageCount Value="10"/> 355 <Loaded Value="True"/>356 339 </Unit36> 357 340 <Unit37> 358 341 <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/control.inc"/> 359 <EditorIndex Value="1"/>360 342 <WindowIndex Value="0"/> 361 343 <TopLine Value="3633"/> 362 344 <CursorPos X="47" Y="3641"/> 363 345 <UsageCount Value="10"/> 364 <Loaded Value="True"/>365 346 </Unit37> 366 347 <Unit38> … … 383 364 <Filename Value="../Systems/FMOD/UAudioSystemFMOD.pas"/> 384 365 <UnitName Value="UAudioSystemFMOD"/> 385 <EditorIndex Value="9"/>386 366 <WindowIndex Value="0"/> 387 367 <TopLine Value="66"/> 388 368 <CursorPos X="25" Y="68"/> 389 369 <UsageCount Value="10"/> 390 <Loaded Value="True"/>391 370 </Unit40> 392 371 <Unit41> 393 372 <Filename Value="../Systems/mplayer/UAudioSystemMPlayer.pas"/> 394 373 <UnitName Value="UAudioSystemMPlayer"/> 395 <EditorIndex Value="7"/>396 374 <WindowIndex Value="0"/> 397 375 <TopLine Value="130"/> 398 376 <CursorPos X="1" Y="134"/> 399 377 <UsageCount Value="10"/> 400 <Loaded Value="True"/>401 378 </Unit41> 402 379 <Unit42> 403 380 <Filename Value="../../../../Lazarus/1.1_2.6.0/fpc/2.6.0/source/rtl/objpas/classes/classesh.inc"/> 404 <EditorIndex Value="11"/>405 381 <WindowIndex Value="0"/> 406 382 <TopLine Value="1919"/> 407 383 <CursorPos X="11" Y="1932"/> 408 384 <UsageCount Value="10"/> 409 <Loaded Value="True"/>410 385 </Unit42> 411 386 <Unit43> 412 387 <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/> 413 388 <UnitName Value="UAudioSystemDSP"/> 414 <EditorIndex Value=" 8"/>415 <WindowIndex Value="0"/> 416 <TopLine Value=" 64"/>417 <CursorPos X=" 25" Y="78"/>389 <EditorIndex Value="2"/> 390 <WindowIndex Value="0"/> 391 <TopLine Value="160"/> 392 <CursorPos X="1" Y="167"/> 418 393 <UsageCount Value="10"/> 419 394 <Loaded Value="True"/> … … 422 397 <Filename Value="../Systems/MAD/UAudioSystemMAD.pas"/> 423 398 <UnitName Value="UAudioSystemMAD"/> 424 <EditorIndex Value="1 0"/>425 <WindowIndex Value="0"/> 426 <TopLine Value="2 3"/>427 <CursorPos X=" 23" Y="37"/>399 <EditorIndex Value="1"/> 400 <WindowIndex Value="0"/> 401 <TopLine Value="2"/> 402 <CursorPos X="40" Y="20"/> 428 403 <UsageCount Value="10"/> 429 404 <Loaded Value="True"/> 430 405 </Unit44> 431 406 </Units> 432 <JumpHistory Count=" 30" HistoryIndex="29">407 <JumpHistory Count="17" HistoryIndex="16"> 433 408 <Position1> 434 <Filename Value=" ../Systems/UAudioSystem.pas"/>435 <Caret Line=" 240" Column="1" TopLine="227"/>409 <Filename Value="UFormMain.pas"/> 410 <Caret Line="121" Column="10" TopLine="111"/> 436 411 </Position1> 437 412 <Position2> 438 <Filename Value=" ../Systems/UAudioSystem.pas"/>439 <Caret Line=" 241" Column="1" TopLine="227"/>413 <Filename Value="UFormMain.pas"/> 414 <Caret Line="125" Column="28" TopLine="112"/> 440 415 </Position2> 441 416 <Position3> 442 <Filename Value=" ../Systems/UAudioSystem.pas"/>443 <Caret Line=" 381" Column="1" TopLine="368"/>417 <Filename Value="UFormMain.pas"/> 418 <Caret Line="122" Column="28" TopLine="112"/> 444 419 </Position3> 445 420 <Position4> 446 421 <Filename Value="UFormMain.pas"/> 447 <Caret Line="1 21" Column="10" TopLine="111"/>422 <Caret Line="164" Column="30" TopLine="159"/> 448 423 </Position4> 449 424 <Position5> 450 425 <Filename Value="UFormMain.pas"/> 451 <Caret Line=" 125" Column="28" TopLine="112"/>426 <Caret Line="51" Column="49" TopLine="27"/> 452 427 </Position5> 453 428 <Position6> 454 429 <Filename Value="UFormMain.pas"/> 455 <Caret Line=" 122" Column="28" TopLine="112"/>430 <Caret Line="29" Column="32" TopLine="18"/> 456 431 </Position6> 457 432 <Position7> 458 433 <Filename Value="UFormMain.pas"/> 459 <Caret Line=" 164" Column="30" TopLine="159"/>434 <Caret Line="27" Column="18" TopLine="18"/> 460 435 </Position7> 461 436 <Position8> 462 <Filename Value=" UFormMain.pas"/>463 <Caret Line=" 51" Column="49" TopLine="27"/>437 <Filename Value="../Systems/MAD/UAudioSystemMAD.pas"/> 438 <Caret Line="37" Column="23" TopLine="23"/> 464 439 </Position8> 465 440 <Position9> 466 <Filename Value="../ UPlaylist.pas"/>467 <Caret Line=" 30" Column="1" TopLine="10"/>441 <Filename Value="../Systems/MAD/UAudioSystemMAD.pas"/> 442 <Caret Line="20" Column="29" TopLine="2"/> 468 443 </Position9> 469 444 <Position10> 470 <Filename Value="../ UPlaylist.pas"/>471 <Caret Line=" 35" Column="3" TopLine="15"/>445 <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/> 446 <Caret Line="23" Column="14" TopLine="5"/> 472 447 </Position10> 473 448 <Position11> 474 <Filename Value="../ UPlaylist.pas"/>475 <Caret Line=" 18" Column="10" TopLine="7"/>449 <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/> 450 <Caret Line="32" Column="40" TopLine="14"/> 476 451 </Position11> 477 452 <Position12> 478 <Filename Value="../Systems/ UAudioSystem.pas"/>479 <Caret Line=" 120" Column="68" TopLine="104"/>453 <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/> 454 <Caret Line="43" Column="23" TopLine="25"/> 480 455 </Position12> 481 456 <Position13> 482 <Filename Value="../Systems/ UAudioSystem.pas"/>483 <Caret Line=" 318" Column="3" TopLine="313"/>457 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 458 <Caret Line="27" Column="44" TopLine="16"/> 484 459 </Position13> 485 460 <Position14> 486 <Filename Value="../ UCoolAudio.pas"/>487 <Caret Line=" 18" Column="49" TopLine="10"/>461 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 462 <Caret Line="69" Column="53" TopLine="51"/> 488 463 </Position14> 489 464 <Position15> 490 <Filename Value="../ UCoolAudio.pas"/>491 <Caret Line=" 40" Column="1" TopLine="22"/>465 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 466 <Caret Line="16" Column="31" TopLine="1"/> 492 467 </Position15> 493 468 <Position16> 494 <Filename Value="../Systems/ UAudioSystem.pas"/>495 <Caret Line=" 122" Column="39" TopLine="104"/>469 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/> 470 <Caret Line="43" Column="73" TopLine="21"/> 496 471 </Position16> 497 472 <Position17> 498 <Filename Value=" ../UCoolAudio.pas"/>499 <Caret Line=" 40" Column="1" TopLine="22"/>473 <Filename Value="UFormMain.pas"/> 474 <Caret Line="8" Column="51" TopLine="1"/> 500 475 </Position17> 501 <Position18>502 <Filename Value="UFormMain.pas"/>503 <Caret Line="29" Column="32" TopLine="18"/>504 </Position18>505 <Position19>506 <Filename Value="UFormMain.pas"/>507 <Caret Line="27" Column="18" TopLine="18"/>508 </Position19>509 <Position20>510 <Filename Value="UFormPlaylist.pas"/>511 <Caret Line="168" Column="28" TopLine="155"/>512 </Position20>513 <Position21>514 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>515 <Caret Line="86" Column="48" TopLine="73"/>516 </Position21>517 <Position22>518 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>519 <Caret Line="213" Column="1" TopLine="200"/>520 </Position22>521 <Position23>522 <Filename Value="../Systems/UAudioSystem.pas"/>523 <Caret Line="422" Column="1" TopLine="409"/>524 </Position23>525 <Position24>526 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>527 <Caret Line="213" Column="1" TopLine="200"/>528 </Position24>529 <Position25>530 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>531 <Caret Line="86" Column="1" TopLine="73"/>532 </Position25>533 <Position26>534 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>535 <Caret Line="213" Column="1" TopLine="200"/>536 </Position26>537 <Position27>538 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>539 <Caret Line="86" Column="1" TopLine="73"/>540 </Position27>541 <Position28>542 <Filename Value="../Systems/UAudioSystem.pas"/>543 <Caret Line="422" Column="1" TopLine="409"/>544 </Position28>545 <Position29>546 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>547 <Caret Line="227" Column="1" TopLine="214"/>548 </Position29>549 <Position30>550 <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>551 <Caret Line="102" Column="3" TopLine="98"/>552 </Position30>553 476 </JumpHistory> 554 477 </ProjectOptions> -
CoolAudio/Demo/UFormMain.lfm
r353 r387 45 45 object TrackBarPosition: TTrackBar 46 46 Left = 0 47 Height = 3 347 Height = 34 48 48 Top = 8 49 49 Width = 432 … … 55 55 end 56 56 object ComboBoxBackend: TComboBox 57 Left = 6458 Height = 2 157 Left = 88 58 Height = 27 59 59 Top = 80 60 60 Width = 128 61 ItemHeight = 1361 ItemHeight = 0 62 62 OnChange = ComboBoxBackendChange 63 63 Style = csDropDownList … … 66 66 object Label1: TLabel 67 67 Left = 12 68 Height = 1 468 Height = 18 69 69 Top = 80 70 Width = 4570 Width = 61 71 71 Caption = 'Backend:' 72 72 ParentColor = False … … 74 74 object LabelPosition: TLabel 75 75 Left = 10 76 Height = 1 476 Height = 18 77 77 Top = 112 78 Width = 4278 Width = 57 79 79 Caption = 'Position:' 80 80 ParentColor = False … … 106 106 object TrackBarVolume: TTrackBar 107 107 Left = 352 108 Height = 25108 Height = 34 109 109 Top = 80 110 110 Width = 75 … … 115 115 end 116 116 object Label2: TLabel 117 Left = 312118 Height = 1 4117 Left = 280 118 Height = 18 119 119 Top = 87 120 Width = 39120 Width = 54 121 121 Caption = 'Volume:' 122 122 ParentColor = False -
CoolAudio/Systems/DSP/UAudioSystemDSP.pas
r353 r387 30 30 { TPlayerDSP } 31 31 32 TPlayerDSP = class(T Player)32 TPlayerDSP = class(TMediaPlayerDriver) 33 33 private 34 34 FTimer: TTimer; … … 41 41 procedure Open; override; 42 42 procedure Close; override; 43 constructor Create (AOwner: TComponent); override;43 constructor Create; override; 44 44 destructor Destroy; override; 45 45 end; … … 180 180 end; 181 181 182 constructor TPlayerDSP.Create (AOwner: TComponent);182 constructor TPlayerDSP.Create; 183 183 begin 184 184 inherited; -
CoolAudio/Systems/MAD/UAudioSystemMAD.pas
r353 r387 18 18 { TPlayerMAD } 19 19 20 TPlayerMAD = class(T Player)20 TPlayerMAD = class(TMediaPlayerDriver) 21 21 public 22 22 procedure Play; override; -
CoolAudio/Systems/WinAPI/UAudioSystemWindows.pas
r353 r387 65 65 implementation 66 66 67 {$IFDEF Windows} 68 67 69 { TAudioSystemWindows } 68 70 … … 72 74 end; 73 75 74 {$IFDEF Windows}75 76 76 77 { TPlayerWindows } -
PersistentData/Backend/UPDClientMemory.pas
r362 r387 6 6 7 7 uses 8 Classes, SysUtils, UPDClient, Specialized Dictionary, SpecializedList;8 Classes, SysUtils, UPDClient, SpecializedList; 9 9 10 10 type
Note:
See TracChangeset
for help on using the changeset viewer.