Class TrImageZoom
Unit
rImageZoom
Declaration
type TrImageZoom = class(TCustomControl)
Description
TCustomControl designed as replacement of standard TPicture component providing zoom and rotate function, scrollbars, drag and move support
Hierarchy
- TCustomControl
- TrImageZoom
Overview
Fields
Methods
Properties
Description
Fields
 |
LastFileName: string; |
|
|
Methods
|
function XSrc2Pict(X: integer): integer; |
|
|
|
function YSrc2Pict(Y: integer): integer; |
|
|
|
function XPict2Src(X: integer): integer; |
|
|
|
function YPict2Src(Y: integer): integer; |
|
|
|
function Src2Pict(P: TPoint): TPoint; |
|
|
|
function Pict2Src(P: TPoint): TPoint; |
|
|
|
procedure MoveToCenter; |
|
move selection of picture inside scroll area to center
|
|
procedure SetZoomOffset(Value: TPoint); |
|
move selection of picture inside scroll area
|
|
procedure ZoomIn(Percent: integer = 25; Center: boolean = true); |
|
increase zoom by selected percent
|
|
procedure ZoomOut(Percent: integer = 25; Center: boolean = true); |
|
decrease zoom by selected percent
|
|
function CutImageToClipboard: boolean; dynamic; |
|
cut image and insert to clipboard
|
|
function CopyImageToClipboard: boolean; dynamic; |
|
copy image and insert to clipboard
|
|
function PasteImageFromClipboard: boolean; dynamic; |
|
paste image from clipboard
|
|
function SaveAsFile(const FileName: string): boolean; dynamic; |
|
save image to file, BMP and JPG format is supported
|
|
function LoadFromFile(const FileName: string): boolean; dynamic; |
|
load image from file, BMP and JPG format is supported
|
|
function ResizePic(ratio: double): boolean; dynamic; |
|
change resolution of image
|
|
function PictureInfo: string; |
|
return text info with format and resolution of image
|
|
function ShowEditorWindow: boolean; dynamic; |
|
show image in independent window supporting edit functions
|
Properties
|
property AutoFit: boolean read GetAutoFit write SetAutoFit default false; |
|
define whether picture is automatically resized to window
|
 |
property Align; |
|
|
|
property Cursor; |
|
|
|
property DragCursor; |
|
|
|
property DragMode; |
|
|
|
property Enabled; |
|
|
|
property IncrementalDisplay: boolean read FIncrementalDisplay write FIncrementalDisplay default false; |
|
|
|
property ParentShowHint; |
|
|
|
property Picture: TPicture read FPicture write SetPicture; |
|
|
|
property PopupMenu; |
|
|
|
property ShowHint; |
|
|
|
property Transparent: boolean read FTransparent write SetTransparent default false; |
|
|
|
property Visible; |
|
|
|
property Font; |
|
|
|
property ParentFont; |
|
|
|
property ParentColor; |
|
|
|
property ParentBackground default false; |
|
|
|
property DoubleBuffered; |
|
|
|
property ParentDoubleBuffered; |
|
|
|
property TabStop; |
|
|
|
property OnClick; |
|
|
|
property OnDblClick; |
|
|
|
property OnDragDrop; |
|
|
|
property OnDragOver; |
|
|
|
property OnEndDrag; |
|
|
|
property OnMouseDown; |
|
|
|
property OnMouseMove; |
|
|
|
property OnMouseUp; |
|
|
|
property OnStartDrag; |
|
|
|
property ZoomOffset: TPoint read FZoomOffset; |
|
|
|
property ScrollBar: boolean read FScrollBar write SetScrollBar default false; |
|
define whether scrollbars are visible
|
|
property LockOriginalZoom: boolean read FLockOriginalZoom write SetLockOriginalZoom default false; |
|
define zoom in percent
|
|
property Zoom: integer read FZoom write SetZoom default 100; |
|
define zoom in percent
|
|
property EnlargeToFit: boolean read FEnlargeToFit write SetEnlargeToFit default false; |
|
define whether small picture is automatically zoomed to window
|
|
property ReduceToFit: boolean read FReduceToFit write SetReduceToFit default false; |
|
define whether big picture is automatically reduced to window
|
|
property Stretch: boolean read FStretch write SetStretch default false; |
|
define whether picture is automatically strech to window if AutoFit=true
|
|
property RotateType: TRotateType read FRotateType write SetRotateType default rt0; |
|
define whether picture is automatically rotated
|
|
property DragAndMove: boolean read FDragAndMove write FDragAndMove default true; |
|
define whether picture use drag operation to move picture
|
|
property BorderColor: TColor read FBorderColor write SetBorderColor default clWindowFrame; |
|
define color of border line
|
|
property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor default clNone; |
|
define background color of image panel
|
|
property BackgroundText: string read FBackgroundText write SetBackgroundText; |
|
define text which is shown on image panel if picture is not defined or shown
|
|
property ShowBackgroundText: boolean read FShowBackgroundText write SetShowBackgroundText default true; |
|
define wether background text is shown
|
|
property ShowEditor: TImageShowEditor read FShowEditor write SetShowEditor default ieShowModal; |
|
define way how the independent window is shown
|
|
property ShowPopupMenu: boolean read FShowPopupMenu write SetShowPopupMenu default true; |
|
define whether internal popup menu is shown
|
|
property UseFocus: boolean read FUseFocus write FUseFocus default false; |
|
define if control can have focus
|
|
property SaveInJPG: boolean read FSaveInJPG write FSaveInJPG default true; |
|
define if picture is saved in JPG format
|
|
property OnProgress: TProgressEvent read FOnProgress write FOnProgress; |
|
|
|
property OnPaint: TNotifyEvent read FOnPaint write FOnPaint; |
|
|
|
property OnChangeZoom: TNotifyEvent read FOnChangeZoom write FOnChangeZoom; |
|
|
|
property OnResize: TNotifyEvent read FOnResize write FOnResize; |
|
|
|
property ReadOnly: boolean read FReadOnly write SetReadOnly default false; |
|
|
Generated by PasDoc 0.15.0.
|