Class TBaseFramer

Unit

idCore

Declaration

type TBaseFramer = class(TIDIObject)

Description

TBaseFramer

Hierarchy

• TDBXOMObject
• TIDIObject
• TBaseFramer

Overview

Methods

	procedure AfterConstruction; override;
	procedure BeforeDestruction; override;
	procedure BaseAssign(_Source: TObject; AssignClasses: Boolean); override;
	procedure LoadGraphicStream (AStream: TStream; AGraphic: TGraphic; const AExtension: WideString);
	function UsesSmartColor: Boolean; virtual;
	procedure Frame (AGraphic: TGraphic; var AResult: TBitmap; AStyle: TFramingStyle = frFit; AMethod: TFramingMethod = fmNormal; AAvgColor: TColor = clBlack; AAccentFramer: TBaseFramer = nil); virtual;
	function FrameBitmap (ABitmap: TvxBitmap32; AMethod: TFramingMethod = fmNormal; AAvgColor: TColor = clBlack; AAccentFramer: TBaseFramer = nil; APrepare: Boolean = False): TRect; virtual;

Properties

	property Description: WideString read GetDescription;
	property CustomMaskStream: TDataMemoryStream read FCustomMaskStream write FCustomMaskStream;
	property FrameTextureStream: TDataMemoryStream read FFrameTextureStream write FFrameTextureStream;
	property FrameColor: TColor read FFrameColor write FFrameColor;
	property FrameStyle: TFrameStyle read FFrameStyle write FFrameStyle;
	property FrameFillStyle: TFillStyle read FFrameFillStyle write FFrameFillStyle;
	property FrameTexture: TPicture read FFrameTexture write FFrameTexture;
	property TextureStyle: TFrameTextureStyle read FTextureStyle write FTextureStyle;
	property FrameSize: Real read FFrameSize write FFrameSize;
	property FrameSizeLeft: Real read FFrameSizeLeft write FFrameSizeLeft;
	property FrameSizeTop: Real read FFrameSizeTop write FFrameSizeTop;
	property FrameSizeRight: Real read FFrameSizeRight write FFrameSizeRight;
	property FrameSizeBottom: Real read FFrameSizeBottom write FFrameSizeBottom;
	property FrameUnit: TFrameUnit read FFrameUnit write FFrameUnit;
	property TransparantFrame: Boolean read FTransparantFrame write FTransparantFrame;
	property DropShadow: Boolean read FDropShadow write FDropShadow;
	property ShadowColor: TColor read FShadowColor write FShadowColor;
	property ShadowBackColor: TColor read FShadowBackColor write FShadowBackColor;
	property ShadowStyle: TShadowStyle read FShadowStyle write FShadowStyle;
	property ShadowEndStyle: TShadowEndStyle read FShadowEndStyle write FShadowEndStyle;
	property ShadowSize: Integer read FShadowSize write FShadowSize;
	property ShadowUnit: TFrameUnit read FShadowUnit write FShadowUnit;
	property ShadowDirection: TWindDirection read FShadowDirection write FShadowDirection;
	property ShadowPosition: TShadowPosition read FShadowPosition write FShadowPosition;
	property ShadowBlur: Integer read FShadowBlur write FShadowBlur;
	property CustomMask: TPicture read FCustomMask write FCustomMask;
	property MaskInvert: Boolean read FMaskInvert write FMaskInvert;
	property Effect: TEffectObject read FEffect write FEffect;
	property CustomMaskExt: WideString read FCustomMaskExt write FCustomMaskExt;
	property FrameTextureExt: WideString read FFrameTextureExt write FFrameTextureExt;
	property GradientColor: TColor read FGradientColor write FGradientColor;
	property GradientDirection: TGradientDirection read FGradientDirection write FGradientDirection;
	property GradientPosition: Integer read FGradientPosition write FGradientPosition;
	property ClipFrameColor: Boolean read FClipFrameColor write FClipFrameColor;

Description

Methods

	procedure AfterConstruction; override;

	procedure BeforeDestruction; override;

	procedure BaseAssign(_Source: TObject; AssignClasses: Boolean); override;

	procedure LoadGraphicStream (AStream: TStream; AGraphic: TGraphic; const AExtension: WideString);

	function UsesSmartColor: Boolean; virtual;

	procedure Frame (AGraphic: TGraphic; var AResult: TBitmap; AStyle: TFramingStyle = frFit; AMethod: TFramingMethod = fmNormal; AAvgColor: TColor = clBlack; AAccentFramer: TBaseFramer = nil); virtual;

	function FrameBitmap (ABitmap: TvxBitmap32; AMethod: TFramingMethod = fmNormal; AAvgColor: TColor = clBlack; AAccentFramer: TBaseFramer = nil; APrepare: Boolean = False): TRect; virtual;
frame a bitmap and return the area of the framed image

Properties

	property Description: WideString read GetDescription;

	property CustomMaskStream: TDataMemoryStream read FCustomMaskStream write FCustomMaskStream;

	property FrameTextureStream: TDataMemoryStream read FFrameTextureStream write FFrameTextureStream;

	property FrameColor: TColor read FFrameColor write FFrameColor;

	property FrameStyle: TFrameStyle read FFrameStyle write FFrameStyle;

	property FrameFillStyle: TFillStyle read FFrameFillStyle write FFrameFillStyle;

	property FrameTexture: TPicture read FFrameTexture write FFrameTexture;

	property TextureStyle: TFrameTextureStyle read FTextureStyle write FTextureStyle;

	property FrameSize: Real read FFrameSize write FFrameSize;

	property FrameSizeLeft: Real read FFrameSizeLeft write FFrameSizeLeft;

	property FrameSizeTop: Real read FFrameSizeTop write FFrameSizeTop;

	property FrameSizeRight: Real read FFrameSizeRight write FFrameSizeRight;

	property FrameSizeBottom: Real read FFrameSizeBottom write FFrameSizeBottom;

	property FrameUnit: TFrameUnit read FFrameUnit write FFrameUnit;

	property TransparantFrame: Boolean read FTransparantFrame write FTransparantFrame;

	property DropShadow: Boolean read FDropShadow write FDropShadow;

	property ShadowColor: TColor read FShadowColor write FShadowColor;

	property ShadowBackColor: TColor read FShadowBackColor write FShadowBackColor;

	property ShadowStyle: TShadowStyle read FShadowStyle write FShadowStyle;

	property ShadowEndStyle: TShadowEndStyle read FShadowEndStyle write FShadowEndStyle;

	property ShadowSize: Integer read FShadowSize write FShadowSize;

	property ShadowUnit: TFrameUnit read FShadowUnit write FShadowUnit;

	property ShadowDirection: TWindDirection read FShadowDirection write FShadowDirection;

	property ShadowPosition: TShadowPosition read FShadowPosition write FShadowPosition;

	property ShadowBlur: Integer read FShadowBlur write FShadowBlur;

	property CustomMask: TPicture read FCustomMask write FCustomMask;

	property MaskInvert: Boolean read FMaskInvert write FMaskInvert;

	property Effect: TEffectObject read FEffect write FEffect;

	property CustomMaskExt: WideString read FCustomMaskExt write FCustomMaskExt;

	property FrameTextureExt: WideString read FFrameTextureExt write FFrameTextureExt;

	property GradientColor: TColor read FGradientColor write FGradientColor;

	property GradientDirection: TGradientDirection read FGradientDirection write FGradientDirection;

	property GradientPosition: Integer read FGradientPosition write FGradientPosition;

	property ClipFrameColor: Boolean read FClipFrameColor write FClipFrameColor;