Unit Graphics

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

Name Beschreibung
record TFontData  
packed record TTextStyle  
Klasse TGraphicsObject  
Klasse TFontHandleCacheDescriptor  
Klasse TFontHandleCache  
Klasse TFont  
record TPenData  
Klasse TPenHandleCache  
Klasse TPen  
record TBrushData  
Klasse TBrushHandleCache  
Klasse TBrush  
record TRegionData  
Klasse TRegion  
Klasse TGraphic  
Klasse TPicture  
Klasse EInvalidGraphic  
Klasse EInvalidGraphicOperation  
Klasse TCanvas  
Klasse TSharedImage  
Klasse TBitmapImage  
Klasse TBitmap  
Klasse TPixmap  
Klasse TFPImageBitmap  
Klasse TPortableNetworkGraphic  
Klasse TPortableAnyMapGraphic  
Klasse TIcon  
Klasse TCursorImage  

Funktionen und Prozeduren

function GraphicFilter(GraphicClass: TGraphicClass): string;
function GraphicExtension(GraphicClass: TGraphicClass): string;
function GraphicFileMask(GraphicClass: TGraphicClass): string;
function GetGraphicClassForFileExtension(const FileExt: string): TGraphicClass;
function GetFPImageReaderForFileExtension(const FileExt: string ): TFPCustomImageReaderClass;
function GetFPImageWriterForFileExtension(const FileExt: string ): TFPCustomImageWriterClass;
function IdentEntry(Entry: Longint; var MapEntry: TIdentMapEntry): boolean;
function ColorToIdent(Color: Longint; var Ident: String): Boolean;
function IdentToColor(const Ident: string; var Color: Longint): Boolean;
function SysColorToSysColorIndex(Color: TColor): integer;
function ColorToRGB(Color: TColor): TColor;
function ColorToString(Color: TColor): AnsiString;
function StringToColor(const S: shortstring): TColor;
procedure GetColorValues(Proc: TGetColorStringProc);
function InvertColor(AColor: TColor): TColor;
Function Blue(rgb: TColor): BYTE;
Function Green(rgb: TColor): BYTE;
Function Red(rgb: TColor): BYTE;
function RGBToColor(R, G, B: Byte): TColor;
procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte);
function FPColorToTColor(const FPColor: TFPColor): TColor;
function TColorToFPColor(const c: TColor): TFPColor;
procedure GetCharsetValues(Proc: TGetStrProc);
function CharsetToIdent(Charset: Longint; var Ident: string): Boolean;
function IdentToCharset(const Ident: string; var Charset: Longint): Boolean;
function GetDefFontCharSet: TFontCharSet;
function IsFontNameXLogicalFontDesc(const LongFontName: string): boolean;
function XLFDNameToLogFont(const XLFDName: string): TLogFont;
function ExtractXLFDItem(const XLFDName: string; Index: integer): string;
function ExtractFamilyFromXLFDName(const XLFDName: string): string;
function ClearXLFDItem(const LongFontName: string; Index: integer): string;
function ClearXLFDHeight(const LongFontName: string): string;
function ClearXLFDPitch(const LongFontName: string): string;
function ClearXLFDStyle(const LongFontName: string): string;
function XLFDHeightIsSet(const LongFontName: string): boolean;
procedure FontNameToPangoFontDescStr(const LongFontName: string; var aFamily,aStyle:String; var aSize: Integer);
function TestStreamBitmapNativeType(const AStream: TStream): TBitmapNativeType;
function TestStreamIsBMP(const AStream: TStream): boolean;
function TestStreamIsXPM(const AStream: TStream): boolean;
function TestStreamIsIcon(const AStream: TStream): boolean;
function TestStreamIsCursor(const AStream: TStream): boolean;
function XPMToPPChar(const XPM: string): PPChar;
function LazResourceXPMToPPChar(const ResourceName: string): PPChar;
function ReadXPMFromStream(Stream: TStream; Size: integer): PPChar;
function ReadXPMSize(XPM: PPChar; var Width, Height, ColorCount: integer ): boolean;
function LoadCursorFromLazarusResource(ACursorName: String): HCursor;
function DbgS(const Style: TFontStyles): string; overload;
procedure Register;

Typen

