|
|||
Скачать FastVESA - Fast VESA Unit for BP7
20.07.1998 доделан не до конца, 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); | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |