Unit opbitmap

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
packed record TRGBQuad Compatibility Declarations
packed record TRGBTriple  
packed record Pixel24  
packed record Pixel32  
packed record Pixel48  
packed record Pixel64  
packed record TOPBitmapStreamHeader  
Klasse EPasBitMapError  
Klasse EInvalidGraphic  
Klasse TBitmapData  
Klasse TBitmapData1 TBitmapData1
Klasse TBitmapData4 TBitmapData4
Klasse TBitmapData8 TBitmapData8
Klasse TBitmapData15 TBitmapData15
Klasse TBitmapData16 TBitmapData16
Klasse TBitmapData24 TBitmapData24
Klasse TBitmapData32 TBitmapData32
Klasse TBitmapData48 TBitmapData48
Klasse TBitmapData64 TBitmapData64
Klasse TBrush  
Klasse TPen  
Klasse TPasCanvas  
Klasse TOPBitmapCanvas  
Klasse TGraphic  
Klasse TOPBitmap TOPBitmap
Klasse TCanvasOPBitmap  
record TColorEntry  
Klasse TColorFinder  
Klasse TOctreeNode  
Klasse TColorQuantizer  

Funktionen und Prozeduren

function ByteSwapColor(Color: LongWord): LongWord;
function MulDiv(Number, Num, Den: Integer): Integer;
function PixelFormatFromBPP(inp: Byte): TPixelFormat;
function ColorInRange(col1, col2: TColor; Range: Byte): Boolean;

Typen

PColor = ˆTColor;
TColor = -$7FFFFFFF - 1..$7FFFFFFF;
Nibble = 0..$F;
TPixelFormat = (...);
pRGBQuad = ˆTRGBQuad;
TRGBQuadArray = array[Word] of TRGBQuad;
PRGBQuadArray = ˆTRGBQuadArray;
TRGBQuadArray256 = array[0..256] of TRGBQuad;
PRGBQuadArray256 = ˆTRGBQuadArray;
pRGBTRiple = ˆTRGBTriple;
TRGBTripleArray = array[Word] of TRGBTriple;
PRGBTripleArray = ˆTRGBTripleArray;
Pixel8 = Byte;
APixel8 = array[0..MaxArr] of Pixel8;
PAPixel8 = ˆAPixel8;
Pixel16 = Word;
APixel16 = array[0..MaxArr] of Pixel16;
PAPixel16 = ˆAPixel16;
PPixel24 = ˆPixel24;
APixel24 = array[0..MaxArr] of Pixel24;
PAPixel24 = ˆAPixel24;
PPixel32 = ˆPixel32;
APixel32 = array[0..MaxArr] of Pixel32;
PAPixel32 = ˆAPixel32;
PPixel48 = ˆPixel48;
APixel48 = array[0..MaxArr div 2] of Pixel48;
PAPixel48 = ˆAPixel48;
PPixel64 = ˆPixel64;
APixel64 = array[0..MaxArr div 3] of Pixel64;
PAPixel64 = ˆAPixel64;
TOpenColorTableArray = array of TColor;
POpenColorTableArray = ˆTOpenColorTableArray;
TColorTableArray = array[0..$FF] of TColor;
PColorTableArray = ˆTColorTableArray;
TColorTableArray16 = array[0..$F] of TColor;
PColorTableArray16 = ˆTColorTableArray16;
TReductionMode = (...);
TOPProgressStage = (...);
TOPProgressEvent = procedure (Sender: TObject; Stage: TOPProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string) of object;
TOpRawImageLineEnd = (...);
TBrushStyle = (...);
TCanvas = TOPBitmapCanvas;
PColorEntry = ˆTColorEntry;
TReducibleNodes = array[0..7] of TOctreeNode;

Konstanten

clBlack = TColor($000000);
clMaroon = TColor($000080);
clGreen = TColor($008000);
clOlive = TColor($008080);
clNavy = TColor($800000);
clPurple = TColor($800080);
clTeal = TColor($808000);
clGray = TColor($808080);
clSilver = TColor($C0C0C0);
clRed = TColor($0000FF);
clLime = TColor($00FF00);
clYellow = TColor($00FFFF);
clBlue = TColor($FF0000);
clFuchsia = TColor($FF00FF);
clAqua = TColor($FFFF00);
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);
clNone = TColor($1FFFFFFF);
clDefault = TColor($20000000);
StdColors: array[0..15] of TColor = ( clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);
AlphaOpaque = $FF;
AlphaTransparent = 0;
BWColors: array[0..1] of TColor = (clBlack, clWhite);
MaxArr = (MaxLongint div Sizeof(integer)) - 1;
TOPBitmapStreamSign = 'OPB';
TOPBitmapStreamVersion = 1;
CSpaceRedu = 3;

Variablen

WebColors: array[0..215] of TColor;
Gray256Colors: array[0..$FF] of TColor;

Beschreibung

Funktionen und Prozeduren

function ByteSwapColor(Color: LongWord): LongWord;
 