PColor = ˆTColor;
TColor = TGraphicsColor;
TFontPitch = (...);
TFontName = string;
TFontDataName = string[LF_FACESIZE -1];
TFontStyle = (...);
TFontStyles = set of TFontStyle;
TFontStylesbase = set of TFontStyle;
TFontCharSet = 0..255;
TTextLayout = (...);
TPenStyle = TFPPenStyle;
TPenMode = TFPPenMode;
TBrushStyle = TFPBrushStyle;
TFillStyle = TGraphicsFillStyle;
TFillMode = (...);
TCopymode = longint;
TCanvasStates = (...);
TCanvasState = set of TCanvasStates;
TCanvasOrientation = (...);
TProgressStage = (...);
TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string; var DoContinue: Boolean) of object;
TPixelFormat = (...);
TTransparentMode = (...);
TMappedColor = clActiveHighlightedText..clNormalForeground;
TColorGroup = (...);
TColorRole = (...);
TGraphicClass = class of TGraphic;
TBitmapNativeType = (...);
TBitmapNativeTypes = set of TBitmapNativeType;
TBitmapHandleType = (...);
TBitmapInternalStateFlag = (...);
TBitmapInternalState = set of TBitmapInternalStateFlag;
TGetColorStringProc = procedure(const s:ansistring) of object;
TOnLoadGraphicFromClipboardFormat = procedure(Dest: TGraphic; ClipboardType: TClipboardType; FormatID: TClipboardFormat);
TOnSaveGraphicToClipboardFormat = procedure(Src: TGraphic; ClipboardType: TClipboardType; FormatID: TClipboardFormat);

Konstanten

