Class TCDBMemo (unit LZHBlob)

Inherits from

TCustomMemo

Компонент отображения упакованного Memo-поля

Constructors


constructor Create(AOwner: TComponent);

Public declarations

TCDBMemo



Functions

destructor Destroy;


procedure LoadMemo;


procedure Change;

Protected declarations

procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure WndProc(var Message: TMessage);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMGetDataLink(var Message: TMessage);


procedure CompressStream;


procedure DataChange(Sender: TObject);

------[ ]------

---[ ]----


procedure DecompressStream;


procedure EditingChange(Sender: TObject);


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 PutData(Sender:TObject; var DTA : BufType; NBytes : WORD; var Bytes_Got : WORD);

Процедуры подготовки и обслуживания компрессора

procedure SetAutoDisplay(Value: Boolean);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);


procedure SetInBufferSize( NewValue : integer );


procedure SetOutBufferSize( NewValue : integer );


procedure SetProgressEvent( NewValue : TProgressEvent);


procedure SetReadOnly(Value: Boolean);


procedure UpdateData(Sender: TObject);


procedure WMCut(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


procedure WMPaint(var Message: TWMPaint);


procedure WMPaste(var Message: TMessage);


Properties

property Align :

Published declarations

property Alignment :


property AutoDisplay : Boolean


property BorderStyle :


property Color :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property Font :


property InBufferSize : Integer


property MaxLength :


property OutBufferSize : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly : Boolean


property ScrollBars :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property WantTabs :


property WordWrap :


property Field : TField


Events

event OnChange :


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;


FDataLink : TFieldDataLink;

Private declarations

FFocused : Boolean;


FMemoLoaded : Boolean;


FOnProgress : TProgressEvent;


FPaintControl : TPaintControl;


InStream : TMemoryStream;


OutStream : TMemoryStream;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

TCDBMemo


Functions


destructor Destroy;


procedure LoadMemo;


procedure Change;

Protected declarations


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure WndProc(var Message: TMessage);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMGetDataLink(var Message: TMessage);


procedure CompressStream;


procedure DataChange(Sender: TObject);

------[ ]------

---[ ]----


procedure DecompressStream;


procedure EditingChange(Sender: TObject);


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 PutData(Sender:TObject; var DTA : BufType; NBytes : WORD; var Bytes_Got : WORD);

Процедуры подготовки и обслуживания компрессора


procedure SetAutoDisplay(Value: Boolean);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);


procedure SetInBufferSize( NewValue : integer );


procedure SetOutBufferSize( NewValue : integer );


procedure SetProgressEvent( NewValue : TProgressEvent);


procedure SetReadOnly(Value: Boolean);


procedure UpdateData(Sender: TObject);


procedure WMCut(var Message: TMessage);


procedure WMLButtonDblClk(var Message: TWMLButtonDblClk);


procedure WMPaint(var Message: TWMPaint);


procedure WMPaste(var Message: TMessage);


Properties


property Align :

Published declarations


property Alignment :


property AutoDisplay : Boolean


property BorderStyle :


property Color :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property Font :


property InBufferSize : Integer


property MaxLength :


property OutBufferSize : Integer


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly : Boolean


property ScrollBars :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


property WantTabs :


property WordWrap :


property Field : TField


Events


event OnChange :


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;


FDataLink : TFieldDataLink;

Private declarations


FFocused : Boolean;


FMemoLoaded : Boolean;


FOnProgress : TProgressEvent;


FPaintControl : TPaintControl;


InStream : TMemoryStream;


OutStream : TMemoryStream;