| Class TDBRichEdit (unit dbrich) |
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);| 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);
procedure EditingChange(Sender: TObject);
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetAutoDisplay(Value: Boolean);
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure SetFocused(Value: Boolean);
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;