DefFontData: TFontData = ( Handle: 0; Height: 0; Pitch: fpDefault; Style: []; Charset: DEFAULT_CHARSET; Name: 'default' );
psSolid = FPCanvas.psSolid;
psDash = FPCanvas.psDash;
psDot = FPCanvas.psDot;
psDashDot = FPCanvas.psDashDot;
psDashDotDot = FPCanvas.psDashDotDot;
psClear = FPCanvas.psClear;
pmBlack = FPCanvas.pmBlack;
pmWhite = FPCanvas.pmWhite;
pmNop = FPCanvas.pmNop;
pmNot = FPCanvas.pmNot;
pmCopy = FPCanvas.pmCopy;
pmNotCopy = FPCanvas.pmNotCopy;
pmMergePenNot = FPCanvas.pmMergePenNot;
pmMaskPenNot = FPCanvas.pmMaskPenNot;
pmMergeNotPen = FPCanvas.pmMergeNotPen;
pmMaskNotPen = FPCanvas.pmMaskNotPen;
pmMerge = FPCanvas.pmMerge;
pmNotMerge = FPCanvas.pmNotMerge;
pmMask = FPCanvas.pmMask;
pmNotMask = FPCanvas.pmNotMask;
pmXor = FPCanvas.pmXor;
pmNotXor = FPCanvas.pmNotXor;
bsSolid = FPCanvas.bsSolid;
bsClear = FPCanvas.bsClear;
bsHorizontal = FPCanvas.bsHorizontal;
bsVertical = FPCanvas.bsVertical;
bsFDiagonal = FPCanvas.bsFDiagonal;
bsBDiagonal = FPCanvas.bsBDiagonal;
bsCross = FPCanvas.bsCross;
bsDiagCross = FPCanvas.bsDiagCross;
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);
clCream = TColor($F0FBFF);
clNone = TColor($1FFFFFFF);
clDefault = TColor($20000000);
clMoneyGreen = TColor($C0DCC0);
clSkyBlue = TColor($F0CAA6);
clMedGray = TColor($A4A0A0);
clScrollBar = TColor(SYS_COLOR_BASE or COLOR_SCROLLBAR);
clBackground = TColor(SYS_COLOR_BASE or COLOR_BACKGROUND);
clActiveCaption = TColor(SYS_COLOR_BASE or COLOR_ACTIVECAPTION);
clInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTION);
clMenu = TColor(SYS_COLOR_BASE or COLOR_MENU);
clWindow = TColor(SYS_COLOR_BASE or COLOR_WINDOW);
clWindowFrame = TColor(SYS_COLOR_BASE or COLOR_WINDOWFRAME);
clMenuText = TColor(SYS_COLOR_BASE or COLOR_MENUTEXT);
clWindowText = TColor(SYS_COLOR_BASE or COLOR_WINDOWTEXT);
clCaptionText = TColor(SYS_COLOR_BASE or COLOR_CAPTIONTEXT);
clActiveBorder = TColor(SYS_COLOR_BASE or COLOR_ACTIVEBORDER);
clInactiveBorder = TColor(SYS_COLOR_BASE or COLOR_INACTIVEBORDER);
clAppWorkspace = TColor(SYS_COLOR_BASE or COLOR_APPWORKSPACE);
clHighlight = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHT);
clHighlightText = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHTTEXT);
clBtnFace = TColor(SYS_COLOR_BASE or COLOR_BTNFACE);
clBtnShadow = TColor(SYS_COLOR_BASE or COLOR_BTNSHADOW);
clGrayText = TColor(SYS_COLOR_BASE or COLOR_GRAYTEXT);
clBtnText = TColor(SYS_COLOR_BASE or COLOR_BTNTEXT);
clInactiveCaptionText = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTIONTEXT);
clBtnHighlight = TColor(SYS_COLOR_BASE or COLOR_BTNHIGHLIGHT);
cl3DDkShadow = TColor(SYS_COLOR_BASE or COLOR_3DDKSHADOW);
cl3DLight = TColor(SYS_COLOR_BASE or COLOR_3DLIGHT);
clInfoText = TColor(SYS_COLOR_BASE or COLOR_INFOTEXT);
clInfoBk = TColor(SYS_COLOR_BASE or COLOR_INFOBK);
clHotLight = TColor(SYS_COLOR_BASE or COLOR_HOTLIGHT);
clGradientActiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTACTIVECAPTION);
clGradientInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTINACTIVECAPTION);
clForm = TColor(SYS_COLOR_BASE or COLOR_FORM);
clEndColors = TColor(SYS_COLOR_BASE or COLOR_ENDCOLORS);
clColorDesktop = TColor(SYS_COLOR_BASE or COLOR_DESKTOP);
cl3DFace = TColor(SYS_COLOR_BASE or COLOR_3DFACE);
cl3DShadow = TColor(SYS_COLOR_BASE or COLOR_3DSHADOW);
cl3DHiLight = TColor(SYS_COLOR_BASE or COLOR_3DHIGHLIGHT);
clBtnHiLight = TColor(SYS_COLOR_BASE or COLOR_BTNHILIGHT);
clFirstSpecialColor = clBtnHiLight;
clMask = clWhite;
clDontMask = clBlack;
clForeground = TColor(-1);
clButton = TColor(-2);
clLight = TColor(-3);
clMidlight = TColor(-4);
clDark = TColor(-5);
clMid = TColor(-6);
clText = TColor(-7);
clBrightText = TColor(-8);
clButtonText = TColor(-9);
clBase = TColor(-10);
clxBackground = TColor(-11);
clShadow = TColor(-12);
clxHighlight = TColor(-13);
clHighlightedText = TColor(-14);
cloNormal = 32;
cloDisabled = 64;
cloActive = 96;
clNormalForeground = TColor(clForeground - cloNormal);
clNormalButton = TColor(clButton - cloNormal);
clNormalLight = TColor(clLight - cloNormal);
clNormalMidlight = TColor(clMidlight - cloNormal);
clNormalDark = TColor(clDark - cloNormal);
clNormalMid = TColor(clMid - cloNormal);
clNormalText = TColor(clText - cloNormal);
clNormalBrightText = TColor(clBrightText - cloNormal);
clNormalButtonText = TColor(clButtonText - cloNormal);
clNormalBase = TColor(clBase - cloNormal);
clNormalBackground = TColor(clxBackground - cloNormal);
clNormalShadow = TColor(clShadow - cloNormal);
clNormalHighlight = TColor(clxHighlight - cloNormal);
clNormalHighlightedText = TColor(clHighlightedText - cloNormal);
clDisabledForeground = TColor(clForeground - cloDisabled);
clDisabledButton = TColor(clButton - cloDisabled);
clDisabledLight = TColor(clLight - cloDisabled);
clDisabledMidlight = TColor(clMidlight - cloDisabled);
clDisabledDark = TColor(clDark - cloDisabled);
clDisabledMid = TColor(clMid - cloDisabled);
clDisabledText = TColor(clText - cloDisabled);
clDisabledBrightText = TColor(clBrightText - cloDisabled);
clDisabledButtonText = TColor(clButtonText - cloDisabled);
clDisabledBase = TColor(clBase - cloDisabled);
clDisabledBackground = TColor(clxBackground - cloDisabled);
clDisabledShadow = TColor(clShadow - cloDisabled);
clDisabledHighlight = TColor(clxHighlight - cloDisabled);
clDisabledHighlightedText = TColor(clHighlightedText - cloDisabled);
clActiveForeground = TColor(clForeground - cloActive);
clActiveButton = TColor(clButton - cloActive);
clActiveLight = TColor(clLight - cloActive);
clActiveMidlight = TColor(clMidlight - cloActive);
clActiveDark = TColor(clDark - cloActive);
clActiveMid = TColor(clMid - cloActive);
clActiveText = TColor(clText - cloActive);
clActiveBrightText = TColor(clBrightText - cloActive);
clActiveButtonText = TColor(clButtonText - cloActive);
clActiveBase = TColor(clBase - cloActive);
clActiveBackground = TColor(clxBackground - cloActive);
clActiveShadow = TColor(clShadow - cloActive);
clActiveHighlight = TColor(clxHighlight - cloActive);
clActiveHighlightedText = TColor(clHighlightedText - cloActive);
cmBlackness = BLACKNESS;
cmDstInvert = DSTINVERT;
cmMergeCopy = MERGECOPY;
cmMergePaint = MERGEPAINT;
cmNotSrcCopy = NOTSRCCOPY;
cmNotSrcErase = NOTSRCERASE;
cmPatCopy = PATCOPY;
cmPatInvert = PATINVERT;
cmPatPaint = PATPAINT;
cmSrcAnd = SRCAND;
cmSrcCopy = SRCCOPY;
cmSrcErase = SRCERASE;
cmSrcInvert = SRCINVERT;
cmSrcPaint = SRCPAINT;
cmWhiteness = WHITENESS;
FontCharsets: array[0..18] of TIdentMapEntry = ( (Value: ANSI_CHARSET; Name: 'ANSI_CHARSET'), (Value: DEFAULT_CHARSET; Name: 'DEFAULT_CHARSET'), (Value: SYMBOL_CHARSET; Name: 'SYMBOL_CHARSET'), (Value: MAC_CHARSET; Name: 'MAC_CHARSET'), (Value: SHIFTJIS_CHARSET; Name: 'SHIFTJIS_CHARSET'), (Value: HANGEUL_CHARSET; Name: 'HANGEUL_CHARSET'), (Value: JOHAB_CHARSET; Name: 'JOHAB_CHARSET'), (Value: GB2312_CHARSET; Name: 'GB2312_CHARSET'), (Value: CHINESEBIG5_CHARSET; Name: 'CHINESEBIG5_CHARSET'), (Value: GREEK_CHARSET; Name: 'GREEK_CHARSET'), (Value: TURKISH_CHARSET; Name: 'TURKISH_CHARSET'), (Value: VIETNAMESE_CHARSET; Name: 'VIETNAMESE_CHARSET'), (Value: HEBREW_CHARSET; Name: 'HEBREW_CHARSET'), (Value: ARABIC_CHARSET; Name: 'ARABIC_CHARSET'), (Value: BALTIC_CHARSET; Name: 'BALTIC_CHARSET'), (Value: RUSSIAN_CHARSET; Name: 'RUSSIAN_CHARSET'), (Value: THAI_CHARSET; Name: 'THAI_CHARSET'), (Value: EASTEUROPE_CHARSET; Name: 'EASTEUROPE_CHARSET'), (Value: OEM_CHARSET; Name: 'OEM_CHARSET'));

