Class TAdvImage (unit AdvImage)

Inherits from

TpaintBox

Constructors


constructor Create(aOwner: TComponent);



Functions

procedure Clear;


procedure ConvertToBmp;

saving options

procedure ConvertToJpeg;


destructor destroy;


function GetimageType : TImageType;


procedure loadImage(Filename : String);


procedure Resize(Area : TRect);

avoid flicking when drawing large image

procedure SaveAsBitmap(const filename : String);


procedure SaveAsJpeg(const filename : String);


procedure SetChecked(Value : Boolean);


procedure Paint;

set gif options

procedure SetCaptionBottom(Value : TCaption);


procedure PaintCheck;

stretch ratio

procedure PictureChanged(Sender: TObject);


procedure SetBevelWidth(Value : Integer);


procedure SetCenterView(value : Boolean);


procedure SetCheckColor(value : TColor);


procedure SetEmptyLabel(value : TCaption);


procedure SetFrame3D(value : Boolean);


procedure SetGifAnimate(value : Boolean);


procedure SetGrayscale(value: Boolean);


procedure setImageName(value : String);


procedure SetPerformance(value: TJPEGPerformance);


procedure SetPicture(Value: TPicture);


procedure SetPixelFormat(value: TJPEGPixelFormat);


procedure SetProgressiveEncoding(value: Boolean);


procedure SetScale(value: TJPEGScale);


procedure SetShowEmptyLabel(value: Boolean);


procedure SetSmoothing(value: Boolean);


procedure SetSpeed(Value : Integer);


procedure SetStretchRatio(value : Boolean);


Properties

property About : TAboutAdvImage


property BevelWidth : Integer


property Caption : TCaption


property CenterView : Boolean


property CheckColor : TColor


property Checked : Boolean


property EmptyLabel : TCaption


property Font :


property GIFAnimate : Boolean


property GifAnimateSpeed : Integer


property ImageName : String


property ImageType : TImageType

read only

property JPEGCompressionQuality : TJPEGQualityRange


property JPEGGrayscale : Boolean


property JPEGPerformance : TJPEGPerformance


property JPEGPixelFormat : TJPEGPixelFormat

Jpeg

property JPEGProgressiveDisplay : Boolean


property JPEGProgressiveEncoding : Boolean


property JPEGScale : TJPEGScale


property JPEGSmoothing : Boolean


property ShowEmptyLabel : Boolean


property ShowFrame3D : Boolean


property StretchRatio : Boolean


property FileSize : Integer


property Picture : TPicture


Events

Variables

FAbout : TAboutAdvImage;


FBevelWidth : Integer;


FCaptionBottom : TCaption;


FCenterView : Boolean;


FCheckColor : TColor;


Fchecked : Boolean;


FCompressionQuality : TJPEGQualityRange;


FDrawRect : TRect;


FEmptyLabel : TCaption;


FFileSize : Integer;


FFrame3D : Boolean;


FGifAnimate : Boolean;


FGrayscale : Boolean;


FImageName : String;


FImageType : TImageType;


FPerformance : TJPEGPerformance;


FPicture : TPicture;


FPixelFormat : TJPEGPixelFormat;


FProgressiveDisplay : Boolean;


FProgressiveEncoding : Boolean;


FScale : TJPEGScale;


FShowEmptyLabel : Boolean;


FSmoothing : Boolean;


FSpeed : Integer;


FStretchRatio : Boolean;



Constructors


constructor Create(aOwner: TComponent);


Functions


procedure Clear;


procedure ConvertToBmp;

saving options


procedure ConvertToJpeg;


destructor destroy;


function GetimageType : TImageType;


procedure loadImage(Filename : String);


procedure Resize(Area : TRect);

avoid flicking when drawing large image


procedure SaveAsBitmap(const filename : String);


procedure SaveAsJpeg(const filename : String);


procedure SetChecked(Value : Boolean);


procedure Paint;

set gif options


procedure SetCaptionBottom(Value : TCaption);


procedure PaintCheck;

stretch ratio


procedure PictureChanged(Sender: TObject);


procedure SetBevelWidth(Value : Integer);


procedure SetCenterView(value : Boolean);


procedure SetCheckColor(value : TColor);


procedure SetEmptyLabel(value : TCaption);


procedure SetFrame3D(value : Boolean);


procedure SetGifAnimate(value : Boolean);


procedure SetGrayscale(value: Boolean);


procedure setImageName(value : String);


procedure SetPerformance(value: TJPEGPerformance);


procedure SetPicture(Value: TPicture);


procedure SetPixelFormat(value: TJPEGPixelFormat);


procedure SetProgressiveEncoding(value: Boolean);


procedure SetScale(value: TJPEGScale);


procedure SetShowEmptyLabel(value: Boolean);


procedure SetSmoothing(value: Boolean);


procedure SetSpeed(Value : Integer);


procedure SetStretchRatio(value : Boolean);


Properties


property About : TAboutAdvImage


property BevelWidth : Integer


property Caption : TCaption


property CenterView : Boolean


property CheckColor : TColor


property Checked : Boolean


property EmptyLabel : TCaption


property Font :


property GIFAnimate : Boolean


property GifAnimateSpeed : Integer


property ImageName : String


property ImageType : TImageType

read only


property JPEGCompressionQuality : TJPEGQualityRange


property JPEGGrayscale : Boolean


property JPEGPerformance : TJPEGPerformance


property JPEGPixelFormat : TJPEGPixelFormat

Jpeg


property JPEGProgressiveDisplay : Boolean


property JPEGProgressiveEncoding : Boolean


property JPEGScale : TJPEGScale


property JPEGSmoothing : Boolean


property ShowEmptyLabel : Boolean


property ShowFrame3D : Boolean


property StretchRatio : Boolean


property FileSize : Integer


property Picture : TPicture


Events


Variables


FAbout : TAboutAdvImage;


FBevelWidth : Integer;


FCaptionBottom : TCaption;


FCenterView : Boolean;


FCheckColor : TColor;


Fchecked : Boolean;


FCompressionQuality : TJPEGQualityRange;


FDrawRect : TRect;


FEmptyLabel : TCaption;


FFileSize : Integer;


FFrame3D : Boolean;


FGifAnimate : Boolean;


FGrayscale : Boolean;


FImageName : String;


FImageType : TImageType;


FPerformance : TJPEGPerformance;


FPicture : TPicture;


FPixelFormat : TJPEGPixelFormat;


FProgressiveDisplay : Boolean;


FProgressiveEncoding : Boolean;


FScale : TJPEGScale;


FShowEmptyLabel : Boolean;


FSmoothing : Boolean;


FSpeed : Integer;


FStretchRatio : Boolean;