TD2ListBox

type TD2ListBox = class(TD2ScrollBox)

protected

  FColumns: Integer;

  FItemWidth: Single;

  FItemHeight: Single;

  FListStyle: TD2ListStyle;

  FFirstSelect: TD2ListBoxItem;

  FSelection: TD2VisualObject;

  FSelections: TList;

  FOddFill: TD2Brush;

  FItemIndex: Integer;

  procedure SortItems; virtual;

  procedure SetItemIndex(); virtual;

  procedure KeyDown(); override;

  procedure KeyUp(); override;

  procedure DragOver(); override;

  procedure DragDrop(); override;

  procedure ApplyStyle; override;

  procedure FreeStyle; override;

  procedure EnterFocus; override;

  procedure KillFocus; override;

  function GetData; override;

  procedure SetData(); override;

  function GetContentBounds; override;

  procedure DoContentPaint();

  procedure HScrollChange(); override;

  procedure VScrollChange(); override;

  procedure ContentAddObject(); override;

  procedure ContentBeforeRemoveObject(); override;

  procedure ContentRemoveObject(); override;

  procedure UpdateSelection;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  function ItemClass; override;

  procedure Clear; virtual;

  procedure SelectAll;

  procedure ClearSelection;

  procedure SelectRange();

  function ItemByPoint();

  function ItemByIndex();

  procedure Exchange2d();

  procedure AddObject(); override;

  property Count: Integer; [r]

  property Selected: TD2ListBoxItem; [r]

  property Items []: TD2ListBoxItem; [r]

published

  property Resource: string;

  property AllowDrag: Boolean; [rw]

  property CanFocused: Boolean;

  property DisableFocusEffect: Boolean;

  property TabOrder: TTabOrder;

  property AlternatingRowBackground: Boolean; [rw]

  property Columns: Integer; [rw]

  property HideSelectionUnfocused: Boolean; [rw]

  property ItemIndex: Integer; [rw]

  property ItemWidth: Single; [rw]

  property ItemHeight: Single; [rw]

  property ListStyle: TD2ListStyle; [rw]

  property MultiSelect: Boolean; [rw]

  property Sorted: Boolean; [rw]

  property ShowCheckboxes: Boolean; [rw]

  property BindingSource: TD2Control;

  property OnChange: TNotifyEvent; [rw]

  property OnChangeCheck: TNotifyEvent; [rw]

  property OnCompare: TOnCompareListBoxItemEvent; [rw]

  property OnDragChange: TOnListBoxDragChange; [rw]

end;

TD2ListBox

TD2ScrollBox

TD2Control

TD2VisualObject

TD2Object

TObject