Author: Norbert ADAMKO
e-mail: norris@frdsa.utc.sk
Copyright 1999
Version 1.5, 25 April 1999

ComboBoxes with flat MS Office 97 style, item images and indentation level (exactly like ComboBoxEx from Microsoft used in Windows Explorer). Does not use any additional forms for drop down part (resource saving), like many other components. Inherits from Delphi's TCustomComboBox. Great for use on toolbars and in explorer-like forms.

This component inherits from TCustomComboBox and introduces few new properties, methods, events as well as Office 97 look.

• property AlwaysShowBorder: boolean;
• property AutoDropDownWidth: boolean;
• property AutoHorizontalScroll: boolean;
• property ButtonStaysPushed: boolean;
• property DropDownWidth: integer;
• property ExtendedInterface: boolean;
• property Flat: boolean;
• property HorizontalExtent: integer;
• property ShowBorderWhenInactive: boolean;
• property ToolTip: boolean;
• property OnCloseUp: TNotifyEvent;
  
  

This component inherits from TCustomEnhComboBox and introduces few new properties and methods. This ComboBox has abilities of Microsoft's ComboBoxEx (as seen in Windows Explorer) common control (I'm trying to implement ComboBoxEx - it's a lot of work. That's why I decided to make this one.) plus all of the properties of EnhComboBox.

• property Images: TCustomImageList;
• property Indent: byte;
• property IndentLevel[Index: integer]: byte;
• property ImageIndex[Index: integer]: integer;
• property OverlayIndex[Index: integer]: integer;
• property SelectedIndex[Index: integer]: integer;
• function AddItem(paCaption: string; paData: pointer = nil; paImage: integer = -1; paIndent: byte = 0; paSelectedImage: integer = -1; paOverlayImage: integer = -1): integer;
• procedure InsertItem(paIndex: integer; paCaption: string; paData: pointer = nil; paImage: integer = -1; paIndent: byte = 0; paSelectedImage: integer = -1; paOverlayImage: integer = -1);