| Class TDIBSurface (unit DIBSurf) |
TObject
| Constructors |
constructor Create(aWidth, aHeigth : integer);
constructor CreateLogPalette(pal:TLogPalette256;aWidth, aHeigth : integer);| Functions |
procedure Clear;****** Rutinas de Dibujo
destructor Destroy;
procedure DrawHorizontalLine(x1,x2,y:integer; b:byte);
procedure DrawLine(x1,y1,x2,y2:integer; b:byte);
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;
function ReadPixel(x,y:integer):byte;
function ReadWidth : integer;
function SafeReadPixel(x,y:integer):byte;
procedure SafeSetPixel(x,y:integer; b : byte);
procedure SetHeigth( h : integer);
procedure SetPixel(x,y:integer; b : byte);****** Propiedades
procedure SetWidth( w : integer);| Properties |
property Bits : Pointer
property Handle : HDC
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;
FSize : longint;
hDIB : HBITMAP;
OldBitmap : HBITMAP;
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 : Pointeracceso a pixeles
property Handle : HDCproperty 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;