mirror of
				https://gitlab.com/freepascal.org/lazarus/lazarus.git
				synced 2025-10-31 01:04:50 +01:00 
			
		
		
		
	Adds the sysenvapis include files to the lpk and adds an extra safety in OpenURL for users which forget to encode spaces in filenames
git-svn-id: trunk@36745 -
This commit is contained in:
		
							parent
							
								
									5f2d225948
								
							
						
					
					
						commit
						e87cc8fbbf
					
				| @ -13,6 +13,12 @@ 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); | ||||
|  | ||||
| @ -30,7 +30,7 @@ | ||||
|     <License Value="modified LGPL-2 | ||||
| "/> | ||||
|     <Version Major="1" Release="1"/> | ||||
|     <Files Count="288"> | ||||
|     <Files Count="292"> | ||||
|       <Item1> | ||||
|         <Filename Value="barchart.pp"/> | ||||
|         <UnitName Value="BarChart"/> | ||||
| @ -1188,6 +1188,22 @@ | ||||
|         <Filename Value="customdrawn_android.pas"/> | ||||
|         <UnitName Value="customdrawn_android"/> | ||||
|       </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> | ||||
|     <LazDoc Paths="../docs/xml/lcl"/> | ||||
|     <i18n> | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 sekelsenmat
						sekelsenmat