Class TRichEdit98Editor (unit RTFEditor)

Inherits from

TForm

Constructors



Functions

procedure BoldBtnClick(Sender: TObject);


procedure CenterBtnClick(Sender: TObject);


procedure EditorSelectionChange(Sender: TObject);


procedure FontListChange(Sender: TObject);


procedure FontListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure FormCreate(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);


procedure JustifyBtnClick(Sender: TObject);


procedure LeftBtnClick(Sender: TObject);


procedure RightBtnClick(Sender: TObject);


procedure SizeListChange(Sender: TObject);


procedure SizeListDropDown(Sender: TObject);


procedure SizeListKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure UnderlineBtnClick(Sender: TObject);


Properties

Events

Variables

BoldBtn : TToolButton;


BulletBtn : TToolButton;


CancelButton : TButton;


CenterBtn : TToolButton;


Editor : TRichEdit98;


FontList : TComboBox;


ImageList : TImageList;


ItalicBtn : TToolButton;


JustifyBtn : TToolButton;


LeftBtn : TToolButton;


OkButton : TButton;


Panel1 : TPanel;


RightBtn : TToolButton;


SizeList : TComboBox;


ToolBar : TToolBar;


ToolButton1 : TToolButton;


ToolButton10 : TToolButton;


ToolButton4 : TToolButton;


UnderlineBtn : TToolButton;


SizeDropped : Boolean;

Private declarations


Constructors


Functions


procedure BoldBtnClick(Sender: TObject);


procedure CenterBtnClick(Sender: TObject);


procedure EditorSelectionChange(Sender: TObject);


procedure FontListChange(Sender: TObject);


procedure FontListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure FormCreate(Sender: TObject);


procedure ItalicBtnClick(Sender: TObject);


procedure JustifyBtnClick(Sender: TObject);


procedure LeftBtnClick(Sender: TObject);


procedure RightBtnClick(Sender: TObject);


procedure SizeListChange(Sender: TObject);


procedure SizeListDropDown(Sender: TObject);


procedure SizeListKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure UnderlineBtnClick(Sender: TObject);


Properties


Events


Variables


BoldBtn : TToolButton;


BulletBtn : TToolButton;


CancelButton : TButton;


CenterBtn : TToolButton;


Editor : TRichEdit98;


FontList : TComboBox;


ImageList : TImageList;


ItalicBtn : TToolButton;


JustifyBtn : TToolButton;


LeftBtn : TToolButton;


OkButton : TButton;


Panel1 : TPanel;


RightBtn : TToolButton;


SizeList : TComboBox;


ToolBar : TToolBar;


ToolButton1 : TToolButton;


ToolButton10 : TToolButton;


ToolButton4 : TToolButton;


UnderlineBtn : TToolButton;


SizeDropped : Boolean;

Private declarations