Unit fpimage

Description
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants
Variables

Description

This item has no description.

Overview

Classes, Interfaces, Objects and Records

Name Description
Class FPImageException  
Record TFPColor  
Record TDeviceColor  
Class TFPPalette  
Class TFPCustomImage  
Class TFPMemoryImage  
Class TFPCustomImageHandler  
Class TFPCustomImageReader  
Class TFPCustomImageWriter  
Class TIHData  
Class TImageHandlersManager  
Record TGrayConvMatrix  
Record TFPCompactImgDesc  
Class TFPCompactImgBase  
Class TFPCompactImgGray16Bit  
Packed Record TFPCompactImgGrayAlpha16BitValue  
Class TFPCompactImgGrayAlpha16Bit  
Class TFPCompactImgGray8Bit  
Packed Record TFPCompactImgGrayAlpha8BitValue  
Class TFPCompactImgGrayAlpha8Bit  
Packed Record TFPCompactImgRGBA8BitValue  
Class TFPCompactImgRGBA8Bit  
Packed Record TFPCompactImgRGB8BitValue  
Class TFPCompactImgRGB8Bit  
Packed Record TFPCompactImgRGB16BitValue  
Class TFPCompactImgRGB16Bit  
Class TFPCompactImgRGBA16Bit  

Functions and Procedures

function CalculateGray(const From : TFPColor) : word;
function AlphaBlend(color1, color2: TFPColor): TFPColor;
function FPColor(r,g,b,a:word) : TFPColor; overload;
function FPColor(r,g,b:word) : TFPColor; overload;
function col_equ(const c,d:TFPColor) : boolean;
function col_or(const c,d:TFPColor) : TFPColor;
function col_and(const c,d:TFPColor) : TFPColor;
function col_xor(const c,d:TFPColor) : TFPColor;
function CompareColors(const Color1, Color2: TFPColor): integer;
function CreateBlackAndWhitePalette: TFPPalette;
function CreateWebSafePalette: TFPPalette;
function CreateGrayScalePalette: TFPPalette;
function CreateVGAPalette: TFPPalette;
function GetFPCompactImgDesc(Gray: boolean; Depth: word; HasAlpha: boolean): TFPCompactImgDesc;
function GetFPCompactImgClass(const Desc: TFPCompactImgDesc): TFPCompactImgBaseClass;
function CreateFPCompactImg(const Desc: TFPCompactImgDesc; Width, Height: integer): TFPCustomImage;
function CreateCompatibleFPCompactImg(Img: TFPCustomImage; Width, Height: integer ): TFPCustomImage;
function CreateCompatibleFPCompactImgWithAlpha(Img: TFPCustomImage; Width, Height: integer): TFPCustomImage;
function GetMinimumPTDesc(Img: TFPCustomImage; FuzzyDepth: word = 4): TFPCompactImgDesc;
function GetMinimumFPCompactImg(Img: TFPCustomImage; FreeImg: boolean; FuzzyDepth: word = 4): TFPCustomImage;

Types

PFPColor = ˆTFPColor;
FPColoraty = array[0..0] of TFPColor;
pFPColoraty = ˆFPColoraty;
TColorFormat = (...);
TColorData = qword;
PColorData = ˆTColorData;
TFPColorArray = array [0..(maxint-1) div sizeof(TFPColor)-1] of TFPColor;
PFPColorArray = ˆTFPColorArray;
TFPImgProgressStage = (...);
TFPImgProgressEvent = procedure (Sender: TObject; Stage: TFPImgProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: AnsiString; var Continue : Boolean) of object;
TProgressStage = TFPImgProgressStage;
TProgressEvent = TFPImgProgressEvent;
TFPCustomImageClass = class of TFPCustomImage;
TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)-1] of integer;
PFPIntegerArray = ˆTFPIntegerArray;
TFPCustomImageReaderClass = class of TFPCustomImageReader;
TFPCustomImageWriterClass = class of TFPCustomImageWriter;
TErrorTextIndices = (...);
TFPCompactImgBaseClass = class of TFPCompactImgBase;
PFPCompactImgGrayAlpha16BitValue = ˆTFPCompactImgGrayAlpha16BitValue;
FPCompactImgGrayAlpha16BitValueaty = array[0..0] of TFPCompactImgGrayAlpha16BitValue;
pFPCompactImgGrayAlpha16BitValueaty = ˆFPCompactImgGrayAlpha16BitValueaty;
PFPCompactImgGrayAlpha8BitValue = ˆTFPCompactImgGrayAlpha8BitValue;
FPCompactImgGrayAlpha8BitValueaty = array[0..0] of TFPCompactImgGrayAlpha8BitValue;
pFPCompactImgGrayAlpha8BitValueaty = ˆFPCompactImgGrayAlpha8BitValueaty;
PFPCompactImgRGBA8BitValue = ˆTFPCompactImgRGBA8BitValue;
FPCompactImgRGBA8BitValueaty = array of TFPCompactImgRGBA8BitValue;
pFPCompactImgRGBA8BitValueaty = ˆFPCompactImgRGBA8BitValueaty;
PFPCompactImgRGB8BitValue = ˆTFPCompactImgRGB8BitValue;
FPCompactImgRGB8BitValueaty = array[0..0] of TFPCompactImgRGB8BitValue;
pFPCompactImgRGB8BitValueaty = ˆFPCompactImgRGB8BitValueaty;
PFPCompactImgRGB16BitValue = ˆTFPCompactImgRGB16BitValue;
FPCompactImgRGB16BitValueaty = array[0..0] of TFPCompactImgRGB16BitValue;
pFPCompactImgRGB16BitValueaty = ˆFPCompactImgRGB16BitValueaty;

