TUniDIB

type TUniDIB = class

protected

  FBMInfo: TxBitmapInfo256;

  FHandle: HBITMAP;

  FDC: HDC;

  FBits: Pointer;

  FPalHandle: HPALETTE;

  FActPointer: Pointer;

  FDWordWidth: Cardinal;

  XActX: Integer;

  XUsage: UINT;

  XClrCount: Integer;

  XSelPalette: HPALETTE;

  procedure SetPixel1();

  procedure SetPixel4();

  procedure SetPixel8();

  procedure SetPixel16();

  procedure SetPixel16R();

  procedure SetPixel16G();

  procedure SetPixel16B();

  procedure SetPixel24();

  procedure SetPixel32();

  function GetPixel1();

  function GetPixel4();

  function GetPixel8();

  function GetPixel16();

  function GetPixel16R();

  function GetPixel16G();

  function GetPixel16B();

  function GetPixel24();

  function GetPixel32();

  procedure SetSeqPixel1();

  procedure SetSeqPixel4();

  procedure SetSeqPixel8();

  procedure SetSeqPixel16();

  procedure SetSeqPixel16R();

  procedure SetSeqPixel16G();

  procedure SetSeqPixel16B();

  procedure SetSeqPixel24();

  procedure SetSeqPixel32();

  function GetSeqPixel1;

  function GetSeqPixel4;

  function GetSeqPixel8;

  function GetSeqPixel16;

  function GetSeqPixel16R;

  function GetSeqPixel16G;

  function GetSeqPixel16B;

  function GetSeqPixel24;

  function GetSeqPixel32;

public

  SetPixel: TxSetPixelProc;

  GetPixel: TxGetPixelFunc;

  SetSeqPixel: TxSetSeqPixelProc;

  GetSeqPixel: TxGetSeqPixelFunc;

  procedure Seek();

  constructor Create();

  destructor Destroy; override;

  procedure DIBtoScreen();

  procedure DIBtoCanvasXY();

  procedure SetPalette();

  procedure Clear;

  procedure DrawHorizLine();

  procedure DrawVertLine();

  procedure DrawLine();

  procedure FillPolygon();

  procedure CaptureScreen;

  property ActPointer: Pointer; [rw]

  property Bits: Pointer; [r]

  property DC: HDC; [r]

  property DWordWidth: Cardinal; [r]

  property Handle: HBITMAP; [r]

  property Height: LongInt; [r]

  property Width: LongInt; [r]

end;

TUniDIB

TObject