Class DIBsurfaceobject (unit DIB_surface) |
Inherits from
TObject
constructor Create(palette:TMyLogPalette; newsize:TPoint);
- ------------------------------------------------------------------------ } { DIB surface object } { ------------------------------------------------------------------------
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);
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;
constructor Create(palette:TMyLogPalette; newsize:TPoint);
------------------------------------------------------------------------ } { DIB surface object } { ------------------------------------------------------------------------
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);
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;