Class TDIBSurface (unit DIBSurf) |
Inherits from
TObject
constructor Create(aWidth, aHeigth : integer);
- ****** DIBSurface
constructor CreateLogPalette(pal:TLogPalette256;aWidth, aHeigth : integer);
- Resize(aWidth, aHeigth);
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
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
Palette : TPalette;
BitmapInfo : TBitmapInfoPal;
DWordWidth : integer;
FBits : Pointer;
FHandle : HDC;
Handles
FSize : longint;
hDIB : HBITMAP;
OldBitmap : HBITMAP;
Old Handles
OldPalette : HPALETTE;
constructor Create(aWidth, aHeigth : integer);
****** DIBSurface
constructor CreateLogPalette(pal:TLogPalette256;aWidth, aHeigth : integer);
Resize(aWidth, aHeigth);
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
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
Palette : TPalette;
BitmapInfo : TBitmapInfoPal;
DWordWidth : integer;
FBits : Pointer;
FHandle : HDC;
Handles
FSize : longint;
hDIB : HBITMAP;
OldBitmap : HBITMAP;
Old Handles
OldPalette : HPALETTE;