TD2Memo

type TD2Memo = class(TD2ScrollBox)

protected

  FUpdatingBool: Boolean;

  FWidesLineIndex: Integer;

  FTextWidth: array of Integer;

  function GetLineHeight;

  function GetPointPosition();

  function GetTextW; virtual;

  procedure SetTextW();

  function GetText; virtual;

  procedure SetText();

  function GetSelArea; virtual;

  procedure DrawPasswordChar(); virtual;

  procedure CreatePopupMenu; virtual;

  procedure UpdatePopupMenuItems; virtual;

  procedure ApplyStyle; override;

  function ContentPos;

  procedure Change; virtual;

  procedure DoContentPaint();

  function ValidText(); virtual;

  function CanAutoSize();

  procedure ContextMenu(); override;

  procedure KeyDown(); override;

  procedure SelectWord;

  procedure FontChanged();

  procedure DoUndo();

  procedure DoCut();

  procedure DoCopy();

  procedure DoPaste();

  procedure DoDelete();

  procedure DoSelectAll();

  procedure UpdateLines;

  function GetData; override;

  procedure SetData(); override;

  procedure EnterFocus; override;

  procedure KillFocus; override;

  procedure VScrollChange();

  function GetContentBounds; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure MouseWheel(); override;

  procedure CopyToClipboard;

  procedure PasteFromClipboard;

  procedure CutToClipboard;

  procedure ClearSelection;

  procedure SelectAll;

  procedure GoToTextEnd;

  procedure GoToTextBegin;

  procedure GotoLineEnd;

  procedure GoToLineBegin;

  function GetPositionPoint();

  procedure UnDo;

  procedure InsertAfter();

  procedure DeleteFrom();

  function TextPosToPos();

  function PosToTextPos();

  property SelStart: Integer; [rw]

  property SelLength: Integer; [rw]

  property SelText: WideString; [r]

  property CaretPosition: TCaretPosition; [rw]

  property LineWidth []: Single; [r]

  property UnwrapLines: TD2WideStrings; [r]

  property FontFill: TD2Brush; [r]

  property SelectionFill: TD2Brush; [r]

  property TextW: WideString; [rw]

published

  property Cursor: TCursor;

  property CanFocused: Boolean;

  property DisableFocusEffect: Boolean;

  property TabOrder: TTabOrder;

  property AutoSelect: Boolean; [rw]

  property CharCase: TEditCharCase; [rw]

  property Enabled: Boolean;

  property HideSelection: Boolean; [rw]

  property Lines: TD2WideStrings; [rws]

  property MaxLength: Integer; [rw]

  property ReadOnly: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnChangeTracking: TNotifyEvent; [rw]

  property WordWrap: Boolean; [rw]

  property Font: TD2Font; [rw]

  property Text: string; [rws]

  property TextAlign: TD2TextAlign; [rw]

  property Resource: string;

end;

TD2Memo

TD2ScrollBox

TD2Control

TD2VisualObject

TD2Object

TObject