Constants

ErrorText : array[TErrorTextIndices] of string = ('Invalid %s index %d', 'No image to write', 'File "%s" does not exist', 'No stream to write to', 'palette', 'horizontal pixel', 'vertical pixel', 'extra', 'Image type "%s" already exists', 'Image type "%s" already has a reader class', 'Image type "%s" already has a writer class', 'Error while determining image type of stream: %s', 'Can''t determine image type of stream', 'Error while reading stream: %s', 'Error while writing stream: %s', 'No palette available' );
BytesNeeded : array[TColorFormat] of byte = (1,1,1,1,2,3,1,2,4,2,2,3,4,6,1,2,4,8,2,2,3,4,6,1,2,4,8);
alphaTransparent = $0000;
alphaOpaque = $FFFF;
colTransparent: TFPColor = (Red: $0000; Green: $0000; Blue: $0000; Alpha: alphaTransparent);
colBlack : TFPColor = (Red: $0000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);
colBlue : TFPColor = (Red: $0000; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);
colGreen : TFPColor = (Red: $0000; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);
colCyan : TFPColor = (Red: $0000; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);
colRed : TFPColor = (Red: $ffff; Green: $0000; Blue: $0000; Alpha: alphaOpaque);
colMagenta : TFPColor = (Red: $ffff; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);
colYellow : TFPColor = (Red: $ffff; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);
colWhite : TFPColor = (Red: $ffff; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);
colGray : TFPColor = (Red: $8000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);
colLtGray : TFPColor = (Red: $c000; Green: $c000; Blue: $c000; Alpha: alphaOpaque);
colDkGray : TFPColor = (Red: $4000; Green: $4000; Blue: $4000; Alpha: alphaOpaque);
colDkBlue : TFPColor = (Red: $0000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);
colDkGreen : TFPColor = (Red: $0000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);
colDkCyan : TFPColor = (Red: $0000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);
colDkRed : TFPColor = (Red: $8000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);
colDkMagenta : TFPColor = (Red: $8000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);
colDkYellow : TFPColor = (Red: $8000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);
colMaroon : TFPColor = (Red: $8000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);
colLtGreen : TFPColor = (Red: $0000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);
colOlive : TFPColor = (Red: $8000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);
colNavy : TFPColor = (Red: $0000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);
colPurple : TFPColor = (Red: $8000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);
colTeal : TFPColor = (Red: $0000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);
colSilver : TFPColor = (Red: $c000; Green: $c000; Blue: $c000; Alpha: alphaOpaque);
colLime : TFPColor = (Red: $0000; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);
colFuchsia : TFPColor = (Red: $ffff; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);
colAqua : TFPColor = (Red: $0000; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);
GCM_NTSC : TGrayConvMatrix = (red:0.299; green:0.587; blue:0.114);
GCM_JPEG : TGrayConvMatrix = (red:0.299; green:0.587; blue:0.114);
GCM_Mathematical : TGrayConvMatrix = (red:0.334; green:0.333; blue:0.333);
GCM_Photoshop : TGrayConvMatrix = (red:0.213; green:0.715; blue:0.072);

Variables

ImageHandlers: TImageHandlersManager;
GrayConvMatrix: TGrayConvMatrix;

Description

Functions and Procedures

function CalculateGray(const From : TFPColor) : word;

This item has no description.

function AlphaBlend(color1, color2: TFPColor): TFPColor;

This item has no description.

function FPColor(r,g,b,a:word) : TFPColor; overload;

This item has no description.

function FPColor(r,g,b:word) : TFPColor; overload;

This item has no description.

function col_equ(const c,d:TFPColor) : boolean;

This item has no description.

function col_or(const c,d:TFPColor) : TFPColor;

This item has no description.

function col_and(const c,d:TFPColor) : TFPColor;

This item has no description.

function col_xor(const c,d:TFPColor) : TFPColor;

This item has no description.

