CDXUTListBox

type CDXUTListBox = class(CDXUTControl)

protected

  m_rcText: TRect;

  m_rcSelection: TRect;

  m_ScrollBar: CDXUTScrollBar;

  m_nSBWidth: Integer;

  m_nBorder: Integer;

  m_nMargin: Integer;

  m_nTextHeight: Integer;

  m_dwStyle: TDXUTLBStyle;

  m_nSelected: Integer;

  m_nSelStart: Integer;

  m_bDrag: Boolean;

  m_Items: TList;

  function GetSize;

  procedure SetStyle();

  procedure SetScrollBarWidth();

public

  constructor Create(); override;

  destructor Destroy; override;

  function OnInit; override;

  function CanHaveFocus; override;

  function HandleKeyboard(); override;

  function HandleMouse(); override;

  function MsgProc(); override;

  procedure Render(); override;

  procedure UpdateRects; override;

  procedure SetBorder();

  function AddItem();

  function InsertItem();

  procedure RemoveItem();

  procedure RemoveItemByText();

  procedure RemoveItemByData();

  procedure RemoveAllItems;

  function GetItem();

  function GetSelectedIndex();

  function GetSelectedItem();

  procedure SelectItem();

  property Items []: PDXUTListBoxItem; [r]

published

  property ItemIndex: Integer; [rw]

  property SelectedIndex: Integer; [rw]

  property ScrollBarWidth: Integer; [rw]

  property Style: TDXUTLBStyle; [rw]

  property Size: Integer; [r]

end;

CDXUTListBox

CDXUTControl

TObject