TOvcCustomVirtualListBox

type TOvcCustomVirtualListBox = class(TOvcCustomControlEx)

protected

  FItemIndex: LongInt;

  FAutoRowHeight: Boolean;

  FBorderStyle: TBorderStyle;

  FColumns: Integer;

  FFillColor: TColor;

  FHeader: string;

  FHeaderColor: TOvcColors;

  FIntegralHeight: Boolean;

  FMultiSelect: Boolean;

  FNumItems: LongInt;

  FOwnerDraw: Boolean;

  FProtectColor: TOvcColors;

  FRowHeight: Integer;

  FScrollBars: TScrollStyle;

  FSelectColor: TOvcColors;

  FShowHeader: Boolean;

  FSmoothScroll: Boolean;

  FTopIndex: LongInt;

  FUseTabStops: Boolean;

  FWheelDelta: Integer;

  FOnCharToItem: TCharToItemEvent;

  FOnClickHeader: THeaderClickEvent;

  FOnDrawItem: TDrawItemEvent;

  FOnGetItem: TGetItemEvent;

  FOnGetItemColor: TGetItemColorEvent;

  FOnGetItemStatus: TGetItemStatusEvent;

  FOnIsSelected: TIsSelectedEvent;

  FOnSelect: TSelectEvent;

  FOnTopIndexChanged: TTopIndexChanged;

  FOnUserCommand: TUserCommandEvent;

  lAnchor: LongInt;

  lDivisor: LongInt;

  lDlgUnits: Integer;

  lFocusedIndex: LongInt;

  lHaveHS: Boolean;

  lHaveVS: Boolean;

  lHDelta: LongInt;

  lHighIndex: LongInt;

  lNumTabStops: 0..vlbMaxTabStops;

  lRows: Integer;

  lString: TBuffer;

  lTabs: TTabStopArray;

  lUpdating: Integer;

  lVSHigh: Integer;

  lVMargin: Integer;

  MousePassThru: Boolean;

  procedure SetAutoRowHeight();

  procedure SetBorderStyle();

  procedure SetColumns();

  procedure SetHeader();

  procedure SetIntegralHeight();

  procedure SetMultiSelect(); virtual;

  procedure InternalSetNumItems();

  procedure SetNumItems();

  procedure SetRowHeight();

  procedure SetScrollBars(); virtual;

  procedure SetShowHeader();

  procedure vlbAdjustIntegralHeight;

  procedure vlbCalcFontFields; virtual;

  procedure vlbClearAllItems;

  procedure vlbClearSelRange();

  procedure vlbColorChanged();

  procedure vlbDragSelection();

  procedure vlbDrawFocusRect();

  procedure vlbDrawHeader;

  procedure vlbExtendSelection();

  procedure vlbHScrollPrim();

  procedure vlbInitScrollInfo;

  procedure vlbMakeItemVisible();

  procedure vlbNewActiveItem();

  function vlbScaleDown();

  function vlbScaleUp();

  procedure vlbSelectRangePrim();

  procedure vlbSetAllItemsPrim();

  procedure vlbSetFocusedIndex();

  procedure vlbSetHScrollPos;

  procedure vlbSetHScrollRange;

  procedure vlbSetSelRange();

  procedure vlbSetVScrollPos;

  procedure vlbSetVScrollRange;

  procedure vlbToggleSelection();

  procedure vlbValidateItem();

  procedure vlbVScrollPrim();

  procedure CMCtl3DChanged(); message;

  procedure CMFontChanged(); message;

  procedure WMChar(); message;

  procedure WMEraseBkgnd(); message;

  procedure WMGetDlgCode(); message;

  procedure WMHScroll(); message;

  procedure WMKeyDown(); message;

  procedure WMKillFocus(); message;

  procedure WMLButtonDown(); message;

  procedure WMLButtonDblClk(); message;

  procedure WMMouseActivate(); message;

  procedure WMSetFocus(); message;

  procedure WMSize(); message;

  procedure WMVScroll(); message;

  procedure LBGetCaretIndex(); message;

  procedure LBGetCount(); message;

  procedure LBGetCurSel(); message;

  procedure LBGetItemHeight(); message;

  procedure LBGetItemRect(); message;

  procedure LBGetSel(); message;

  procedure LBGetTopIndex(); message;

  procedure LBResetContent(); message;

  procedure LBSelItemRange(); message;

  procedure LBSetCurSel(); message;

  procedure LBSetSel(); message;

  procedure LBSetTabStops(); message;

  procedure LBSetTopIndex(); message;

  procedure ChangeScale(); override;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure DragCanceled; override;

  procedure Paint; override;

  procedure WndProc(); override;

  function DoOnCharToItem(); dynamic;

  procedure DoOnClickHeader(); dynamic;

  procedure DoOnDrawItem(); virtual;

  function DoOnGetItem(); virtual;

  procedure DoOnGetItemColor(); virtual;

  function DoOnGetItemStatus(); virtual;

  function DoOnIsSelected(); virtual;

  procedure DoOnMouseWheel(); override;

  procedure DoOnSelect(); dynamic;

  procedure DoOnTopIndexChanged(); dynamic;

  procedure DoOnUserCommand(); dynamic;

  procedure SetItemIndex(); virtual;

  procedure SetTopIndex(); virtual;

  procedure ForceTopIndex(); virtual;

  procedure SimulatedClick; virtual;

  function IsValidIndex();

  property AutoRowHeight: Boolean; [rw]

  property BorderStyle: TBorderStyle; [rw]

  property Columns: Integer; [rw]

  property Header: string; [rw]

  property HeaderColor: TOvcColors; [rw]

  property IntegralHeight: Boolean; [rw]

  property MultiSelect: Boolean; [rw]

  property NumItems: LongInt; [rw]

  property OwnerDraw: Boolean; [rw]

  property ProtectColor: TOvcColors; [rw]

  property RowHeight: Integer; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property SelectColor: TOvcColors; [rw]

  property ShowHeader: Boolean; [rw]

  property UseTabStops: Boolean; [rw]

  property WheelDelta: Integer; [rw]

  property OnCharToItem: TCharToItemEvent; [rw]

  property OnClickHeader: THeaderClickEvent; [rw]

  property OnDrawItem: TDrawItemEvent; [rw]

  property OnGetItem: TGetItemEvent; [rw]

  property OnGetItemColor: TGetItemColorEvent; [rw]

  property OnGetItemStatus: TGetItemStatusEvent; [rw]

  property OnIsSelected: TIsSelectedEvent; [rw]

  property OnSelect: TSelectEvent; [rw]

  property OnTopIndexChanged: TTopIndexChanged; [rw]

  property OnUserCommand: TUserCommandEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate; virtual;

  procedure CenterCurrentLine;

  procedure CenterLine();

  procedure DeselectAll;

  procedure DrawItem();

  procedure EndUpdate; virtual;

  procedure InsertItemsAt();

  procedure DeleteItemsAt();

  procedure InvalidateItem();

  function ItemAtPos();

  procedure Scroll();

  procedure SelectAll;

  procedure SetBounds(); override;

  procedure SetTabStops();

  property Canvas;

  property ItemIndex: LongInt; [rw]

  property FillColor: TColor; [rw]

  property SmoothScroll: Boolean; [rw]

  property TopIndex: LongInt; [rw]

end;

TOvcCustomVirtualListBox

TOvcCustomControlEx

TOvcCustomControl

TObject