function CompareColors(const Color1, Color2: TFPColor): integer;

This item has no description.

function CreateBlackAndWhitePalette: TFPPalette;

This item has no description.

function CreateWebSafePalette: TFPPalette;

This item has no description.

function CreateGrayScalePalette: TFPPalette;

This item has no description.

function CreateVGAPalette: TFPPalette;

This item has no description.

function GetFPCompactImgDesc(Gray: boolean; Depth: word; HasAlpha: boolean): TFPCompactImgDesc;

This item has no description.

function GetFPCompactImgClass(const Desc: TFPCompactImgDesc): TFPCompactImgBaseClass;

This item has no description.

function CreateFPCompactImg(const Desc: TFPCompactImgDesc; Width, Height: integer): TFPCustomImage;

This item has no description.

function CreateCompatibleFPCompactImg(Img: TFPCustomImage; Width, Height: integer ): TFPCustomImage;

This item has no description.

function CreateCompatibleFPCompactImgWithAlpha(Img: TFPCustomImage; Width, Height: integer): TFPCustomImage;

This item has no description.

function GetMinimumPTDesc(Img: TFPCustomImage; FuzzyDepth: word = 4): TFPCompactImgDesc;

This item has no description.

function GetMinimumFPCompactImg(Img: TFPCustomImage; FreeImg: boolean; FuzzyDepth: word = 4): TFPCustomImage;

This item has no description.

Types

PFPColor = ˆTFPColor;

This item has no description.

FPColoraty = array[0..0] of TFPColor;

This item has no description.

pFPColoraty = ˆFPColoraty;

This item has no description.

TColorFormat = (...);

This item has no description.

Values
  • cfMono
  • cfGray2
  • cfGray4
  • cfGray8
  • cfGray16
  • cfGray24
  • cfGrayA8
  • cfGrayA16
  • cfGrayA32
  • cfRGB15
  • cfRGB16
  • cfRGB24
  • cfRGB32
  • cfRGB48
  • cfRGBA8
  • cfRGBA16
  • cfRGBA32
  • cfRGBA64
  • cfBGR15
  • cfBGR16
  • cfBGR24
  • cfBGR32
  • cfBGR48
  • cfABGR8
  • cfABGR16
  • cfABGR32
  • cfABGR64
TColorData = qword;

This item has no description.

PColorData = ˆTColorData;

This item has no description.

TFPColorArray = array [0..(maxint-1) div sizeof(TFPColor)-1] of TFPColor;

This item has no description.

PFPColorArray = ˆTFPColorArray;

This item has no description.

TFPImgProgressStage = (...);

This item has no description.

Values
  • psStarting
  • psRunning
  • psEnding
TFPImgProgressEvent = procedure (Sender: TObject; Stage: TFPImgProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: AnsiString; var Continue : Boolean) of object;

This item has no description.

TProgressStage = TFPImgProgressStage;

This item has no description.

TProgressEvent = TFPImgProgressEvent;

This item has no description.

TFPCustomImageClass = class of TFPCustomImage;

This item has no description.

TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)-1] of integer;

This item has no description.

PFPIntegerArray = ˆTFPIntegerArray;

This item has no description.

TFPCustomImageReaderClass = class of TFPCustomImageReader;

This item has no description.

TFPCustomImageWriterClass = class of TFPCustomImageWriter;

This item has no description.

TErrorTextIndices = (...);

This item has no description.

Values
  • StrInvalidIndex
  • StrNoImageToWrite
  • StrNoFile
  • StrNoStream
  • StrPalette
  • StrImageX
  • StrImageY
  • StrImageExtra
  • StrTypeAlreadyExist
  • StrTypeReaderAlreadyExist
  • StrTypeWriterAlreadyExist
  • StrCantDetermineType
  • StrNoCorrectReaderFound
  • StrReadWithError
  • StrWriteWithError
  • StrNoPaletteAvailable
TFPCompactImgBaseClass = class of TFPCompactImgBase;

This item has no description.

PFPCompactImgGrayAlpha16BitValue = ˆTFPCompactImgGrayAlpha16BitValue;

This item has no description.

FPCompactImgGrayAlpha16BitValueaty = array[0..0] of TFPCompactImgGrayAlpha16BitValue;

This item has no description.

pFPCompactImgGrayAlpha16BitValueaty = ˆFPCompactImgGrayAlpha16BitValueaty;

This item has no description.

PFPCompactImgGrayAlpha8BitValue = ˆTFPCompactImgGrayAlpha8BitValue;

This item has no description.

FPCompactImgGrayAlpha8BitValueaty = array[0..0] of TFPCompactImgGrayAlpha8BitValue;

This item has no description.

pFPCompactImgGrayAlpha8BitValueaty = ˆFPCompactImgGrayAlpha8BitValueaty;

