You've already forked lazarus-ccr
762033eb3b
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3536 8e941d3f-bd1b-0410-a28a-d453659cc2b4
23 lines
622 B
PHP
23 lines
622 B
PHP
//todo: properly implement
|
|
procedure AlphaBlend(Source, Destination: HDC; const R: TRect; const Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer);
|
|
begin
|
|
case Mode of
|
|
bmConstantAlpha,
|
|
bmPerPixelAlpha,
|
|
bmMasterAlpha,
|
|
bmConstantAlphaAndColor:
|
|
begin
|
|
BitBlt(Destination, Target.X, Target.Y, R.Right - R.Left, R.Bottom - R.Top, Source, R.Left, R.Right, SRCCOPY);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function CalculateScanline(Bits: Pointer; Width, Height, Row: Integer): Pointer;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function GetBitmapBitsFromBitmap(Bitmap: HBITMAP): Pointer;
|
|
begin
|
|
Result := nil;
|
|
end; |