Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
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 |
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; |
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); |
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')); |
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; |
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; |
PColor = ˆTColor; |
TColor = TGraphicsColor; |
TFontPitch = (...); |
Values
|
TFontName = string; |
TFontDataName = string[LF_FACESIZE -1]; |
TFontStyle = (...); |
Values
|
TFontStyles = set of TFontStyle; |
TFontStylesbase = set of TFontStyle; |
TFontCharSet = 0..255; |
TTextLayout = (...); |
Values
|
TPenStyle = TFPPenStyle; |
TPenMode = TFPPenMode; |
TBrushStyle = TFPBrushStyle; |
TFillStyle = TGraphicsFillStyle; |
TFillMode = (...); |
Values
|
TCopymode = longint; |
TCanvasStates = (...); |
Values
|
TCanvasState = set of TCanvasStates; |
TCanvasOrientation = (...); |
Values
|
TProgressStage = (...); |
Values
|
TProgressEvent = procedure (Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string; var DoContinue: Boolean) of object; |
TPixelFormat = (...); |
Values
|
TTransparentMode = (...); |
Values
|
TMappedColor = clActiveHighlightedText..clNormalForeground; |
TColorGroup = (...); |
Values
|
TColorRole = (...); |
Values
|
TGraphicClass = class of TGraphic; |
TBitmapNativeType = (...); |
Values
|
TBitmapNativeTypes = set of TBitmapNativeType; |
TBitmapHandleType = (...); |
Values
|
TBitmapInternalStateFlag = (...); |
Values
|
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); |
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; |
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; |