This item has no description.

PFPCompactImgRGBA8BitValue = ˆTFPCompactImgRGBA8BitValue;

This item has no description.

FPCompactImgRGBA8BitValueaty = array of TFPCompactImgRGBA8BitValue;

This item has no description.

pFPCompactImgRGBA8BitValueaty = ˆFPCompactImgRGBA8BitValueaty;

This item has no description.

PFPCompactImgRGB8BitValue = ˆTFPCompactImgRGB8BitValue;

This item has no description.

FPCompactImgRGB8BitValueaty = array[0..0] of TFPCompactImgRGB8BitValue;

This item has no description.

pFPCompactImgRGB8BitValueaty = ˆFPCompactImgRGB8BitValueaty;

This item has no description.

PFPCompactImgRGB16BitValue = ˆTFPCompactImgRGB16BitValue;

This item has no description.

FPCompactImgRGB16BitValueaty = array[0..0] of TFPCompactImgRGB16BitValue;

This item has no description.

pFPCompactImgRGB16BitValueaty = ˆFPCompactImgRGB16BitValueaty;

This item has no description.

Constants

ErrorText : array[TErrorTextIndices] of string = ('Invalid %s index %d', 'No image to write', 'File "%s" does not exist', 'No stream to write to', 'palette', 'horizontal pixel', 'vertical pixel', 'extra', 'Image type "%s" already exists', 'Image type "%s" already has a reader class', 'Image type "%s" already has a writer class', 'Error while determining image type of stream: %s', 'Can''t determine image type of stream', 'Error while reading stream: %s', 'Error while writing stream: %s', 'No palette available' );

This item has no description.

BytesNeeded : array[TColorFormat] of byte = (1,1,1,1,2,3,1,2,4,2,2,3,4,6,1,2,4,8,2,2,3,4,6,1,2,4,8);

This item has no description.

alphaTransparent = $0000;

This item has no description.

alphaOpaque = $FFFF;

This item has no description.

colTransparent: TFPColor = (Red: $0000; Green: $0000; Blue: $0000; Alpha: alphaTransparent);

This item has no description.

colBlack : TFPColor = (Red: $0000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colBlue : TFPColor = (Red: $0000; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

colGreen : TFPColor = (Red: $0000; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colCyan : TFPColor = (Red: $0000; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

colRed : TFPColor = (Red: $ffff; Green: $0000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colMagenta : TFPColor = (Red: $ffff; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

colYellow : TFPColor = (Red: $ffff; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colWhite : TFPColor = (Red: $ffff; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

colGray : TFPColor = (Red: $8000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colLtGray : TFPColor = (Red: $c000; Green: $c000; Blue: $c000; Alpha: alphaOpaque);

This item has no description.

colDkGray : TFPColor = (Red: $4000; Green: $4000; Blue: $4000; Alpha: alphaOpaque);

This item has no description.

colDkBlue : TFPColor = (Red: $0000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colDkGreen : TFPColor = (Red: $0000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colDkCyan : TFPColor = (Red: $0000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colDkRed : TFPColor = (Red: $8000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colDkMagenta : TFPColor = (Red: $8000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colDkYellow : TFPColor = (Red: $8000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colMaroon : TFPColor = (Red: $8000; Green: $0000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colLtGreen : TFPColor = (Red: $0000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colOlive : TFPColor = (Red: $8000; Green: $8000; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colNavy : TFPColor = (Red: $0000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colPurple : TFPColor = (Red: $8000; Green: $0000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colTeal : TFPColor = (Red: $0000; Green: $8000; Blue: $8000; Alpha: alphaOpaque);

This item has no description.

colSilver : TFPColor = (Red: $c000; Green: $c000; Blue: $c000; Alpha: alphaOpaque);

This item has no description.

colLime : TFPColor = (Red: $0000; Green: $ffff; Blue: $0000; Alpha: alphaOpaque);

This item has no description.

colFuchsia : TFPColor = (Red: $ffff; Green: $0000; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

colAqua : TFPColor = (Red: $0000; Green: $ffff; Blue: $ffff; Alpha: alphaOpaque);

This item has no description.

GCM_NTSC : TGrayConvMatrix = (red:0.299; green:0.587; blue:0.114);

This item has no description.

GCM_JPEG : TGrayConvMatrix = (red:0.299; green:0.587; blue:0.114);

This item has no description.

GCM_Mathematical : TGrayConvMatrix = (red:0.334; green:0.333; blue:0.333);

This item has no description.

GCM_Photoshop : TGrayConvMatrix = (red:0.213; green:0.715; blue:0.072);

This item has no description.

Variables

ImageHandlers: TImageHandlersManager;

This item has no description.

GrayConvMatrix: TGrayConvMatrix;

This item has no description.

Generated by PasDoc 0.17.0.snapshot.