paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 22:59:56 +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, // win98 only supports dibsections, so if not a dib section,
// we draw ourselves // 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; 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; function _AlphaBlend98(hdcDest: HDC; nXOriginDest, nYOriginDest, nWidthDest, nHeightDest: Integer; hdcSrc: HDC; nXOriginSrc, nYOriginSrc, nWidthSrc, nHeightSrc: Integer; blendFunction: TBlendFunction): BOOL; stdcall;
begin begin
@ -860,7 +861,7 @@ begin
if WindowsVersion = wv98 if WindowsVersion = wv98
then begin then begin
// windows 98 // windows 98
Pointer(AlphaBlend98) := p; // Pointer(AlphaBlend98) := p;
AlphaBlend := @_AlphaBlend98; AlphaBlend := @_AlphaBlend98;
end end
else begin else begin