Class TDBRichEdit (unit dbrich)

Inherits from

TRichEdit

Writen by Sean Cross Sean@CRM.co.nz c/o 11 Albert St Waipukurau New Zealand Borland TDBMemo code modified to use RichEdit component instead. Note Slight bug, call Tablex.Edit before modifying paragraph properties

Constructors


constructor Create(AOwner: TComponent);

Mostly copied from DBMemo


Functions

destructor Destroy;


procedure LoadMemo;


procedure Change;


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 DataChange(Sender: TObject);

Lines.

procedure EditingChange(Sender: TObject);


function GetDataField: string;


function GetDataSource: TDataSource;

if Assigned(FdataLink) and (Assigned(DataSource))and (DataSource.

function GetField: TField;


function GetReadOnly: Boolean;


procedure SetAutoDisplay(Value: Boolean);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);

FDataLink.

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 AutoDisplay : Boolean


property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Field : TField


Events

Variables

FAutoDisplay : Boolean;


FDataLink : TFieldDataLink;


FFocused : Boolean;


FMemoLoaded : Boolean;


FPaintControl : TPaintControl;



Constructors


constructor Create(AOwner: TComponent);

Mostly copied from DBMemo


Functions


destructor Destroy;


procedure LoadMemo;


procedure Change;


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 DataChange(Sender: TObject);

Lines.Text := FDataLink.Field.AsString;


procedure EditingChange(Sender: TObject);


function GetDataField: string;


function GetDataSource: TDataSource;

if Assigned(FdataLink) and (Assigned(DataSource))and (DataSource.State = dsBrowse) then Edit; } {make sure edits on Attributes change


function GetField: TField;


function GetReadOnly: Boolean;


procedure SetAutoDisplay(Value: Boolean);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetFocused(Value: Boolean);

FDataLink.Field.AsString := Lines.Text;


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 AutoDisplay : Boolean


property DataField : string


property DataSource : TDataSource


property ReadOnly : Boolean


property Field : TField


Events


Variables


FAutoDisplay : Boolean;


FDataLink : TFieldDataLink;


FFocused : Boolean;


FMemoLoaded : Boolean;


FPaintControl : TPaintControl;