TKTextBox

type TKTextBox = class(TObject)

protected

  FCanvas: TCanvas;

  FClipRect: TRect;

  FFontHeight: Integer;

  FHasTabs: Boolean;

  FIndex: Integer;

  FCalcRect: TRect;

  function GetHorzPos();

  function GetVertPos; virtual;

  procedure Initialize(); virtual;

  procedure Process();

  procedure TextTrim(); virtual;

public

  constructor Create;

  procedure Draw(); virtual;

  function IndexToRect(); virtual;

  procedure Measure(); virtual;

  function PointToIndex(); virtual;

  class function TextExtent();

  class procedure TextOutput();

  property Attributes: TKTextAttributes; [rw]

  property BackColor: TColor; [rw]

  property HAlign: TKHAlign; [rw]

  property HPadding: Integer; [rw]

  property SelBkgnd: TColor; [rw]

  property SelColor: TColor; [rw]

  property SelEnd: Integer; [rw]

  property SelStart: Integer; [rw]

  property SpacesForTab: Integer; [rw]

  property Text: TKString; [rw]

  property VAlign: TKVAlign; [rw]

  property VPadding: Integer; [rw]

end;

TKTextBox

TObject