Changeset 387


Ignore:
Timestamp:
Jul 17, 2012, 10:25:56 PM (12 years ago)
Author:
chronos
Message:
  • Modified: URegistry unit moved from Common package to separated RegistryPkg.
Files:
11 edited

Legend:

Unmodified
Added
Removed
  • Common/Common.lpk

    r384 r387  
    2222    <License Value="GNU/GPL"/>
    2323    <Version Minor="7"/>
    24     <Files Count="15">
     24    <Files Count="14">
    2525      <Item1>
    2626        <Filename Value="StopWatch.pas"/>
     
    7070      </Item11>
    7171      <Item12>
    72         <Filename Value="URegistry.pas"/>
    73         <UnitName Value="URegistry"/>
    74       </Item12>
    75       <Item13>
    7672        <Filename Value="UJobProgressView.pas"/>
    7773        <HasRegisterProc Value="True"/>
    7874        <UnitName Value="UJobProgressView"/>
     75      </Item12>
     76      <Item13>
     77        <Filename Value="UXMLUtils.pas"/>
     78        <UnitName Value="UXMLUtils"/>
    7979      </Item13>
    8080      <Item14>
    81         <Filename Value="UXMLUtils.pas"/>
    82         <UnitName Value="UXMLUtils"/>
    83       </Item14>
    84       <Item15>
    8581        <Filename Value="UApplicationInfo.pas"/>
    8682        <HasRegisterProc Value="True"/>
    8783        <UnitName Value="UApplicationInfo"/>
    88       </Item15>
     84      </Item14>
    8985    </Files>
    9086    <i18n>
     
    9389    </i18n>
    9490    <Type Value="RunAndDesignTime"/>
    95     <RequiredPkgs Count="2">
     91    <RequiredPkgs Count="3">
    9692      <Item1>
    97         <PackageName Value="TemplateGenerics"/>
     93        <PackageName Value="RegistryPkg"/>
    9894      </Item1>
    9995      <Item2>
     96        <PackageName Value="TemplateGenerics"/>
     97      </Item2>
     98      <Item3>
    10099        <PackageName Value="FCL"/>
    101100        <MinVersion Major="1" Valid="True"/>
    102       </Item2>
     101      </Item3>
    103102    </RequiredPkgs>
    104103    <UsageOptions>
  • Common/Common.pas

    r384 r387  
    99uses
    1010  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,
    11   UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
    12   UJobProgressView, UXMLUtils, UApplicationInfo, LazarusPackageIntf;
     11  UMemory, UResetableThread, UPool, ULastOpenedList, UJobProgressView,
     12  UXMLUtils, UApplicationInfo, LazarusPackageIntf;
    1313
    1414implementation
  • Common/UApplicationInfo.pas

    r385 r387  
    66
    77uses
    8   SysUtils, Registry, Classes, Forms, URegistry;
     8  SysUtils, Registry2, Classes, Forms, URegistry;
    99
    1010type
  • Common/ULastOpenedList.pas

    r380 r387  
    66
    77uses
    8   Classes, SysUtils, Registry, URegistry, Menus;
     8  Classes, SysUtils, Registry2, URegistry, Menus;
    99
    1010type
  • Common/UMemory.pas

    r290 r387  
    99
    1010type
    11 
    1211  { TMemory }
    1312
     
    1514  private
    1615    FData: PByte;
    17     FSize: Integer;
    1816    function GetItem(Index: Integer): Byte;
    1917    procedure SetItem(Index: Integer; AValue: Byte);
     18    function GetSize: Integer; virtual;
    2019    procedure SetSize(AValue: Integer); virtual;
    2120  public
    22     procedure Clear(Value: Byte = 0);
     21    procedure Fill(Value: Byte = 0);
    2322    procedure Assign(Source: TMemory);
    2423    constructor Create;
    2524    destructor Destroy; override;
    2625    property Data: PByte read FData;
    27     property Size: Integer read FSize write SetSize;
     26    property Size: Integer read GetSize write SetSize;
    2827    property Items[Index: Integer]: Byte read GetItem write SetItem; default;
    2928  end;
     
    4241  end;
    4342
     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
    4480implementation
    4581
     82{ TBitMemoryRec }
     83
     84function TBitMemoryRec.GetItem(Index: Cardinal): Boolean;
     85begin
     86  Result := Boolean((FMemory[Index shr 3] shr (Index and 7)) and 1);
     87end;
     88
     89function TBitMemoryRec.GetSize: Cardinal;
     90begin
     91  Result := FSize;
     92end;
     93
     94procedure TBitMemoryRec.SetItem(Index: Cardinal; AValue: Boolean);
     95begin
     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));
     98end;
     99
     100procedure TBitMemoryRec.SetSize(AValue: Cardinal);
     101begin
     102  FSize := AValue;
     103  FMemory.Size := (AValue - 1) shr 3 + 1;
     104end;
     105
     106procedure TBitMemoryRec.WriteItems(Addr: Cardinal; Items: TBitMemoryRec);
     107begin
     108
     109end;
     110
     111procedure TBitMemoryRec.Fill(Value: Boolean);
     112begin
     113  FMemory.Fill($ff * Byte(Value));
     114end;
     115
     116procedure TBitMemoryRec.Assign(Source: TBitMemoryRec);
     117begin
     118  Size := Source.Size;
     119  FMemory.Assign(Source.Memory);
     120end;
     121
     122{ TMemoryRec }
     123
     124function TMemoryRec.GetItem(Index: Integer): Byte;
     125begin
     126  Result := PByte(FData + Index)^;
     127end;
     128
     129procedure TMemoryRec.SetItem(Index: Integer; AValue: Byte);
     130begin
     131  PByte(FData + Index)^ := AValue;
     132end;
     133
     134function TMemoryRec.GetSize: Integer;
     135begin
     136  Result := MemSize(FData);
     137end;
     138
     139procedure TMemoryRec.SetSize(AValue: Integer);
     140begin
     141  FData := ReAllocMem(FData, AValue);
     142end;
     143
     144procedure TMemoryRec.Fill(Value: Byte);
     145begin
     146  FillChar(FData^, Size, Value);
     147end;
     148
     149procedure TMemoryRec.Assign(Source: TMemoryRec);
     150begin
     151  Size := Source.Size;
     152  Move(Source.Data^, FData^, Size);
     153end;
     154
    46155{ TPositionMemory }
    47156
     
    49158begin
    50159  inherited SetSize(AValue);
    51   if FPosition > FSize then FPosition := FSize;
     160  if FPosition > Size then FPosition := Size;
    52161end;
    53162
     
    70179procedure TMemory.SetSize(AValue: Integer);
    71180begin
    72   if FSize = AValue then Exit;
    73   FSize := AValue;
    74   FData := ReAllocMem(FData, FSize);
     181  FData := ReAllocMem(FData, AValue);
    75182end;
    76183
     
    85192end;
    86193
    87 procedure TMemory.Clear(Value: Byte);
     194function TMemory.GetSize: Integer;
     195begin
     196  Result := MemSize(FData);
     197end;
     198
     199procedure TMemory.Fill(Value: Byte);
    88200begin
    89201  FillChar(FData^, Size, Value);
     
    99211begin
    100212  FData := nil;
    101   FSize := 0;
     213  Size := 0;
    102214end;
    103215
  • CoolAudio/Demo/Demo.lpi

    r353 r387  
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <EditorIndex Value="15"/>
    4645        <WindowIndex Value="0"/>
    4746        <TopLine Value="1"/>
    4847        <CursorPos X="34" Y="10"/>
    4948        <UsageCount Value="85"/>
    50         <Loaded Value="True"/>
    5149      </Unit0>
    5250      <Unit1>
     
    5755        <ResourceBaseClass Value="Form"/>
    5856        <UnitName Value="UFormMain"/>
     57        <IsVisibleTab Value="True"/>
    5958        <EditorIndex Value="0"/>
    6059        <WindowIndex Value="0"/>
    61         <TopLine Value="1"/>
    62         <CursorPos X="47" Y="9"/>
     60        <TopLine Value="128"/>
     61        <CursorPos X="16" Y="134"/>
    6362        <UsageCount Value="85"/>
    6463        <Loaded Value="True"/>
     
    6867        <Filename Value="../UCoolAudio.pas"/>
    6968        <UnitName Value="UCoolAudio"/>
    70         <EditorIndex Value="12"/>
    7169        <WindowIndex Value="0"/>
    7270        <TopLine Value="22"/>
    7371        <CursorPos X="34" Y="37"/>
    7472        <UsageCount Value="36"/>
    75         <Loaded Value="True"/>
    7673      </Unit2>
    7774      <Unit3>
     
    8683        <Filename Value="../UPlaylist.pas"/>
    8784        <UnitName Value="UPlaylist"/>
    88         <EditorIndex Value="4"/>
    8985        <WindowIndex Value="0"/>
    9086        <TopLine Value="23"/>
    9187        <CursorPos X="31" Y="35"/>
    9288        <UsageCount Value="18"/>
    93         <Loaded Value="True"/>
    9489      </Unit4>
    9590      <Unit5>
     
    120115        <Filename Value="../CoolAudio.pas"/>
    121116        <UnitName Value="CoolAudio"/>
    122         <EditorIndex Value="13"/>
    123117        <WindowIndex Value="0"/>
    124118        <TopLine Value="1"/>
    125119        <CursorPos X="45" Y="19"/>
    126120        <UsageCount Value="10"/>
    127         <Loaded Value="True"/>
    128121      </Unit8>
    129122      <Unit9>
    130123        <Filename Value="../Systems/UAudioSystem.pas"/>
    131124        <UnitName Value="UAudioSystem"/>
    132         <EditorIndex Value="5"/>
    133125        <WindowIndex Value="0"/>
    134126        <TopLine Value="27"/>
    135127        <CursorPos X="15" Y="40"/>
    136128        <UsageCount Value="51"/>
    137         <Loaded Value="True"/>
    138129      </Unit9>
    139130      <Unit10>
     
    238229      <Unit23>
    239230        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/osutilsh.inc"/>
    240         <EditorIndex Value="14"/>
    241231        <WindowIndex Value="0"/>
    242232        <TopLine Value="23"/>
    243233        <CursorPos X="10" Y="23"/>
    244234        <UsageCount Value="35"/>
    245         <Loaded Value="True"/>
    246235      </Unit23>
    247236      <Unit24>
     
    259248        <ResourceBaseClass Value="Form"/>
    260249        <UnitName Value="UFormPlaylist"/>
    261         <EditorIndex Value="3"/>
    262250        <WindowIndex Value="0"/>
    263251        <TopLine Value="155"/>
    264252        <CursorPos X="28" Y="168"/>
    265253        <UsageCount Value="25"/>
    266         <Loaded Value="True"/>
    267         <LoadedDesigner Value="True"/>
    268254      </Unit25>
    269255      <Unit26>
    270256        <Filename Value="../Systems/WinAPI/UAudioSystemWindows.pas"/>
    271257        <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"/>
    277262        <UsageCount Value="11"/>
    278263        <Loaded Value="True"/>
     
    348333        <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/controls.pp"/>
    349334        <UnitName Value="Controls"/>
    350         <EditorIndex Value="2"/>
    351335        <WindowIndex Value="0"/>
    352336        <TopLine Value="1309"/>
    353337        <CursorPos X="15" Y="1310"/>
    354338        <UsageCount Value="10"/>
    355         <Loaded Value="True"/>
    356339      </Unit36>
    357340      <Unit37>
    358341        <Filename Value="../../../../Lazarus/1.1_2.6.0/lcl/include/control.inc"/>
    359         <EditorIndex Value="1"/>
    360342        <WindowIndex Value="0"/>
    361343        <TopLine Value="3633"/>
    362344        <CursorPos X="47" Y="3641"/>
    363345        <UsageCount Value="10"/>
    364         <Loaded Value="True"/>
    365346      </Unit37>
    366347      <Unit38>
     
    383364        <Filename Value="../Systems/FMOD/UAudioSystemFMOD.pas"/>
    384365        <UnitName Value="UAudioSystemFMOD"/>
    385         <EditorIndex Value="9"/>
    386366        <WindowIndex Value="0"/>
    387367        <TopLine Value="66"/>
    388368        <CursorPos X="25" Y="68"/>
    389369        <UsageCount Value="10"/>
    390         <Loaded Value="True"/>
    391370      </Unit40>
    392371      <Unit41>
    393372        <Filename Value="../Systems/mplayer/UAudioSystemMPlayer.pas"/>
    394373        <UnitName Value="UAudioSystemMPlayer"/>
    395         <EditorIndex Value="7"/>
    396374        <WindowIndex Value="0"/>
    397375        <TopLine Value="130"/>
    398376        <CursorPos X="1" Y="134"/>
    399377        <UsageCount Value="10"/>
    400         <Loaded Value="True"/>
    401378      </Unit41>
    402379      <Unit42>
    403380        <Filename Value="../../../../Lazarus/1.1_2.6.0/fpc/2.6.0/source/rtl/objpas/classes/classesh.inc"/>
    404         <EditorIndex Value="11"/>
    405381        <WindowIndex Value="0"/>
    406382        <TopLine Value="1919"/>
    407383        <CursorPos X="11" Y="1932"/>
    408384        <UsageCount Value="10"/>
    409         <Loaded Value="True"/>
    410385      </Unit42>
    411386      <Unit43>
    412387        <Filename Value="../Systems/DSP/UAudioSystemDSP.pas"/>
    413388        <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"/>
    418393        <UsageCount Value="10"/>
    419394        <Loaded Value="True"/>
     
    422397        <Filename Value="../Systems/MAD/UAudioSystemMAD.pas"/>
    423398        <UnitName Value="UAudioSystemMAD"/>
    424         <EditorIndex Value="10"/>
    425         <WindowIndex Value="0"/>
    426         <TopLine Value="23"/>
    427         <CursorPos X="23" Y="37"/>
     399        <EditorIndex Value="1"/>
     400        <WindowIndex Value="0"/>
     401        <TopLine Value="2"/>
     402        <CursorPos X="40" Y="20"/>
    428403        <UsageCount Value="10"/>
    429404        <Loaded Value="True"/>
    430405      </Unit44>
    431406    </Units>
    432     <JumpHistory Count="30" HistoryIndex="29">
     407    <JumpHistory Count="17" HistoryIndex="16">
    433408      <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"/>
    436411      </Position1>
    437412      <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"/>
    440415      </Position2>
    441416      <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"/>
    444419      </Position3>
    445420      <Position4>
    446421        <Filename Value="UFormMain.pas"/>
    447         <Caret Line="121" Column="10" TopLine="111"/>
     422        <Caret Line="164" Column="30" TopLine="159"/>
    448423      </Position4>
    449424      <Position5>
    450425        <Filename Value="UFormMain.pas"/>
    451         <Caret Line="125" Column="28" TopLine="112"/>
     426        <Caret Line="51" Column="49" TopLine="27"/>
    452427      </Position5>
    453428      <Position6>
    454429        <Filename Value="UFormMain.pas"/>
    455         <Caret Line="122" Column="28" TopLine="112"/>
     430        <Caret Line="29" Column="32" TopLine="18"/>
    456431      </Position6>
    457432      <Position7>
    458433        <Filename Value="UFormMain.pas"/>
    459         <Caret Line="164" Column="30" TopLine="159"/>
     434        <Caret Line="27" Column="18" TopLine="18"/>
    460435      </Position7>
    461436      <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"/>
    464439      </Position8>
    465440      <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"/>
    468443      </Position9>
    469444      <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"/>
    472447      </Position10>
    473448      <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"/>
    476451      </Position11>
    477452      <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"/>
    480455      </Position12>
    481456      <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"/>
    484459      </Position13>
    485460      <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"/>
    488463      </Position14>
    489464      <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"/>
    492467      </Position15>
    493468      <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"/>
    496471      </Position16>
    497472      <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"/>
    500475      </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>
    553476    </JumpHistory>
    554477  </ProjectOptions>
  • CoolAudio/Demo/UFormMain.lfm

    r353 r387  
    4545  object TrackBarPosition: TTrackBar
    4646    Left = 0
    47     Height = 33
     47    Height = 34
    4848    Top = 8
    4949    Width = 432
     
    5555  end
    5656  object ComboBoxBackend: TComboBox
    57     Left = 64
    58     Height = 21
     57    Left = 88
     58    Height = 27
    5959    Top = 80
    6060    Width = 128
    61     ItemHeight = 13
     61    ItemHeight = 0
    6262    OnChange = ComboBoxBackendChange
    6363    Style = csDropDownList
     
    6666  object Label1: TLabel
    6767    Left = 12
    68     Height = 14
     68    Height = 18
    6969    Top = 80
    70     Width = 45
     70    Width = 61
    7171    Caption = 'Backend:'
    7272    ParentColor = False
     
    7474  object LabelPosition: TLabel
    7575    Left = 10
    76     Height = 14
     76    Height = 18
    7777    Top = 112
    78     Width = 42
     78    Width = 57
    7979    Caption = 'Position:'
    8080    ParentColor = False
     
    106106  object TrackBarVolume: TTrackBar
    107107    Left = 352
    108     Height = 25
     108    Height = 34
    109109    Top = 80
    110110    Width = 75
     
    115115  end
    116116  object Label2: TLabel
    117     Left = 312
    118     Height = 14
     117    Left = 280
     118    Height = 18
    119119    Top = 87
    120     Width = 39
     120    Width = 54
    121121    Caption = 'Volume:'
    122122    ParentColor = False
  • CoolAudio/Systems/DSP/UAudioSystemDSP.pas

    r353 r387  
    3030  { TPlayerDSP }
    3131
    32   TPlayerDSP = class(TPlayer)
     32  TPlayerDSP = class(TMediaPlayerDriver)
    3333  private
    3434    FTimer: TTimer;
     
    4141    procedure Open; override;
    4242    procedure Close; override;
    43     constructor Create(AOwner: TComponent); override;
     43    constructor Create; override;
    4444    destructor Destroy; override;
    4545  end;
     
    180180end;
    181181
    182 constructor TPlayerDSP.Create(AOwner: TComponent);
     182constructor TPlayerDSP.Create;
    183183begin
    184184  inherited;
  • CoolAudio/Systems/MAD/UAudioSystemMAD.pas

    r353 r387  
    1818  { TPlayerMAD }
    1919
    20   TPlayerMAD = class(TPlayer)
     20  TPlayerMAD = class(TMediaPlayerDriver)
    2121  public
    2222    procedure Play; override;
  • CoolAudio/Systems/WinAPI/UAudioSystemWindows.pas

    r353 r387  
    6565implementation
    6666
     67{$IFDEF Windows}
     68
    6769{ TAudioSystemWindows }
    6870
     
    7274end;
    7375
    74 {$IFDEF Windows}
    7576
    7677{ TPlayerWindows }
  • PersistentData/Backend/UPDClientMemory.pas

    r362 r387  
    66
    77uses
    8   Classes, SysUtils, UPDClient, SpecializedDictionary, SpecializedList;
     8  Classes, SysUtils, UPDClient, SpecializedList;
    99
    1010type
Note: See TracChangeset for help on using the changeset viewer.