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
constructor Create(AOwner: TComponent);
- Mostly copied from DBMemo
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);
property AutoDisplay : Boolean
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Field : TField
FAutoDisplay : Boolean;
FDataLink : TFieldDataLink;
FFocused : Boolean;
FMemoLoaded : Boolean;
FPaintControl : TPaintControl;
constructor Create(AOwner: TComponent);
Mostly copied from DBMemo
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);
property AutoDisplay : Boolean
property DataField : string
property DataSource : TDataSource
property ReadOnly : Boolean
property Field : TField
FAutoDisplay : Boolean;
FDataLink : TFieldDataLink;
FFocused : Boolean;
FMemoLoaded : Boolean;
FPaintControl : TPaintControl;