Variablen

OnLoadSaveClipBrdGraphicValid: boolean = false;
OnLoadGraphicFromClipboardFormat: TOnLoadGraphicFromClipboardFormat=nil;
OnSaveGraphicToClipboardFormat: TOnSaveGraphicToClipboardFormat=nil;
ScreenInfo: TScreenInfo=(PixelsPerInchX:72;PixelsPerInchY:72; ColorDepth:24;Initialized:false;);
FontResourceCache: TFontHandleCache;
PenResourceCache: TPenHandleCache;
BrushResourceCache: TBrushHandleCache;

Beschreibung

Funktionen und Prozeduren

function GraphicFilter(GraphicClass: TGraphicClass): string;
 
function GraphicExtension(GraphicClass: TGraphicClass): string;
 
function GraphicFileMask(GraphicClass: TGraphicClass): string;
 
function GetGraphicClassForFileExtension(const FileExt: string): TGraphicClass;
 
function GetFPImageReaderForFileExtension(const FileExt: string ): TFPCustomImageReaderClass;
 
function GetFPImageWriterForFileExtension(const FileExt: string ): TFPCustomImageWriterClass;
 
function IdentEntry(Entry: Longint; var MapEntry: TIdentMapEntry): boolean;
 
function ColorToIdent(Color: Longint; var Ident: String): Boolean;
 
function IdentToColor(const Ident: string; var Color: Longint): Boolean;
 
function SysColorToSysColorIndex(Color: TColor): integer;
 
function ColorToRGB(Color: TColor): TColor;
 
function ColorToString(Color: TColor): AnsiString;
 
