TOvcTCCustomComboBox

type TOvcTCCustomComboBox = class(TOvcTCBaseString)

protected

  FDropDownCount: Integer;

  FEdit: TOvcTCComboBoxEdit;

  FItems: TStrings;

  FMaxLength: Word;

  FStyle: TComboBoxStyle;

  FAutoAdvanceChar: Boolean;

  FAutoAdvanceLeftRight: Boolean;

  FHideButton: Boolean;

  FSaveStringValue: Boolean;

  FSorted: Boolean;

  FShowArrow: Boolean;

  FUseRunTimeItems: Boolean;

  FOnDropDown: TNotifyEvent;

  FOnDrawItem: TDrawItemEvent;

  FOnMeasureItem: TMeasureItemEvent;

  function GetCellEditor; override;

  procedure SetShowArrow();

  procedure SetItems();

  procedure SetSorted();

  procedure DrawArrow();

  procedure DrawButton();

  procedure tcPaint(); override;

  property AutoAdvanceChar: Boolean; [rw]

  property AutoAdvanceLeftRight: Boolean; [rw]

  property DropDownCount: Integer; [rw]

  property HideButton: Boolean; [rw]

  property Items: TStrings; [rw]

  property MaxLength: Word; [rw]

  property SaveStringValue: Boolean; [rw]

  property Sorted: Boolean; [rw]

  property ShowArrow: Boolean; [rw]

  property Style: TComboBoxStyle; [rw]

  property UseRunTimeItems: Boolean; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnDropDown: TNotifyEvent; [rw]

  property OnDrawItem: TDrawItemEvent; [rw]

  property OnMeasureItem: TMeasureItemEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function CreateEditControl; virtual;

  function EditHandle; override;

  procedure EditHide; override;

  procedure EditMove(); override;

  procedure SaveEditedData(); override;

  procedure StartEditing(); override;

  procedure StopEditing(); override;

end;

TOvcTCCustomComboBox

TOvcTCBaseString

TOvcBaseTableCell

TOvcTableCellAncestor

TObject