mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 15:32:00 +01:00
33 lines
846 B
ObjectPascal
33 lines
846 B
ObjectPascal
unit 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, Height, Row: Integer): Pointer;
|
|
|
|
function GetBitmapBitsFromBitmap(Bitmap: HBITMAP): Pointer;
|
|
|
|
implementation
|
|
|
|
{$i vtgraphicsi.inc}
|
|
|
|
end.
|
|
|