function StringToColor(const S: shortstring): TColor;
 
procedure GetColorValues(Proc: TGetColorStringProc);
 
function InvertColor(AColor: TColor): TColor;
 
Function Blue(rgb: TColor): BYTE;
 
Function Green(rgb: TColor): BYTE;
 
Function Red(rgb: TColor): BYTE;
 
function RGBToColor(R, G, B: Byte): TColor;
 
procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte);
 
function FPColorToTColor(const FPColor: TFPColor): TColor;
 
function TColorToFPColor(const c: TColor): TFPColor;
 
procedure GetCharsetValues(Proc: TGetStrProc);
 
function CharsetToIdent(Charset: Longint; var Ident: string): Boolean;
 
function IdentToCharset(const Ident: string; var Charset: Longint): Boolean;
 
function GetDefFontCharSet: TFontCharSet;
 
function IsFontNameXLogicalFontDesc(const LongFontName: string): boolean;
 
function XLFDNameToLogFont(const XLFDName: string): TLogFont;
 
function ExtractXLFDItem(const XLFDName: string; Index: integer): string;
 
function ExtractFamilyFromXLFDName(const XLFDName: string): string;
 
function ClearXLFDItem(const LongFontName: string; Index: integer): string;
 
function ClearXLFDHeight(const LongFontName: string): string;
 
function ClearXLFDPitch(const LongFontName: string): string;
 
function ClearXLFDStyle(const LongFontName: string): string;
 
function XLFDHeightIsSet(const LongFontName: string): boolean;
 
procedure FontNameToPangoFontDescStr(const LongFontName: string; var aFamily,aStyle:String; var aSize: Integer);
 
function TestStreamBitmapNativeType(const AStream: TStream): TBitmapNativeType;
 
function TestStreamIsBMP(const AStream: TStream): boolean;
 
function TestStreamIsXPM(const AStream: TStream): boolean;
 
function TestStreamIsIcon(const AStream: TStream): boolean;
 
function TestStreamIsCursor(const AStream: TStream): boolean;
 
function XPMToPPChar(const XPM: string): PPChar;
 
function LazResourceXPMToPPChar(const ResourceName: string): PPChar;
 
function ReadXPMFromStream(Stream: TStream; Size: integer): PPChar;
 
function ReadXPMSize(XPM: PPChar; var Width, Height, ColorCount: integer ): boolean;
 
function LoadCursorFromLazarusResource(ACursorName: String): HCursor;
 
function DbgS(const Style: TFontStyles): string; overload;
 
procedure Register;
 

Typen

PColor = ˆTColor;
 
TColor = TGraphicsColor;
 
TFontPitch = (...);
 
Values
  • fpDefault:
  • fpVariable:
  • fpFixed:
TFontName = string;
 
TFontDataName = string[LF_FACESIZE -1];
 
TFontStyle = (...);
 
Values
  • fsBold:
  • fsItalic:
  • fsStrikeOut:
  • fsUnderline:
TFontStyles = set of TFontStyle;
 
TFontStylesbase = set of TFontStyle;
 
TFontCharSet = 0..255;
 
TTextLayout = (...);
 
Values
  • tlTop:
  • tlCenter:
  • tlBottom:
TPenStyle = TFPPenStyle;
 
TPenMode = TFPPenMode;
 
TBrushStyle = TFPBrushStyle;
 
TFillStyle = TGraphicsFillStyle;
 
TFillMode = (...);
 
Values
  • fmAlternate:
  • fmWinding:
TCopymode = longint;
 
TCanvasStates = (...);
 
Values
  • csHandleValid:
  • csFontValid:
  • csPenvalid:
  • csBrushValid:
  • csRegionValid:
TCanvasState = set of TCanvasStates;
 
TCanvasOrientation = (...);
 
Values
  • csLefttoRight:
  • coRighttoLeft:
TProgressStage = (...);
 
Values
  • psStarting:
  • psRunning:
  • psEnding:
TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string; var DoContinue: Boolean) of object;
 
TPixelFormat = (...);
 
Values
  • pfDevice:
  • pf1bit:
  • pf4bit:
  • pf8bit:
  • pf15bit:
  • pf16bit:
  • pf24bit:
  • pf32bit:
  • pfCustom:
TTransparentMode = (...);
 
Values
  • tmAuto:
  • tmFixed:
TMappedColor = clActiveHighlightedText..clNormalForeground;
 
TColorGroup = (...);
 
Values
  • cgInactive:
  • cgDisabled:
  • cgActive:
TColorRole = (...);
 
