TOvcBaseComboBox

type TOvcBaseComboBox = class(TCustomComboBox)

protected

  FAutoSearch: Boolean;

  FBorders: TOvcBorders;

  FDrawingEdit: Boolean;

  FDroppedWidth: Integer;

  FHotTrack: Boolean;

  FHTBorder: Boolean;

  FHTColors: TOvcHTColors;

  FKeyDelay: Integer;

  FItemHeight: Integer;

  FLabelInfo: TOvcLabelInfo;

  FMRUListColor: TColor;

  FMRUListCount: Integer;

  FStyle: TOvcComboStyle;

  FAfterEnter: TNotifyEvent;

  FAfterExit: TNotifyEvent;

  FOnMouseWheel: TMouseWheelEvent;

  FOnSelChange: TNotifyEvent;

  FEventActive: Boolean;

  FIsFocused: Boolean;

  FIsHot: Boolean;

  FLastKeyWasBackSpace: Boolean;

  FMRUList: TOvcMRUList;

  FList: TStringList;

  FListIndex: Integer;

  FSaveItemIndex: Integer;

  FStandardHomeEnd: Boolean;

  FTimer: Integer;

  FCurItemIndex: Integer;

  procedure HotTimerEvent();

  procedure TimerEvent();

  procedure SetAbout();

  procedure SetDroppedWidth();

  procedure SetHotTrack();

  procedure SetItemHeight();

  function GetListIndex;

  procedure SetListIndex();

  function GetList;

  function GetMRUList;

  procedure SetKeyDelay();

  procedure SetMRUListCount();

  procedure SetOcbStyle();

  procedure SetStandardHomeEnd();

  procedure AddItemToMRUList();

  procedure CheckHot();

  function GetAttachedLabel;

  procedure LabelAttach();

  procedure LabelChange();

  procedure PositionLabel;

  procedure RecalcHeight;

  procedure SetHot;

  procedure UpdateMRUList;

  procedure UpdateMRUListModified;

  procedure MRUListUpdate();

  procedure OMAssignLabel(); message;

  procedure OMPositionLabel(); message;

  procedure OMRecordLabelPosition(); message;

  procedure OMAfterEnter(); message;

  procedure OMAfterExit(); message;

  procedure CNCommand(); message;

  procedure CNDrawItem(); message;

  procedure WMKillFocus(); message;

  procedure WMMeasureItem(); message;

  procedure WMMouseWheel(); message;

  procedure WMSetFocus(); message;

  procedure CMVisibleChanged(); message;

  procedure CMFontChanged(); message;

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  DefaultLabelPosition: TOvcLabelPosition;

  procedure ComboWndProc(); override;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure DestroyWnd; override;

  procedure DoOnMouseWheel(); dynamic;

  procedure DoExit; override;

  procedure DrawItem(); override;

  procedure KeyDown(); override;

  procedure Loaded; override;

  procedure MeasureItem(); override;

  procedure Notification(); override;

  procedure WndProc(); override;

  procedure SelectionChanged; virtual;

  procedure BorderChanged();

  procedure Paint;

  procedure PaintBorders;

  procedure PaintWindow(); override;

  procedure WMPaint(); message;

  procedure SetHTBorder();

  procedure SetHTColors();

  property AutoSearch: Boolean; [rw]

  property ItemHeight: Integer; [rw]

  property KeyDelay: Integer; [rw]

  property LabelInfo: TOvcLabelInfo; [rw]

  property MRUListColor: TColor; [rw]

  property MRUListCount: Integer; [rw]

  property Style: TOvcComboStyle; [rw]

  property AfterEnter: TNotifyEvent; [rw]

  property AfterExit: TNotifyEvent; [rw]

  property OnMouseWheel: TMouseWheelEvent; [rw]

  property OnSelectionChange: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  property DrawingEdit: Boolean; [r]

  procedure SetBounds(); override;

  function AddItem();

  procedure AssignItems();

  procedure ClearItems;

  procedure InsertItem();

  procedure RemoveItem();

  procedure ClearMRUList;

  procedure ForceItemsToMRUList();

  property AttachedLabel: TOvcAttachedLabel; [r]

  property DroppedWidth: Integer; [rw]

  property HotTrack: Boolean; [rw]

  property List: TStrings; [r]

  property ListIndex: Integer; [rw]

  property MRUList: TStrings; [r]

  property StandardHomeEnd: Boolean; [rw]

published

  property Borders: TOvcBorders; [rw]

  property HotTrackBorder: Boolean; [rw]

  property HotTrackColors: TOvcHTColors; [rw]

  property AutoComplete;

end;

TOvcBaseComboBox

TObject