TKMemoTextBlock

type TKMemoTextBlock = class(TKMemoSingleton)

protected

  FScriptVertOffset: Integer;

  FScriptFontHeight: Integer;

  FTextLength: Integer;

  FWordCount: Integer;

  FWords: TKMemoWordList;

  function ApplyFormatting();

  procedure ApplyTextStyle(); virtual;

  function ContentLength; override;

  function SingleCharWords; virtual;

  function GetCanAddText; override;

  function GetKerningDistance();

  function GetSelText; override;

  function GetText; override;

  function GetWordBaseLine(); override;

  function GetWordBottomPadding(); override;

  function GetWordBoundsRect(); override;

  function GetWordBreakable(); override;

  function GetWordClipped(); override;

  function GetWordCount; override;

  function GetWordHeight(); override;

  function GetWordLeft(); override;

  function GetWordLength(); override;

  function GetWordLengthWOWS(); override;

  function GetWords(); override;

  function GetWordTop(); override;

  function GetWordTopPadding(); override;

  function GetWordWidth(); override;

  function IndexToTextIndex(); virtual;

  function InternalTextExtent(); virtual;

  procedure InternalTextOutput(); virtual;

  function ModifiedTextExtent(); virtual;

  procedure ParentChanged; override;

  procedure SetText(); virtual;

  procedure SetWordBaseLine(); override;

  procedure SetWordBottomPadding(); override;

  procedure SetWordClipped(); override;

  procedure SetWordHeight(); override;

  procedure SetWordLeft(); override;

  procedure SetWordTop(); override;

  procedure SetWordTopPadding(); override;

  procedure SetWordWidth(); override;

  class procedure SplitText();

  function TextIndexToIndex(); virtual;

  procedure TextStyleChanged();

  procedure UpdateWords; virtual;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure AssignAttributes(); override;

  function CalcAscent(); override;

  function CalcDescent(); virtual;

  procedure ClearSelection(); override;

  function Concat(); override;

  function EqualProperties(); override;

  procedure GetWordIndexes(); override;

  function InsertString(); override;

  procedure NotifyDefaultTextChange; override;

  procedure NotifyOptionsChange; override;

  procedure NotifyPrintBegin; override;

  procedure NotifyPrintEnd; override;

  function Split(); override;

  function WordIndexToRect(); override;

  function WordMeasureExtent(); override;

  function WordMouseAction(); override;

  procedure WordPaintToCanvas(); override;

  function WordPointToIndex(); override;

  property Text: TKString; [rw]

  property TextStyle: TKMemoTextStyle; [r]

  property WordBreaks: TKSysCharSet; [r]

  property WordBreakStyle: TKMemoWordBreakStyle; [rw]

end;

TKMemoTextBlock

TKMemoSingleton

TKMemoBlock

TKObject

TObject