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

LCL: Trim spaces in TPicture.FindGraphicClassWithFileExt. issue #23224

Browse Source 
git-svn-id: trunk@39170 -
This commit is contained in:
juha 2012-10-27 16:15:25 +00:00
parent b8b76ba108
commit b4b5258a4a
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 := Ext; FileExt := Trim(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);