www.pudn.com > bitView.rar > define_types.pas

unit define_types; 
 
interface 
{$ifdef Linux} 
{$else} 
uses windows; 
{$endif} 
const 
     PixelCountMax = 32768; 
type 
{$IFDEF Linux} 
  TRGBtriple = PACKED RECORD 
        rgbtBlue,rgbtGreen,rgbtRed,trgbreserved: byte; 
  end; 
{$ENDIF} 
  TRGBquad = PACKED RECORD 
        rgbtBlue,rgbtGreen,rgbtRed,trgbreserved: byte; 
  end; 
 
    SingleRA0 = array [0..0] of Single; 
    Singlep0 = ^SingleRA0; 
    ByteRA0 = array [0..0] of byte; 
    Bytep0 = ^ByteRA0; 
    WordRA0 = array [0..0] of Word; 
    Wordp0 = ^WordRA0; 
    SmallIntRA0 = array [0..0] of SmallInt; 
    SMallIntp0 = ^SmallIntRA0; 
    LongIntRA0 = array [0..0] of LongInt; 
    LongIntp0 = ^LongIntRA0; 
 
    ByteRA = array [1..1] of byte; 
    Bytep = ^ByteRA; 
    WordRA = array [1..1] of Word; 
    Wordp = ^WordRA; 
    SmallIntRA = array [1..1] of SmallInt; 
    SMallIntp = ^SmallIntRA; 
    LongIntRA = array [1..1] of LongInt; 
    LongIntp = ^LongIntRA; 
    SingleRA = array [1..1] of Single; 
    Singlep = ^SingleRA; 
    DoubleRA = array [1..1] of Double; 
    Doublep = ^DoubleRA; 
 
    HistoRA = array [0..256] of longint; 
    pRGBTripleArray = ^TRGBTripleArray; 
    TRGBTripleArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple; 
 
  pRGBQuadArray = ^TRGBQuadArray; 
  TRGBQuadArray = ARRAY[0..PixelCountMax-1] OF TRGBquad; 
 
implementation 
 
end.