TD3TextBox3D

type TD3TextBox3D = class(TD3Shape3D)

protected

  procedure Change; virtual;

  function GetPasswordCharWidth;

  function TextWidth();

  procedure SetTextW();

  function GetTextW;

  procedure SetText();

  function GetText;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure ShapeMouseDown(); override;

  procedure ShapeMouseMove(); override;

  procedure ShapeMouseUp(); override;

  procedure FontChanged();

  procedure EnterFocus; override;

  procedure KillFocus; override;

  procedure ContextMenu(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function RayCastIntersect(); override;

  procedure Paint; override;

  procedure ClearSelection;

  procedure CopyToClipboard;

  procedure CutToClipboard;

  procedure PasteFromClipboard;

  procedure SelectAll;

  function GetCharX();

  property CaretPosition: Integer; [rw]

  property SelStart: Integer; [rw]

  property SelLength: Integer; [rw]

  property SelText: Widestring; [r]

  property MaxLength: Integer; [rw]

  property TextW: Widestring; [rw]

published

  property CanFocused: Boolean;

  property Background: string; [rw]

  property Selection: string; [rw]

  property Cursor: TCursor;

  property Font: TD3Font; [rw]

  property Password: Boolean; [rw]

  property ShowBackground: Boolean; [rw]

  property Text: string; [rw]

  property ReadOnly: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnTyping: TNotifyEvent; [rw]

end;

TD3TextBox3D

TD3Shape3D

TD3Shape

TD3VisualObject

TD3Object

TObject