CDXUTEditBox

type CDXUTEditBox = class(CDXUTControl)

protected

  m_Buffer: CUniBuffer;

  m_nBorder: Integer;

  m_nSpacing: Integer;

  m_rcText: TRect;

  m_rcRender: array [0..8] of TRect;

  m_dfBlink: Double;

  m_dfLastBlink: Double;

  m_bCaretOn: Boolean;

  m_nCaret: Integer;

  m_bInsertMode: Boolean;

  m_nSelStart: Integer;

  m_nFirstVisible: Integer;

  m_TextColor: TD3DColor;

  m_SelTextColor: TD3DColor;

  m_SelBkColor: TD3DColor;

  m_CaretColor: TD3DColor;

  m_bMouseDrag: Boolean;

  procedure PlaceCaret();

  procedure DeleteSelectionText;

  procedure ResetCaretBlink;

  procedure CopyToClipboard;

  procedure PasteFromClipboard;

  procedure SetTextColor(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function HandleKeyboard(); override;

  function HandleMouse(); override;

  function MsgProc(); override;

  procedure UpdateRects; override;

  function CanHaveFocus; override;

  procedure Render(); override;

  procedure OnFocusIn; override;

  procedure SetText();

  function GetTextCopy();

  procedure ClearText;

  procedure ParseFloatArray();

  procedure SetTextFloatArray();

  property Text: PWideChar; [rw]

  property TextColor: TD3DColor; [rw]

  property TextLength: Integer; [r]

  property SelectedTextColor: TD3DColor; [rw]

  property SelectedBackColor: TD3DColor; [rw]

  property CaretColor: TD3DColor; [rw]

  property BorderWidth: Integer; [rw]

  property Spacing: Integer; [rw]

end;

CDXUTEditBox

CDXUTControl

TObject