Class TDIBSurface (unit DIBSurf)

Inherits from

TObject

Constructors


constructor Create(aWidth, aHeigth : integer);

****** DIBSurface

constructor CreateLogPalette(pal:TLogPalette256;aWidth, aHeigth : integer);

Resize(aWidth, aHeigth);


Functions

procedure Clear;

Rutinas de Dibujo

****** Rutinas de Dibujo


destructor Destroy;

Resize(aWidth, aHeigth);

procedure DrawHorizontalLine(x1,x2,y:integer; b:byte);

dy<0

procedure DrawLine(x1,y1,x2,y2:integer; b:byte);

for

procedure DrawVerticalLine(x,y1,y2:integer; b:byte);


procedure FillPolygon(poly:array of TPoint; fillcol:byte);


procedure Resize( w, h : integer);


procedure ScreenToSurface(sourceDC:hDC);


procedure SetPalette(pal:TLogPalette256);


procedure SurfaceToScreen(destDC:hDC);


function ReadHeight: integer;

métodos acceso propiedad Heigth

function ReadPixel(x,y:integer):byte;


function ReadWidth : integer;


function SafeReadPixel(x,y:integer):byte;


procedure SafeSetPixel(x,y:integer; b : byte);

métodos acceso propiedad SafePixels[x,y]

procedure SetHeigth( h : integer);


procedure SetPixel(x,y:integer; b : byte);

métodos acceso propiedad Pixels[x,y]

****** Propiedades


procedure SetWidth( w : integer);

métodos acceso propiedad Width

Properties

property Bits : Pointer

acceso a pixeles

property Handle : HDC

property hPal : HPALETTE read Palette.

property Height : integer


property Pixel : byte


property SafePixel : byte


property Size : LongInt


property Width : integer


Events

Variables

Palette : TPalette;


BitmapInfo : TBitmapInfoPal;


DWordWidth : integer;


FBits : Pointer;


FHandle : HDC;

Handles

FSize : longint;


hDIB : HBITMAP;


OldBitmap : HBITMAP;

Old Handles

OldPalette : HPALETTE;



Constructors


constructor Create(aWidth, aHeigth : integer);

****** DIBSurface


constructor CreateLogPalette(pal:TLogPalette256;aWidth, aHeigth : integer);

Resize(aWidth, aHeigth);


Functions


procedure Clear;

Rutinas de Dibujo

****** Rutinas de Dibujo


destructor Destroy;

Resize(aWidth, aHeigth);


procedure DrawHorizontalLine(x1,x2,y:integer; b:byte);

dy<0


procedure DrawLine(x1,y1,x2,y2:integer; b:byte);

for


procedure DrawVerticalLine(x,y1,y2:integer; b:byte);


procedure FillPolygon(poly:array of TPoint; fillcol:byte);


procedure Resize( w, h : integer);


procedure ScreenToSurface(sourceDC:hDC);


procedure SetPalette(pal:TLogPalette256);


procedure SurfaceToScreen(destDC:hDC);


function ReadHeight: integer;

métodos acceso propiedad Heigth


function ReadPixel(x,y:integer):byte;


function ReadWidth : integer;


function SafeReadPixel(x,y:integer):byte;


procedure SafeSetPixel(x,y:integer; b : byte);

métodos acceso propiedad SafePixels[x,y]


procedure SetHeigth( h : integer);


procedure SetPixel(x,y:integer; b : byte);

métodos acceso propiedad Pixels[x,y]

****** Propiedades


procedure SetWidth( w : integer);

métodos acceso propiedad Width


Properties


property Bits : Pointer

acceso a pixeles


property Handle : HDC

property hPal : HPALETTE read Palette.Handle;


property Height : integer


property Pixel : byte


property SafePixel : byte


property Size : LongInt


property Width : integer


Events


Variables


Palette : TPalette;


BitmapInfo : TBitmapInfoPal;


DWordWidth : integer;


FBits : Pointer;


FHandle : HDC;

Handles


FSize : longint;


hDIB : HBITMAP;


OldBitmap : HBITMAP;

Old Handles


OldPalette : HPALETTE;