Values
  • crForeground:
  • crButton:
  • crLight:
  • crMidlight:
  • crDark:
  • crMid:
  • crText:
  • crBrightText:
  • crButtonText:
  • crBase:
  • crBackground:
  • crShadow:
  • crHighlight:
  • crHighlightText:
  • crNoRole:
TGraphicClass = class of TGraphic;
 
TBitmapNativeType = (...);
 
Values
  • bnNone:
  • bnWinBitmap:
  • bnXPixmap:
  • bnIcon:
  • bnCursor:
TBitmapNativeTypes = set of TBitmapNativeType;
 
TBitmapHandleType = (...);
 
Values
  • bmDIB:
  • bmDDB:
TBitmapInternalStateFlag = (...);
 
Values
  • bmisCreatingCanvas:
TBitmapInternalState = set of TBitmapInternalStateFlag;
 
TGetColorStringProc = procedure(const s:ansistring) of object;
 
TOnLoadGraphicFromClipboardFormat = procedure(Dest: TGraphic; ClipboardType: TClipboardType; FormatID: TClipboardFormat);
 
TOnSaveGraphicToClipboardFormat = procedure(Src: TGraphic; ClipboardType: TClipboardType; FormatID: TClipboardFormat);
 

Konstanten

DefFontData: TFontData = ( Handle: 0; Height: 0; Pitch: fpDefault; Style: []; Charset: DEFAULT_CHARSET; Name: 'default' );
 
psSolid = FPCanvas.psSolid;
 
psDash = FPCanvas.psDash;
 
psDot = FPCanvas.psDot;
 
psDashDot = FPCanvas.psDashDot;
 
psDashDotDot = FPCanvas.psDashDotDot;
 
psClear = FPCanvas.psClear;
 
pmBlack = FPCanvas.pmBlack;
 
pmWhite = FPCanvas.pmWhite;
 
pmNop = FPCanvas.pmNop;
 
pmNot = FPCanvas.pmNot;
 
pmCopy = FPCanvas.pmCopy;
 
pmNotCopy = FPCanvas.pmNotCopy;
 
pmMergePenNot = FPCanvas.pmMergePenNot;
 
pmMaskPenNot = FPCanvas.pmMaskPenNot;
 
pmMergeNotPen = FPCanvas.pmMergeNotPen;
 
pmMaskNotPen = FPCanvas.pmMaskNotPen;
 
pmMerge = FPCanvas.pmMerge;
 
pmNotMerge = FPCanvas.pmNotMerge;
 
pmMask = FPCanvas.pmMask;
 
pmNotMask = FPCanvas.pmNotMask;
 
pmXor = FPCanvas.pmXor;
 
pmNotXor = FPCanvas.pmNotXor;
 
bsSolid = FPCanvas.bsSolid;
 
bsClear = FPCanvas.bsClear;
 
bsHorizontal = FPCanvas.bsHorizontal;
 
bsVertical = FPCanvas.bsVertical;
 
bsFDiagonal = FPCanvas.bsFDiagonal;
 
bsBDiagonal = FPCanvas.bsBDiagonal;
 
bsCross = FPCanvas.bsCross;
 
bsDiagCross = FPCanvas.bsDiagCross;
 
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);
 
clCream = TColor($F0FBFF);
 
clNone = TColor($1FFFFFFF);
 
clDefault = TColor($20000000);
 
clMoneyGreen = TColor($C0DCC0);
 
clSkyBlue = TColor($F0CAA6);
 
clMedGray = TColor($A4A0A0);
 
clScrollBar = TColor(SYS_COLOR_BASE or COLOR_SCROLLBAR);
 
clBackground = TColor(SYS_COLOR_BASE or COLOR_BACKGROUND);
 
clActiveCaption = TColor(SYS_COLOR_BASE or COLOR_ACTIVECAPTION);
 
clInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTION);
 
clMenu = TColor(SYS_COLOR_BASE or COLOR_MENU);
 
clWindow = TColor(SYS_COLOR_BASE or COLOR_WINDOW);
 
clWindowFrame = TColor(SYS_COLOR_BASE or COLOR_WINDOWFRAME);
 
clMenuText = TColor(SYS_COLOR_BASE or COLOR_MENUTEXT);
 
clWindowText = TColor(SYS_COLOR_BASE or COLOR_WINDOWTEXT);
 
clCaptionText = TColor(SYS_COLOR_BASE or COLOR_CAPTIONTEXT);
 
clActiveBorder = TColor(SYS_COLOR_BASE or COLOR_ACTIVEBORDER);
 
