From 2dd21044bdb41421f8caa223a023e8b06b64b3c1 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 11 Jan 2014 03:25:31 +0000
Subject: [PATCH] lcl: a trial to fix wince compilation (issue #0025512)

git-svn-id: trunk@43697 -
---
 lcl/graphics.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 7fb6d5c07d..284a7d2dca 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -2802,7 +2802,7 @@ begin
   ResHandle := FindResource(Instance, PChar(ResName), PChar(RT_RCDATA));
   if ResHandle <> 0 then
   begin
-    Stream := TResourceStream.Create(Instance, PChar(ResName), PChar(RT_RCDATA));
+    Stream := TResourceStream.Create(Instance, ResName, RT_RCDATA);
     try
       GraphicClass := GetPicFileFormats.FindByStreamFormat(Stream);
       if Assigned(GraphicClass) and GraphicClass.InheritsFrom(TCustomBitmap) then