From b21744f60579e641e530613b7bedfc0cd5acf6fe Mon Sep 17 00:00:00 2001 From: paul Date: Tue, 12 Feb 2008 06:08:39 +0000 Subject: [PATCH] comment code that is never used git-svn-id: trunk@14103 - --- lcl/interfaces/win32/win32extra.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32extra.pas b/lcl/interfaces/win32/win32extra.pas index 2ba5f91ecc..d19b23f65a 100644 --- a/lcl/interfaces/win32/win32extra.pas +++ b/lcl/interfaces/win32/win32extra.pas @@ -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