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

lcl: fixed compilation WinCE

Browse Source 
git-svn-id: trunk@47122 -
This commit is contained in:
mattias 2014-12-06 13:32:48 +00:00
parent 8e9dbfa85e
commit 666f004e4c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lresources.pp
View File

@ -3089,7 +3089,9 @@ function InitLazResourceComponent(Instance: TComponent;
{$ifdef UseRES} {$ifdef UseRES}
if Stream = nil then if Stream = nil then
begin begin
FPResource := FindResource(HInstance, PChar(ResName), PChar(RT_RCDATA)); FPResource := FindResource(HInstance, PChar(ResName),
{$IF (FPC_FULLVERSION>=20701) and defined(Windows)}Windows.{$ENDIF}RT_RCDATA
);
if FPResource <> 0 then if FPResource <> 0 then
Stream := TLazarusResourceStream.CreateFromHandle(HInstance, FPResource); Stream := TLazarusResourceStream.CreateFromHandle(HInstance, FPResource);
end; end;