Class DIBsurfaceobject (unit DIB_surface)

Inherits from

TObject

Constructors


constructor Create(palette:TMyLogPalette; newsize:TPoint);

------------------------------------------------------------------------ } { DIB surface object } { ------------------------------------------------------------------------


Functions

procedure change_palette(palette:TMyLogPalette);

Top down for me please.

procedure change_size(newsize:TPoint; force:boolean);


procedure clear_surface;


procedure copy_screen_to_surface(sourceDC:hDC);

very little speed difference

procedure copy_surface_to_screen(destDC:hDC);


destructor destroy;

pal_indices } // makes palette mapped from 10->235 (0-9 and 236->255 reserved for system) // use lp1+10 to map 0->235, but then 0 isn't black any more :(

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

dy<0

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

fast(ish) utility routines


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


procedure fill_polygon(n:integer; poly:Pshape; fillcol:byte);


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


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


Properties

Events

Variables

DIBbits : Pointer;


DIBDC : hDC;


DIBhandle : THandle;


DIBheader : TMyBitmapInfo;


DIBHeight : integer;


DIBhpalette : hPalette;


DIBPalette : TMyLogPalette;


DIBpalsize : integer;


DIBSize : integer;


DIBWidth : integer;


DIBWidth_b : integer;


Original_BMP : hBitmap;


Original_PAL : hPalette;



Constructors


constructor Create(palette:TMyLogPalette; newsize:TPoint);

------------------------------------------------------------------------ } { DIB surface object } { ------------------------------------------------------------------------


Functions


procedure change_palette(palette:TMyLogPalette);

Top down for me please...} { the minus sign may or may not be necessary on your machine - I'm not sure } { without it - the DIB is bottom up - See old WinG documentation


procedure change_size(newsize:TPoint; force:boolean);


procedure clear_surface;


procedure copy_screen_to_surface(sourceDC:hDC);

very little speed difference


procedure copy_surface_to_screen(destDC:hDC);


destructor destroy;

pal_indices } // makes palette mapped from 10->235 (0-9 and 236->255 reserved for system) // use lp1+10 to map 0->235, but then 0 isn't black any more :(


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

dy<0


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

fast(ish) utility routines


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


procedure fill_polygon(n:integer; poly:Pshape; fillcol:byte);


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


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


Properties


Events


Variables


DIBbits : Pointer;


DIBDC : hDC;


DIBhandle : THandle;


DIBheader : TMyBitmapInfo;


DIBHeight : integer;


DIBhpalette : hPalette;


DIBPalette : TMyLogPalette;


DIBpalsize : integer;


DIBSize : integer;


DIBWidth : integer;


DIBWidth_b : integer;


Original_BMP : hBitmap;


Original_PAL : hPalette;