Скачать FastVESA - Fast VESA Unit for BP7

20.07.1998
Скачать файл (4,02 Кб)

доделан не до конца, pаботает только pеалмоде,
некотоpые фичи не pаботают, а так в общем ничего...

procedure VESAInit;
  procedure VESADone;
  procedure GetVESAInfo;
  procedure GetVESAModeInfo(Mode : word);
  procedure SetVESAMode(Mode : word);
  function  GetVESAMode : word;
  procedure SetVESABank(Bank : word);
  function  GetVESABank : word;
  procedure ClearScreen(Color : byte);
  function  GetMaxX : integer;
  function  GetMaxY : integer;
  procedure OffMonitor;
  procedure OnMonitor;
  procedure Retrace;
  procedure PutPixel(X,Y : integer; Color : byte);
  function  GetPixel(X,Y : integer) : byte;
  procedure Line(X1,Y1,X2,Y2 : integer; Color : byte);
  procedure Box(X1,Y1,X2,Y2 : integer; Color : byte; Filled : boolean);
  procedure Fill(X,Y : integer; Color,BorderColor : byte);
  procedure Circle(X,Y,R : integer; Color : byte);
  function  ImageSize(X1,Y1,X2,Y2 : integer) : longint;
  procedure AllocateImage(var Image : PImage; X1,Y1,X2,Y2 : integer);
  procedure DeallocateImage(var Image : PImage);
  procedure GetImage(Image : PImage; X1,Y1,X2,Y2 : integer);
  procedure PutImage(Image : PImage; X1,Y1 : integer; PutType : byte);
  procedure SetRGBColor(Color,R,G,B : byte);
  procedure GetRGBColor(Color : byte; var R,G,B : byte);
  procedure SetRGBPalette(Palette : pointer;FirstColor,LastColor : byte);
  procedure GetRGBPalette(Palette : pointer;FirstColor,LastColor : byte);