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

lcl: a trial to fix wince compilation (issue #0025512)

Browse Source 
git-svn-id: trunk@43697 -
This commit is contained in:
paul 2014-01-11 03:25:31 +00:00
parent 391d5a62fc
commit 2dd21044bd
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/graphics.pp
View File

@ -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