TModeInfo¶

type
  TModeInfo = record
    DriverNumber: SmallInt;
    ModeNumber: SmallInt;
    internModeNumber: SmallInt;
    MaxColor: LongInt;
    PaletteSize: LongInt;
    XAspect: Word;
    YAspect: Word;
    MaxX: Word;
    MaxY: Word;
    DirectColor: Boolean;
    Hardwarepages: Byte;
    ModeName: string;
    DirectPutPixel: defpixelproc = procedure(X: SmallInt; Y: SmallInt);
    GetPixel: getpixelproc = function(X: SmallInt; Y: SmallInt) : ColorType;
    PutPixel: putpixelproc = procedure(X: SmallInt; Y: SmallInt; Color: ColorType);
    SetRGBPalette: setrgbpaletteproc = procedure(ColorNum: SmallInt; RedValue: SmallInt; 
                              GreenValue: SmallInt; BlueValue: SmallInt);
    GetRGBPalette: getrgbpaletteproc = procedure(ColorNum: SmallInt; 
                              var RedValue: SmallInt; 
                              var GreenValue: SmallInt; 
                              var BlueValue: SmallInt);
    SetAllPalette: SetAllPaletteProc = procedure(const Palette: PaletteType);
    SetVisualPage: setvisualpageproc = procedure(page: Word);
    SetActivePage: setactivepageproc = procedure(page: Word);
    ClearViewPort: clrviewproc = procedure;
    PutImage: putimageproc = procedure(X: SmallInt; Y: SmallInt; var Bitmap; 
                         BitBlt: Word);
    GetImage: getimageproc = procedure(X1: SmallInt; Y1: SmallInt; X2: SmallInt; 
                         Y2: SmallInt; var Bitmap);
    ImageSize: imagesizeproc = function(X1: SmallInt; Y1: SmallInt; X2: SmallInt; 
                         Y2: SmallInt) : LongInt;
    GetScanLine: getscanlineproc = procedure(X1: SmallInt; X2: SmallInt; Y: SmallInt; 
                            var data);
    Line: lineproc = procedure(X1: SmallInt; Y1: SmallInt; X2: SmallInt; 
                     Y2: SmallInt);
    InternalEllipse: ellipseproc = procedure(X: SmallInt; Y: SmallInt; XRadius: Word; 
                        YRadius: Word; stAngle: Word; EndAngle: Word; 
                        fp: patternlineproc);
    PatternLine: patternlineproc = procedure(x1: SmallInt; x2: SmallInt; y: SmallInt);
    HLine: hlineproc = procedure(x: SmallInt; x2: SmallInt; y: SmallInt);
    VLine: vlineproc = procedure(x: SmallInt; y: SmallInt; y2: SmallInt);
    Circle: CircleProc = procedure(X: SmallInt; Y: SmallInt; Radius: Word);
    InitMode: initmodeproc = procedure;
    OutTextXY: OutTextXYProc = procedure(x: SmallInt; y: SmallInt; 
                          const TextString: ShortString);
    SetBKColor: SetBkColorProc = procedure(ColorNum: ColorType);
    GetBKColor: GetBkColorProc = function : ColorType;
    next: PModeInfo = ^TModeInfo;
  end;