From b4b5258a4a94c0db2ef4866c2f26963b7a0f149e Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 27 Oct 2012 16:15:25 +0000
Subject: [PATCH] LCL: Trim spaces in TPicture.FindGraphicClassWithFileExt.
 issue #23224

git-svn-id: trunk@39170 -
---
 lcl/include/picture.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/picture.inc b/lcl/include/picture.inc
index 145358bd68..f40065b67c 100644
--- a/lcl/include/picture.inc
+++ b/lcl/include/picture.inc
@@ -700,7 +700,7 @@ function TPicture.FindGraphicClassWithFileExt(const Ext: string;
 var
   FileExt: String;
 begin
-  FileExt := Ext;
+  FileExt := Trim(Ext);
   if (FileExt <> '') and (FileExt[1] = '.') then
     FileExt := Copy(FileExt, 2, length(FileExt));
   Result := GetPicFileFormats.FindExt(FileExt);