clInactiveBorder = TColor(SYS_COLOR_BASE or COLOR_INACTIVEBORDER);
 
clAppWorkspace = TColor(SYS_COLOR_BASE or COLOR_APPWORKSPACE);
 
clHighlight = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHT);
 
clHighlightText = TColor(SYS_COLOR_BASE or COLOR_HIGHLIGHTTEXT);
 
clBtnFace = TColor(SYS_COLOR_BASE or COLOR_BTNFACE);
 
clBtnShadow = TColor(SYS_COLOR_BASE or COLOR_BTNSHADOW);
 
clGrayText = TColor(SYS_COLOR_BASE or COLOR_GRAYTEXT);
 
clBtnText = TColor(SYS_COLOR_BASE or COLOR_BTNTEXT);
 
clInactiveCaptionText = TColor(SYS_COLOR_BASE or COLOR_INACTIVECAPTIONTEXT);
 
clBtnHighlight = TColor(SYS_COLOR_BASE or COLOR_BTNHIGHLIGHT);
 
cl3DDkShadow = TColor(SYS_COLOR_BASE or COLOR_3DDKSHADOW);
 
cl3DLight = TColor(SYS_COLOR_BASE or COLOR_3DLIGHT);
 
clInfoText = TColor(SYS_COLOR_BASE or COLOR_INFOTEXT);
 
clInfoBk = TColor(SYS_COLOR_BASE or COLOR_INFOBK);
 
clHotLight = TColor(SYS_COLOR_BASE or COLOR_HOTLIGHT);
 
clGradientActiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTACTIVECAPTION);
 
clGradientInactiveCaption = TColor(SYS_COLOR_BASE or COLOR_GRADIENTINACTIVECAPTION);
 
clForm = TColor(SYS_COLOR_BASE or COLOR_FORM);
 
clEndColors = TColor(SYS_COLOR_BASE or COLOR_ENDCOLORS);
 
clColorDesktop = TColor(SYS_COLOR_BASE or COLOR_DESKTOP);
 
cl3DFace = TColor(SYS_COLOR_BASE or COLOR_3DFACE);
 
cl3DShadow = TColor(SYS_COLOR_BASE or COLOR_3DSHADOW);
 
cl3DHiLight = TColor(SYS_COLOR_BASE or COLOR_3DHIGHLIGHT);
 
clBtnHiLight = TColor(SYS_COLOR_BASE or COLOR_BTNHILIGHT);
 
clFirstSpecialColor = clBtnHiLight;
 
clMask = clWhite;
 
clDontMask = clBlack;
 
clForeground = TColor(-1);
 
clButton = TColor(-2);
 
clLight = TColor(-3);
 
clMidlight = TColor(-4);
 
clDark = TColor(-5);
 
clMid = TColor(-6);
 
clText = TColor(-7);
 
clBrightText = TColor(-8);
 
clButtonText = TColor(-9);
 
clBase = TColor(-10);
 
clxBackground = TColor(-11);
 
clShadow = TColor(-12);
 
clxHighlight = TColor(-13);
 
clHighlightedText = TColor(-14);
 
cloNormal = 32;
 
cloDisabled = 64;
 
cloActive = 96;
 
clNormalForeground = TColor(clForeground - cloNormal);
 
clNormalButton = TColor(clButton - cloNormal);
 
clNormalLight = TColor(clLight - cloNormal);
 
clNormalMidlight = TColor(clMidlight - cloNormal);
 
clNormalDark = TColor(clDark - cloNormal);
 
clNormalMid = TColor(clMid - cloNormal);
 
clNormalText = TColor(clText - cloNormal);
 
clNormalBrightText = TColor(clBrightText - cloNormal);
 
clNormalButtonText = TColor(clButtonText - cloNormal);
 
clNormalBase = TColor(clBase - cloNormal);
 
clNormalBackground = TColor(clxBackground - cloNormal);
 
clNormalShadow = TColor(clShadow - cloNormal);
 
clNormalHighlight = TColor(clxHighlight - cloNormal);
 
clNormalHighlightedText = TColor(clHighlightedText - cloNormal);
 
clDisabledForeground = TColor(clForeground - cloDisabled);
 
clDisabledButton = TColor(clButton - cloDisabled);
 
clDisabledLight = TColor(clLight - cloDisabled);
 
clDisabledMidlight = TColor(clMidlight - cloDisabled);
 
clDisabledDark = TColor(clDark - cloDisabled);
 
clDisabledMid = TColor(clMid - cloDisabled);
 
