Class TCDBImage (unit LZHBlob)

Inherits from

TCustomControl

-----[ Компонент с упаковкой данных TCDBImage ]------

Constructors


constructor Create(AOwner: TComponent);



Functions

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);


Properties

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


Events

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 :


Variables

Compressor : TLZHCompressor;

--------[ встроенный компрессор ]---------

FAutoDisplay : Boolean;


FBorderStyle : TBorderStyle;


FCenter : Boolean;


FDataLink : TFieldDataLink;


FOnProgress : TProgressEvent;


FPicture : TPicture;


FPictureLoaded : Boolean;


FQuickDraw : Boolean;


FStretch : Boolean;


InStream : TMemoryStream;


OutStream : TMemoryStream;



Constructors


constructor Create(AOwner: TComponent);


Functions


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);


Properties


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


Events


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 :


Variables


Compressor : TLZHCompressor;

--------[ встроенный компрессор ]---------


FAutoDisplay : Boolean;


FBorderStyle : TBorderStyle;


FCenter : Boolean;


FDataLink : TFieldDataLink;


FOnProgress : TProgressEvent;


FPicture : TPicture;


FPictureLoaded : Boolean;


FQuickDraw : Boolean;


FStretch : Boolean;


InStream : TMemoryStream;


OutStream : TMemoryStream;