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

comment code that is never used

Browse Source 
git-svn-id: trunk@14103 -
This commit is contained in:
paul 2008-02-12 06:08:39 +00:00
parent b670a88a3e
commit b21744f605
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32extra.pas
View File

@ -824,8 +824,9 @@ end;
// win98 only supports dibsections, so if not a dib section,
// we draw ourselves
var
{var
AlphaBlend98: function(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; blendFunction: TBlendFunction): BOOL; stdcall;
}
function _AlphaBlend98(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; blendFunction: TBlendFunction): BOOL; stdcall;
begin
@ -860,7 +861,7 @@ begin
if WindowsVersion = wv98
then begin
// windows 98
Pointer(AlphaBlend98) := p;
// Pointer(AlphaBlend98) := p;
AlphaBlend := @_AlphaBlend98;
end
else begin