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

Fixes wince compilation

Browse Source 
git-svn-id: trunk@27075 -
This commit is contained in:
sekelsenmat 2010-08-12 13:30:00 +00:00
parent 706b7cc905
commit 7704fc9d09
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/wince/winceextra.pp
View File

@ -369,7 +369,7 @@ cleanup:
if(memdc<>0) then DeleteDC(memdc); if(memdc<>0) then DeleteDC(memdc);
end; end;
function _AlphaBlend(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; blendFunction: TBlendFunction): BOOL; stdcall; function _AlphaBlend(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; blendFunction: TBlendFunction): BOOL; cdecl;
var var
SCA: Byte absolute blendFunction.SourceConstantAlpha; SCA: Byte absolute blendFunction.SourceConstantAlpha;
@ -756,12 +756,10 @@ finalization
kerneldllhandle := 0; kerneldllhandle := 0;
// SHSendBackToFocusWindow // SHSendBackToFocusWindow
SHSendBackToFocusWindow := @_SHSendBackToFocusWindow; SHSendBackToFocusWindow := @_SHSendBackToFocusWindow_;
if aygshelldllhandle <> 0 then FreeLibrary(aygshelldllhandle); if aygshelldllhandle <> 0 then FreeLibrary(aygshelldllhandle);
aygshelldllhandle := 0; aygshelldllhandle := 0;
end. end.