clDisabledText = TColor(clText - cloDisabled);
 
clDisabledBrightText = TColor(clBrightText - cloDisabled);
 
clDisabledButtonText = TColor(clButtonText - cloDisabled);
 
clDisabledBase = TColor(clBase - cloDisabled);
 
clDisabledBackground = TColor(clxBackground - cloDisabled);
 
clDisabledShadow = TColor(clShadow - cloDisabled);
 
clDisabledHighlight = TColor(clxHighlight - cloDisabled);
 
clDisabledHighlightedText = TColor(clHighlightedText - cloDisabled);
 
clActiveForeground = TColor(clForeground - cloActive);
 
clActiveButton = TColor(clButton - cloActive);
 
clActiveLight = TColor(clLight - cloActive);
 
clActiveMidlight = TColor(clMidlight - cloActive);
 
clActiveDark = TColor(clDark - cloActive);
 
clActiveMid = TColor(clMid - cloActive);
 
clActiveText = TColor(clText - cloActive);
 
clActiveBrightText = TColor(clBrightText - cloActive);
 
clActiveButtonText = TColor(clButtonText - cloActive);
 
clActiveBase = TColor(clBase - cloActive);
 
clActiveBackground = TColor(clxBackground - cloActive);
 
clActiveShadow = TColor(clShadow - cloActive);
 
clActiveHighlight = TColor(clxHighlight - cloActive);
 
clActiveHighlightedText = TColor(clHighlightedText - cloActive);
 
cmBlackness = BLACKNESS;
 
cmDstInvert = DSTINVERT;
 
cmMergeCopy = MERGECOPY;
 
cmMergePaint = MERGEPAINT;
 
cmNotSrcCopy = NOTSRCCOPY;
 
cmNotSrcErase = NOTSRCERASE;
 
cmPatCopy = PATCOPY;
 
cmPatInvert = PATINVERT;
 
cmPatPaint = PATPAINT;
 
cmSrcAnd = SRCAND;
 
cmSrcCopy = SRCCOPY;
 
cmSrcErase = SRCERASE;
 
cmSrcInvert = SRCINVERT;
 
cmSrcPaint = SRCPAINT;
 
cmWhiteness = WHITENESS;
 
FontCharsets: array[0..18] of TIdentMapEntry = ( (Value: ANSI_CHARSET; Name: 'ANSI_CHARSET'), (Value: DEFAULT_CHARSET; Name: 'DEFAULT_CHARSET'), (Value: SYMBOL_CHARSET; Name: 'SYMBOL_CHARSET'), (Value: MAC_CHARSET; Name: 'MAC_CHARSET'), (Value: SHIFTJIS_CHARSET; Name: 'SHIFTJIS_CHARSET'), (Value: HANGEUL_CHARSET; Name: 'HANGEUL_CHARSET'), (Value: JOHAB_CHARSET; Name: 'JOHAB_CHARSET'), (Value: GB2312_CHARSET; Name: 'GB2312_CHARSET'), (Value: CHINESEBIG5_CHARSET; Name: 'CHINESEBIG5_CHARSET'), (Value: GREEK_CHARSET; Name: 'GREEK_CHARSET'), (Value: TURKISH_CHARSET; Name: 'TURKISH_CHARSET'), (Value: VIETNAMESE_CHARSET; Name: 'VIETNAMESE_CHARSET'), (Value: HEBREW_CHARSET; Name: 'HEBREW_CHARSET'), (Value: ARABIC_CHARSET; Name: 'ARABIC_CHARSET'), (Value: BALTIC_CHARSET; Name: 'BALTIC_CHARSET'), (Value: RUSSIAN_CHARSET; Name: 'RUSSIAN_CHARSET'), (Value: THAI_CHARSET; Name: 'THAI_CHARSET'), (Value: EASTEUROPE_CHARSET; Name: 'EASTEUROPE_CHARSET'), (Value: OEM_CHARSET; Name: 'OEM_CHARSET'));
 

Variablen

OnLoadSaveClipBrdGraphicValid: boolean = false;
 
OnLoadGraphicFromClipboardFormat: TOnLoadGraphicFromClipboardFormat=nil;
 
OnSaveGraphicToClipboardFormat: TOnSaveGraphicToClipboardFormat=nil;
 
ScreenInfo: TScreenInfo=(PixelsPerInchX:72;PixelsPerInchY:72; ColorDepth:24;Initialized:false;);
 
FontResourceCache: TFontHandleCache;
 
PenResourceCache: TPenHandleCache;
 
BrushResourceCache: TBrushHandleCache;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:58