Class TScaleImage (unit Sclimage)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Loaded;


procedure Paint;

Protected declarations

procedure WMPaint(var Message: TWMPaint);


procedure ChangeView(View: TChangeView);


procedure DrawNormal;


procedure DrawScaled;


procedure DrawXStretched;


procedure DrawXYStretched;


procedure DrawYStretched;


function GetNormal: Boolean;


procedure GetPictSize;


function GetScale: Boolean;


function GetStretch: Boolean;


procedure SetBorder(Value: Boolean);


procedure SetCenter(Value: Boolean);


procedure SetPicture(Value: TPicture);


procedure SetScaleStyle(Value: TScaleStyle);


Properties

property Align :


property Border : Boolean


property Center : Boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property ParentColor :


property ParentShowHint :


property Picture : TPicture

Published declarations

property PopupMenu :


property ScaleStyle : TScaleStyle


property ShowHint :


property Visible :


property IsNormal : Boolean


property IsScaled : Boolean


property IsStretched : Boolean


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FBorder : Boolean;


FCenter : Boolean;


FPicture : TPicture;


FScaleStyle : TScaleStyle;


ImageFile : String;


PictHeight : Integer;


PictWidth : Integer;


ScaleBmp : TPicture;

*** GLOBAL VARIABLES

SizeRatio : Real;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Loaded;


procedure Paint;

Protected declarations


procedure WMPaint(var Message: TWMPaint);


procedure ChangeView(View: TChangeView);


procedure DrawNormal;


procedure DrawScaled;


procedure DrawXStretched;


procedure DrawXYStretched;


procedure DrawYStretched;


function GetNormal: Boolean;


procedure GetPictSize;


function GetScale: Boolean;


function GetStretch: Boolean;


procedure SetBorder(Value: Boolean);


procedure SetCenter(Value: Boolean);


procedure SetPicture(Value: TPicture);


procedure SetScaleStyle(Value: TScaleStyle);


Properties


property Align :


property Border : Boolean


property Center : Boolean


property Color :


property DragCursor :


property DragMode :


property Enabled :


property ParentColor :


property ParentShowHint :


property Picture : TPicture

Published declarations


property PopupMenu :


property ScaleStyle : TScaleStyle


property ShowHint :


property Visible :


property IsNormal : Boolean


property IsScaled : Boolean


property IsStretched : Boolean


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FBorder : Boolean;


FCenter : Boolean;


FPicture : TPicture;


FScaleStyle : TScaleStyle;


ImageFile : String;


PictHeight : Integer;


PictWidth : Integer;


ScaleBmp : TPicture;

*** GLOBAL VARIABLES


SizeRatio : Real;