paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Reverts the help for OpenURL as per comments in bug #21659

Browse Source 
git-svn-id: trunk@36934 -
This commit is contained in:
sekelsenmat 2012-04-20 15:03:06 +00:00
parent ffef0d3645
commit 18fb5b9362
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/sysenvapis_win.inc
View File

@ -13,12 +13,6 @@ begin
Result := False;
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}
FillChar(Info, SizeOf(Info), 0);
Info.cbSize := SizeOf(Info);

1
lcl/lclintf.pas
View File

@ -79,6 +79,7 @@ function GetTickStep: DWord;
{$ENDIF}
function FindDefaultBrowser(out ABrowser, AParams: String): Boolean;
// Spaces in URLs need to be encoded as %20 Read http://www.ietf.org/rfc/rfc1738.txt
function OpenURL(AURL: String): Boolean;
function OpenDocument(APath: String): Boolean;