TKCustomMemo

type TKCustomMemo = class(TKCustomControl,IKMemoNotifier)

protected

  FCaretRect: TRect;

  FDragCurPos: TPoint;

  FDragMode: TKSizingGripPosition;

  FDragOrigRect: TRect;

  FDragRect: TRect;

  FHorzExtent: Integer;

  FHorzScrollExtent: Integer;

  FHorzScrollStep: Integer;

  FInUpdateScrollRange: Boolean;

  FLinePosition: TKMemoLinePosition;

  FNewTextStyleValid: Boolean;

  FOldCaretRect: TRect;

  FOldFontChanged: TNotifyEvent;

  FPreferredCaretPos: Integer;

  FRequiredMouseCursor: TCursor;

  FSelectedBlock: TKMemoBlock;

  FVertExtent: Integer;

  FVertScrollExtent: Integer;

  FVertScrollStep: Integer;

  procedure AddUndoCaretPos(); virtual;

  procedure AddUndoChar(); virtual;

  procedure AddUndoString(); virtual;

  procedure BackgroundChanged(); virtual;

  procedure BeginUndoGroup();

  function BlockRectToRect(); virtual;

  function BlockClick();

  function BlockDblClick();

  procedure BlockFreeNotification();

  procedure BlocksFreeNotification();

  procedure BlocksChanged();

  procedure CancelDrag;

  function CanScroll(); virtual;

  procedure ContentPaddingChanged(); virtual;

  procedure CreateHandle; override;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure DestroyWnd; override;

  procedure DoChange; virtual;

  function DoCopy; virtual;

  function DoMouseWheel(); override;

  function DoPaste; virtual;

  function DoRedo; virtual;

  function DoSearchReplace(); virtual;

  function DoUndo; virtual;

  procedure DragBlock;

  function EditBlock();

  procedure EndUndoGroup;

  procedure FontChange(); virtual;

  function GetActiveBlocks;

  function GetDefaultTextStyle;

  function GetDefaultParaStyle;

  function GetDrawSingleChars;

  function GetHorzScrollPadding; virtual;

  function GetLinePosition;

  function GetListTable;

  function GetMemo;

  function GetMaxWordLength;

  function GetNearestParagraph; virtual;

  function GetNearestParagraphIndex; virtual;

  function GetPixelsPerInchX;

  function GetPixelsPerInchY;

  function GetPaintSelection;

  function GetPrinting;

  function GetReadOnly;

  procedure GetSelColors();

  function GetSelectedBlock;

  function GetShowFormatting;

  function GetRealSelEnd; virtual;

  function GetRealSelLength;

  function GetRealSelStart; virtual;

  function GetVertScrollPadding; virtual;

  function GetVisible; virtual;

  procedure SetVisible(); virtual;

  function GetWordBreaks;

  function GetWrapSingleChars;

  function HasFocus;

  procedure HideEditorCaret; virtual;

  procedure KeyDown(); override;

  procedure UTF8KeyPress(); override;

  procedure KeyUp(); override;

  procedure LateUpdate(); override;

  procedure ListChanged(); virtual;

  procedure MeasurePages(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MoveBlock;

  procedure PaintContent();

  procedure PaintPage; override;

  procedure PaintToCanvas(); override;

  procedure ParaStyleChanged(); virtual;

  function PointToBlockPoint(); virtual;

  procedure PrepareToPaint(); virtual;

  procedure PrepareToPrint(); virtual;

  procedure PrintPaintBegin; override;

  procedure PrintPaintEnd; override;

  procedure SafeSetFocus;

  function Scroll();

  function ScrollNeeded(); virtual;

  procedure ScrollToClientAreaCenter;

  procedure SelectionExpand();

  procedure SelectionInit();

  function SelectBlock();

  procedure SetReqMouseCursor();

  function SetMouseCursor(); override;

  procedure ShowEditorCaret; virtual;

  function SizingRect();

  procedure TextStyleChanged(); virtual;

  procedure UndoChange();

  procedure UpdateEditorCaret(); virtual;

  procedure UpdateMouseCursor; virtual;

  procedure UpdatePreferredCaretPos; virtual;

  procedure UpdateScrollRange(); virtual;

  procedure UpdateSize; override;

  property RedoList: TKMemoChangeList; [r]

  property States: TKMemoStates; [rw]

  property UndoList: TKMemoChangeList; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function BlockAt();

  function BlockRect();

  function CaretInView; virtual;

  function ClampInView(); virtual;

  procedure Clear();

  procedure ClearSelection(); virtual;

  procedure ClearUndo;

  function CommandEnabled(); virtual;

  procedure DeleteBOL();

  procedure DeleteChar(); virtual;

  procedure DeleteEOL();

  procedure DeleteLastChar(); virtual;

  procedure DeleteLine();

  procedure DeleteSelectedBlock; virtual;

  function ExecuteCommand(); virtual;

  function GetMaxLeftPos; virtual;

  function GetMaxTopPos; virtual;

  function GetNearestWordIndexes();

  function IndexToRect(); virtual;

  procedure InsertChar(); virtual;

  procedure InsertNewLine(); virtual;

  procedure InsertString(); virtual;

  procedure LoadFromFile(); virtual;

  procedure LoadFromRTF(); virtual;

  procedure LoadFromRTFStream(); virtual;

  procedure LoadFromTXT(); virtual;

  procedure LoadFromTXTStream(); virtual;

  procedure MoveCaretToMouseCursor();

  function PointToIndex(); virtual;

  function Px2PtX(); virtual;

  function Px2PtY(); virtual;

  function Pt2PxX(); virtual;

  function Pt2PxY(); virtual;

  procedure SaveToFile(); virtual;

  procedure SaveToRTF(); virtual;

  procedure SaveToRTFStream(); virtual;

  procedure SaveToTXT(); virtual;

  function ScrollBy(); virtual;

  procedure Select(); virtual;

  procedure SetActiveBlocksForPoint(); virtual;

  procedure SetRangeParaStyle(); virtual;

  procedure SetRangeTextStyle(); virtual;

  function SplitAt(); virtual;

  property ActiveBlock: TKMemoBlock; [r]

  property ActiveInnerBlock: TKMemoBlock; [r]

  property ActiveBlocks: TKMemoBlocks; [rw]

  property ActiveInnerBlocks: TKMemoBlocks; [r]

  property Blocks: TKMemoBlocks; [r]

  property Background: TKMemoBackground; [rw]

  property CaretPos: TKMemoSelectionIndex; [r]

  property CaretRect: TRect; [r]

  property CaretVisible: Boolean; [r]

  property Colors: TKMemoColors; [rw]

  property ContentPadding: TKRect; [rw]

  property ContentHeight: Integer; [r]

  property ContentLeft: Integer; [r]

  property ContentRect: TRect; [r]

  property ContentTop: Integer; [r]

  property ContentWidth: Integer; [r]

  property DisabledDrawStyle: TKEditDisabledDrawStyle; [rw]

  property Empty: Boolean; [r]

  property HorzScrollPadding: Integer; [r]

  property InsertMode: Boolean; [r]

  property KeyMapping: TKEditKeyMapping; [r]

  property LeftPos: Integer; [rw]

  property ListTable: TKMemoListTable; [r]

  property MaxWordLength: TKMemoSelectionIndex; [rw]

  property Modified: Boolean; [rw]

  property NearestParagraph: TKMemoParagraph; [r]

  property NearestParagraphIndex: TKMemoBlockIndex; [r]

  property NewTextStyle: TKMemoTextStyle; [rw]

  property NewTextStyleValid: Boolean; [r]

  property Options: TKEditOptions; [rws]

  property ParaStyle: TKMemoParaStyle; [r]

  property ReadOnly: Boolean; [rw]

  property RealSelEnd: TKMemoSelectionIndex; [r]

  property RealSelLength: TKMemoSelectionIndex; [r]

  property RealSelStart: TKMemoSelectionIndex; [r]

  property RelativeSelected: Boolean; [r]

  property RequiredContentWidth: Integer; [rw]

  property RTF: TKMemoRTFString; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property ScrollSpeed: Cardinal; [rw]

  property ScrollPadding: Integer; [rw]

  property SelAvail: Boolean; [r]

  property SelectableLength: TKMemoSelectionIndex; [r]

  property SelectedBlock: TKMemoBlock; [r]

  property SelectionHasPara: Boolean; [r]

  property SelectionParaStyle: TKMemoParaStyle; [rw]

  property SelectionTextStyle: TKMemoTextStyle; [rw]

  property SelEnd: TKMemoSelectionIndex; [rw]

  property SelLength: TKMemoSelectionIndex; [rw]

  property SelStart: TKMemoSelectionIndex; [rw]

  property SelText: TKString; [r]

  property Text: TKString; [rw]

  property TextStyle: TKMemoTextStyle; [r]

  property TopPos: Integer; [rw]

  property UndoLimit: Integer; [rw]

  property VertScrollPadding: Integer; [r]

  property Visible: Boolean; [rw]

  property WordBreaks: TKSysCharSet; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnDropFiles: TKEditDropFilesEvent; [rw]

  property OnBlockClick: TKMemoBlockNotifyEvent; [rw]

  property OnBlockDblClick: TKMemoBlockNotifyEvent; [rw]

  property OnBlockEdit: TKMemoBlockNotifyEvent; [rw]

  property OnReplaceText: TKEditReplaceTextEvent; [rw]

end;

TKCustomMemo

TKCustomControl,IKMemoNotifier

TObject