mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 21:28:31 +02:00
54a8e6dadc
OnlinePackageManager: Adapt to the new virtualtreeview package. git-svn-id: trunk@60132 -
33 lines
859 B
ObjectPascal
33 lines
859 B
ObjectPascal
unit laz.VTGraphics;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
DelphiCompat, Types, LCLIntf, LCLType;
|
|
|
|
type
|
|
// Describes the mode how to blend pixels.
|
|
TBlendMode = (
|
|
bmConstantAlpha, // apply given constant alpha
|
|
bmPerPixelAlpha, // use alpha value of the source pixel
|
|
bmMasterAlpha, // use alpha value of source pixel and multiply it with the constant alpha value
|
|
bmConstantAlphaAndColor // blend the destination color with the given constant color und the constant alpha value
|
|
);
|
|
|
|
|
|
|
|
procedure AlphaBlend(Source, Destination: HDC; const R: TRect; const Target: TPoint; Mode: TBlendMode; ConstantAlpha, Bias: Integer);
|
|
|
|
function CalculateScanline(Bits: Pointer; Width, {%H-}Height, Row: Integer): Pointer;
|
|
|
|
function GetBitmapBitsFromBitmap(Bitmap: HBITMAP): Pointer;
|
|
|
|
implementation
|
|
|
|
{$i laz.vtgraphicsi.inc}
|
|
|
|
end.
|
|
|