function MulDiv(Number, Num, Den: Integer): Integer;
 
function PixelFormatFromBPP(inp: Byte): TPixelFormat;
 
function ColorInRange(col1, col2: TColor; Range: Byte): Boolean;
 

Typen

PColor = ˆTColor;

_$Q+

TColor = -$7FFFFFFF - 1..$7FFFFFFF;
 
Nibble = 0..$F;
 
TPixelFormat = (...);
 
Values
  • pfDevice:
  • pf1bit:
  • pf4bit:
  • pf8bit:
  • pf15bit:
  • pf16bit:
  • pf24bit:
  • pf32bit:
  • pf48bit:
  • pf64bit:
  • pfCustom:
pRGBQuad = ˆTRGBQuad;
 
TRGBQuadArray = array[Word] of TRGBQuad;
 
PRGBQuadArray = ˆTRGBQuadArray;
 
TRGBQuadArray256 = array[0..256] of TRGBQuad;
 
PRGBQuadArray256 = ˆTRGBQuadArray;
 
pRGBTRiple = ˆTRGBTriple;
 
TRGBTripleArray = array[Word] of TRGBTriple;
 
PRGBTripleArray = ˆTRGBTripleArray;
 
Pixel8 = Byte;

OPBitmap Declarations

APixel8 = array[0..MaxArr] of Pixel8;
 
PAPixel8 = ˆAPixel8;
 
Pixel16 = Word;
 
APixel16 = array[0..MaxArr] of Pixel16;
 
PAPixel16 = ˆAPixel16;
 
PPixel24 = ˆPixel24;
 
APixel24 = array[0..MaxArr] of Pixel24;
 
PAPixel24 = ˆAPixel24;
 
PPixel32 = ˆPixel32;
 
APixel32 = array[0..MaxArr] of Pixel32;
 
PAPixel32 = ˆAPixel32;
 
PPixel48 = ˆPixel48;
 
APixel48 = array[0..MaxArr div 2] of Pixel48;
 
PAPixel48 = ˆAPixel48;
 
PPixel64 = ˆPixel64;
 
APixel64 = array[0..MaxArr div 3] of Pixel64;
 
PAPixel64 = ˆAPixel64;
 
TOpenColorTableArray = array of TColor;
 
POpenColorTableArray = ˆTOpenColorTableArray;
 
TColorTableArray = array[0..$FF] of TColor;
 
PColorTableArray = ˆTColorTableArray;
 
TColorTableArray16 = array[0..$F] of TColor;
 
PColorTableArray16 = ˆTColorTableArray16;
 
TReductionMode = (...);
 
Values
  • rmOptimized:
  • rmFixed:
TOPProgressStage = (...);
 
Values
  • opsStarting:
  • opsRunning:
  • opsEnding:
TOPProgressEvent = procedure (Sender: TObject; Stage: TOPProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string) of object;
 
TOpRawImageLineEnd = (...);
 
Values
  • rileTight:
  • rileByteBoundary:
  • rileWordBoundary:
  • rileDWordBoundary:
  • rileQWordBoundary:
TBrushStyle = (...);

————————————————————————— Canvas is not the point here. It's just here for code that needs Canvas.Pixels access plus some basic stuff for testing.

Values
  • bsSolid:
  • bsClear:
TCanvas = TOPBitmapCanvas;
 
PColorEntry = ˆTColorEntry;
 
TReducibleNodes = array[0..7] of TOctreeNode;

Forward definition so TReducibleNodes can be declared

Konstanten

clBlack = TColor($000000);

Raw rgb values

clMaroon = TColor($000080);
 
clGreen = TColor($008000);
 
clOlive = TColor($008080);
 
clNavy = TColor($800000);
 
clPurple = TColor($800080);
 
clTeal = TColor($808000);
 
clGray = TColor($808080);
 
clSilver = TColor($C0C0C0);
 
clRed = TColor($0000FF);
 
clLime = TColor($00FF00);
 
clYellow = TColor($00FFFF);
 
clBlue = TColor($FF0000);
 
clFuchsia = TColor($FF00FF);
 
clAqua = TColor($FFFF00);
 
clLtGray = TColor($C0C0C0);
 
clDkGray = TColor($808080);
 
clWhite = TColor($FFFFFF);
 
clNone = TColor($1FFFFFFF);
 
clDefault = TColor($20000000);
 
StdColors: array[0..15] of TColor = ( clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);
 
AlphaOpaque = $FF;
 
AlphaTransparent = 0;
 
BWColors: array[0..1] of TColor = (clBlack, clWhite);
 
MaxArr = (MaxLongint div Sizeof(integer)) - 1;
 
TOPBitmapStreamSign = 'OPB';
 
TOPBitmapStreamVersion = 1;
 
CSpaceRedu = 3;
 

Variablen

WebColors: array[0..215] of TColor;
 
Gray256Colors: array[0..$FF] of TColor;

new 215

Überblick über Theos OpBitmap 0.1.5
Erstellt mit PasDoc 0.10.0 am 2007-03-27 19:20:31