Changeset 226
- Timestamp:
- Apr 6, 2011, 3:08:13 PM (14 years ago)
- Files:
-
- 18 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/Common.lpk
r123 r226 17 17 <Description Value="Various libraries"/> 18 18 <License Value="GNU/GPL"/> 19 <Version Minor=" 1"/>20 <Files Count=" 5">19 <Version Minor="2"/> 20 <Files Count="6"> 21 21 <Item1> 22 22 <Filename Value="StopWatch.pas"/> … … 39 39 <UnitName Value="UPrefixMultiplier"/> 40 40 </Item5> 41 <Item6> 42 <Filename Value="UURI.pas"/> 43 <UnitName Value="UURI"/> 44 </Item6> 41 45 </Files> 42 46 <Type Value="RunAndDesignTime"/> -
Common/Common.pas
r118 r226 8 8 9 9 uses 10 StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, 10 StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, 11 11 LazarusPackageIntf; 12 12 -
Common/UURI.pas
r222 r226 238 238 Scheme := TURI(Source).Scheme; 239 239 Authority := TURI(Source).Authority; 240 Path := TURI(Source).Path;240 Path.Assign(TURI(Source).Path); 241 241 Fragment := TURI(Source).Fragment; 242 242 Query := TURI(Source).Query; … … 310 310 RightCutString(AValue, Extension, ExtensionSeparator); 311 311 Extension := ExtensionSeparator + Extension; 312 end ;312 end else Extension := ''; 313 313 if Pos(DirectorySeparator, AValue) > 0 then RightCutString(AValue, Name, DirectorySeparator) 314 314 else begin … … 319 319 LeftCutString(AValue, Drive, DriveSeparator); 320 320 Drive := Drive + DriveSeparator; 321 end ;321 end else Drive := ''; 322 322 Directory.AsString := AValue; 323 323 end; -
Docking/CoolDocking
- Property svn:ignore
-
old new 1 1 lib 2 backup
-
- Property svn:ignore
-
Docking/CoolDocking/CoolDocking.lpk
r222 r226 6 6 <Author Value="Chronos (robie@centrum.cz)"/> 7 7 <CompilerOptions> 8 <Version Value=" 10"/>8 <Version Value="9"/> 9 9 <PathDelim Value="\"/> 10 10 <SearchPaths> … … 105 105 </i18n> 106 106 <Type Value="RunAndDesignTime"/> 107 <RequiredPkgs Count=" 3">107 <RequiredPkgs Count="2"> 108 108 <Item1> 109 <PackageName Value="LCL Base"/>109 <PackageName Value="LCL"/> 110 110 </Item1> 111 111 <Item2> 112 <PackageName Value="LCL"/>113 </Item2>114 <Item3>115 112 <PackageName Value="FCL"/> 116 113 <MinVersion Major="1" Valid="True"/> 117 </Item 3>114 </Item2> 118 115 </RequiredPkgs> 119 116 <UsageOptions>
Note:
See TracChangeset
for help on using the changeset viewer.