paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 00:33:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

Adds the sysenvapis include files to the lpk and adds an extra safety in OpenURL for users which forget to encode spaces in filenames

Browse Source 
git-svn-id: trunk@36745 -
This commit is contained in:
sekelsenmat 2012-04-13 12:47:38 +00:00
parent 5f2d225948
commit e87cc8fbbf
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/sysenvapis_win.inc
View File

@ -13,6 +13,12 @@ begin
Result := False; Result := False;
if AURL = '' then Exit; if AURL = '' then Exit;
// A help for users which forget to properly encode their URLs
// See bug 21659 and see http://www.ietf.org/rfc/rfc1738.txt which says
// that spaces in URLs need to be encoded
if Pos(' ', AURL) > 0 then
AURL := StringReplace(AURL, ' ', '%20', [rfReplaceAll, rfIgnoreCase]);
{$IFDEF WinCE} {$IFDEF WinCE}
FillChar(Info, SizeOf(Info), 0); FillChar(Info, SizeOf(Info), 0);
Info.cbSize := SizeOf(Info); Info.cbSize := SizeOf(Info);

18
lcl/lclbase.lpk
View File

@ -30,7 +30,7 @@
<License Value="modified LGPL-2 <License Value="modified LGPL-2
"/> "/>
<Version Major="1" Release="1"/> <Version Major="1" Release="1"/>
<Files Count="288"> <Files Count="292">
<Item1> <Item1>
<Filename Value="barchart.pp"/> <Filename Value="barchart.pp"/>
<UnitName Value="BarChart"/> <UnitName Value="BarChart"/>
@ -1188,6 +1188,22 @@
<Filename Value="customdrawn_android.pas"/> <Filename Value="customdrawn_android.pas"/>
<UnitName Value="customdrawn_android"/> <UnitName Value="customdrawn_android"/>
</Item288> </Item288>
<Item289>
<Filename Value="include/sysenvapis_win.inc"/>
<Type Value="Include"/>
</Item289>
<Item290>
<Filename Value="include/sysenvapis.inc"/>
<Type Value="Include"/>
</Item290>
<Item291>
<Filename Value="include/sysenvapis_mac.inc"/>
<Type Value="Include"/>
</Item291>
<Item292>
<Filename Value="include/sysenvapis_unix.inc"/>
<Type Value="Include"/>
</Item292>
</Files> </Files>
<LazDoc Paths="../docs/xml/lcl"/> <LazDoc Paths="../docs/xml/lcl"/>
<i18n> <i18n>