Class TCDBImage (unit LZHBlob) |
Inherits from
TCustomControl
-----[ Компонент с упаковкой данных TCDBImage ]------
constructor Create(AOwner: TComponent);
procedure CopyToClipboard;
procedure CutToClipboard;
destructor Destroy;
procedure LoadPicture;
procedure PasteFromClipboard;
procedure CreateParams(var Params: TCreateParams);
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
Draw the focus marker
procedure CMTextChanged(var Message: TMessage);
Erase the focus marker
procedure CompressStream;
procedure DataChange(Sender: TObject);
------[ ]-------
procedure DecompressStream;
procedure GetData(Sender:TObject; var DTA : BufType; NBytes : WORD;
var Bytes_Got : WORD);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetInBufferSize : integer;
function GetOutBufferSize : integer;
function GetReadOnly: Boolean;
procedure PictureChanged(Sender: TObject);
Control has focus, so realize the bitmap palette in foreground
procedure PutData(Sender:TObject; var DTA : BufType; NBytes : WORD;
var Bytes_Got : WORD);
----------------------------[ TCDBImage ]-----------------------------------} {---[ Процедуры подготовки и обеспечения работы компрессора ]----
procedure SetAutoDisplay(Value: Boolean);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCenter(Value: Boolean);
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetInBufferSize( NewValue : integer );
procedure SetOutBufferSize( NewValue : integer );
procedure SetPicture(Value: TPicture);
procedure SetProgressEvent( NewValue : TProgressEvent);
procedure SetReadOnly(Value: Boolean);
procedure SetStretch(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCopy(var Message: TMessage);
procedure WMCut(var Message: TMessage);
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMPaste(var Message: TMessage);
property Align :
property AutoDisplay : Boolean
property BorderStyle : TBorderStyle
property Center : Boolean
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property InBufferSize : Integer
property OutBufferSize : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property QuickDraw : Boolean
property ReadOnly : Boolean
property ShowHint :
property Stretch : Boolean
property TabOrder :
property TabStop :
property Visible :
property Field : TField
property Picture : TPicture
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnProgress : TProgressEvent
event OnStartDrag :
Compressor : TLZHCompressor;
--------[ встроенный компрессор ]---------
FAutoDisplay : Boolean;
FBorderStyle : TBorderStyle;
FCenter : Boolean;
FDataLink : TFieldDataLink;
FOnProgress : TProgressEvent;
FPicture : TPicture;
FPictureLoaded : Boolean;
FQuickDraw : Boolean;
FStretch : Boolean;
InStream : TMemoryStream;
OutStream : TMemoryStream;
constructor Create(AOwner: TComponent);
procedure CopyToClipboard;
procedure CutToClipboard;
destructor Destroy;
procedure LoadPicture;
procedure PasteFromClipboard;
procedure CreateParams(var Params: TCreateParams);
function GetPalette: HPALETTE;
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure KeyPress(var Key: Char);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure CMEnter(var Message: TCMEnter);
procedure CMExit(var Message: TCMExit);
Draw the focus marker
procedure CMTextChanged(var Message: TMessage);
Erase the focus marker
procedure CompressStream;
procedure DataChange(Sender: TObject);
------[ ]-------
procedure DecompressStream;
procedure GetData(Sender:TObject; var DTA : BufType; NBytes : WORD;
var Bytes_Got : WORD);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetInBufferSize : integer;
function GetOutBufferSize : integer;
function GetReadOnly: Boolean;
procedure PictureChanged(Sender: TObject);
Control has focus, so realize the bitmap palette in foreground
procedure PutData(Sender:TObject; var DTA : BufType; NBytes : WORD;
var Bytes_Got : WORD);
----------------------------[ TCDBImage ]-----------------------------------} {---[ Процедуры подготовки и обеспечения работы компрессора ]----
procedure SetAutoDisplay(Value: Boolean);
procedure SetBorderStyle(Value: TBorderStyle);
procedure SetCenter(Value: Boolean);
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetInBufferSize( NewValue : integer );
procedure SetOutBufferSize( NewValue : integer );
procedure SetPicture(Value: TPicture);
procedure SetProgressEvent( NewValue : TProgressEvent);
procedure SetReadOnly(Value: Boolean);
procedure SetStretch(Value: Boolean);
procedure UpdateData(Sender: TObject);
procedure WMCopy(var Message: TMessage);
procedure WMCut(var Message: TMessage);
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMPaste(var Message: TMessage);
property Align :
property AutoDisplay : Boolean
property BorderStyle : TBorderStyle
property Center : Boolean
property Color :
property Ctl3D :
property DataField : string
property DataSource : TDataSource
property DragCursor :
property DragMode :
property Enabled :
property Font :
property InBufferSize : Integer
property OutBufferSize : Integer
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property QuickDraw : Boolean
property ReadOnly : Boolean
property ShowHint :
property Stretch : Boolean
property TabOrder :
property TabStop :
property Visible :
property Field : TField
property Picture : TPicture
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnProgress : TProgressEvent
event OnStartDrag :
Compressor : TLZHCompressor;
--------[ встроенный компрессор ]---------
FAutoDisplay : Boolean;
FBorderStyle : TBorderStyle;
FCenter : Boolean;
FDataLink : TFieldDataLink;
FOnProgress : TProgressEvent;
FPicture : TPicture;
FPictureLoaded : Boolean;
FQuickDraw : Boolean;
FStretch : Boolean;
InStream : TMemoryStream;
OutStream : TMemoryStream;