Files
lazarus-ccr/components/virtualtreeview-new/branches/4.8/include/intf/carbon/vtgraphicsi.inc
blikblum 50ab47a69f * Add workaround to Carbon bug 18211 (PaintStruct not initialized)
* Add a dummy AlphaBlend function to Carbon interface

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1402 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2010-12-13 21:13:33 +00:00

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;