paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 23:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert "LCL: Trim spaces in TPicture.FindGraphicClassWithFileExt". Not GUI code.

Browse Source 
git-svn-id: trunk@39174 -
This commit is contained in:
juha 2012-10-28 08:38:40 +00:00
parent e4d8203192
commit a7ee575bcc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/picture.inc
View File

@ -700,7 +700,7 @@ function TPicture.FindGraphicClassWithFileExt(const Ext: string;
var var
FileExt: String; FileExt: String;
begin begin
FileExt := Trim(Ext); FileExt := Ext;
if (FileExt <> '') and (FileExt[1] = '.') then if (FileExt <> '') and (FileExt[1] = '.') then
FileExt := Copy(FileExt, 2, length(FileExt)); FileExt := Copy(FileExt, 2, length(FileExt));
Result := GetPicFileFormats.FindExt(FileExt); Result := GetPicFileFormats.FindExt(FileExt);