TCustomRichMemo

type TCustomRichMemo = class(TCustomMemo)

protected

  procedure DoSelectionChange;

  class procedure WSRegisterClass; override;

  procedure CreateWnd; override;

  procedure UpdateRichMemo; virtual;

  procedure SetHideSelection();

  function GetContStyleLength();

  procedure SetSelText(); override;

  function GetZoomFactor; virtual;

  procedure SetZoomFactor(); virtual;

  procedure SetTransparent(); virtual;

  procedure DoPrintAction();

  procedure DoLinkAction();

  function GetCanRedo; virtual;

  function isValidCharOfs();

public

  constructor Create(); override;

  procedure CopyToClipboard; override;

  procedure CutToClipboard; override;

  procedure PasteFromClipboard; override;

  function CanPaste; virtual;

  procedure SetTextAttributes();

  function GetTextAttributes(); virtual;

  function GetStyleRange(); virtual;

  function GetParaAlignment();

  procedure SetParaAlignment(); virtual;

  function GetParaMetric(); virtual;

  procedure SetParaMetric(); virtual;

  function GetParaNumbering(); virtual;

  procedure SetParaNumbering(); virtual;

  function GetParaRange();

  procedure SetParaTabs(); virtual;

  function GetParaTabs(); virtual;

  procedure SetRangeColor();

  procedure SetRangeParams();

  procedure SetRangeParaParams();

  procedure SetLink(); virtual;

  function isLink(); virtual;

  function LoadRichText(); virtual;

  function SaveRichText(); virtual;

  function InDelText(); virtual;

  function InDelInline(); virtual;

  function GetText();

  function GetUText();

  procedure SetSelLengthFor();

  function Search();

  function Print();

  function CharAtPos();

  procedure Redo; virtual;

  property HideSelection: Boolean; [rw]

  property OnSelectionChange: TNotifyEvent; [rw]

  property ZoomFactor: Double; [rw]

  property OnPrintAction: TPrintActionEvent; [rw]

  property OnLinkAction: TLinkActionEvent; [rw]

  property CanRedo: Boolean; [r]

  property Transparent: Boolean; [rw]

end;

TCustomRichMemo

TObject