Changeset 226


Ignore:
Timestamp:
Apr 6, 2011, 3:08:13 PM (13 years ago)
Author:
george
Message:
Files:
18 added
5 edited

Legend:

Unmodified
Added
Removed

  • Common/Common.lpk

    r123 r226  
    1717    <Description Value="Various libraries"/>
    1818    <License Value="GNU/GPL"/>
    19     <Version Minor="1"/>
    20     <Files Count="5">
     19    <Version Minor="2"/>
     20    <Files Count="6">
    2121      <Item1>
    2222        <Filename Value="StopWatch.pas"/>
    … …  
    3939        <UnitName Value="UPrefixMultiplier"/>
    4040      </Item5>
     41      <Item6>
     42        <Filename Value="UURI.pas"/>
     43        <UnitName Value="UURI"/>
     44      </Item6>
    4145    </Files>
    4246    <Type Value="RunAndDesignTime"/>

  • Common/Common.pas

    r118 r226  
    88
    99uses
    10     StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier,
     10    StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI,
    1111  LazarusPackageIntf;
    1212

  • Common/UURI.pas

    r222 r226  
    238238    Scheme := TURI(Source).Scheme;
    239239    Authority := TURI(Source).Authority;
    240     Path := TURI(Source).Path;
     240    Path.Assign(TURI(Source).Path);
    241241    Fragment := TURI(Source).Fragment;
    242242    Query := TURI(Source).Query;
    … …  
    310310    RightCutString(AValue, Extension, ExtensionSeparator);
    311311    Extension := ExtensionSeparator + Extension;
    312   end;
     312  end else Extension := '';
    313313  if Pos(DirectorySeparator, AValue) > 0 then RightCutString(AValue, Name, DirectorySeparator)
    314314    else begin
    … …  
    319319    LeftCutString(AValue, Drive, DriveSeparator);
    320320    Drive := Drive + DriveSeparator;
    321   end;
     321  end else Drive := '';
    322322  Directory.AsString := AValue;
    323323end;

  • Docking/CoolDocking

    • Property svn:ignore

      •  

        old new  
        11lib
         2backup

  • Docking/CoolDocking/CoolDocking.lpk

    r222 r226  
    66    <Author Value="Chronos (robie@centrum.cz)"/>
    77    <CompilerOptions>
    8       <Version Value="10"/>
     8      <Version Value="9"/>
    99      <PathDelim Value="\"/>
    1010      <SearchPaths>
    … …  
    105105    </i18n>
    106106    <Type Value="RunAndDesignTime"/>
    107     <RequiredPkgs Count="3">
     107    <RequiredPkgs Count="2">
    108108      <Item1>
    109         <PackageName Value="LCLBase"/>
     109        <PackageName Value="LCL"/>
    110110      </Item1>
    111111      <Item2>
    112         <PackageName Value="LCL"/>
    113       </Item2>
    114       <Item3>
    115112        <PackageName Value="FCL"/>
    116113        <MinVersion Major="1" Valid="True"/>
    117       </Item3>
     114      </Item2>
    118115    </RequiredPkgs>
    119116    <UsageOptions>
Note: See TracChangeset for help on using the changeset viewer.