procedure TForm1.Button1Click(Sender: TObject); 
begin
  showmessage(  IntToStr(AdvMultiColumnDropDown1.ItemIndex) + ':'+ AdvMultiColumnDropDown1.Text); 
end;

procedure TForm1.FormCreate(Sender: TObject); 
begin
  AdvMultiColumnDropDown1.Columns.Clear;
  AdvMultiColumnDropDown1.Columns.Add;
  AdvMultiColumnDropDown1.Columns.Add;
  AdvMultiColumnDropDown1.Columns[0].Header := 'Col 1';
  AdvMultiColumnDropDown1.Columns[1].Header := 'Col 2';

  AdvMultiColumnDropDown1.Items.Clear;
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'A,1';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'B,2';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'C,3';
  AdvMultiColumnDropDown1.Items.Add.Text.CommaText := 'D,4'; 
end;

AdvTimePickerDropDown1.ShowTimePicker := true; 
AdvTimePickerDropDown1.ShowSeconds := true;

AdvMultiColumnDropDown1.DropDownAutoWidth := true; 
with AdvMultiColumnDropDown1.Columns.Add do 
begin 
  Header := 'Column 1'; 
  AutoSize := true; 
end; 
with AdvMultiColumnDropDown1.Columns.Add do 
begin 
  Header := 'Column 2'; 
  AutoSize := true; 
end; 
with AdvMultiColumnDropDown1.Columns.Add do 
begin 
  Header := 'Column 3'; 
  AutoSize := true; 
end; 
with AdvMultiColumnDropDown1.Columns.Add do 
begin 
  Header := 'Column 4'; 
  ColumnType := ctImage; 
end; 

it := AdvMultiColumnDropDown1.Items.Add; 
it.Text.Add('Item 1 at column 1'); 
it.Text.Add('Item 1 at column 2'); 
it.Text.Add('Item 1 at column 3'); 
it.ImageIndex := 0; 

it := AdvMultiColumnDropDown1.Items.Add; 
it.Text.Add('Item 2 at column 1'); 
it.Text.Add('Item 2 at column 2'); 
it.Text.Add('Item 2 at column 3');
it.ImageIndex := 1;

var 
  it: TDropDownItem; 
begin 
  AdvMultiColumnDropDown1.DropDownAutoWidth := true; 
  AdvMultiColumnDropDown1.Columns.Add.Header := 'Column 1'; 
  AdvMultiColumnDropDown1.Columns.Add.Header := 'Column 2'; 
  AdvMultiColumnDropDown1.Columns.Add.Header := 'Column 3'; 

  it := AdvMultiColumnDropDown1.Items.Add; 
  it.Text.Add('Item 1 at column 1'); 
  it.Text.Add('Item 1 at column 2'); 
  it.Text.Add('Item 1 at column 3'); 

  it := AdvMultiColumnDropDown1.Items.Add; 
  it.Text.Add('Item 2 at column 1'); 
  it.Text.Add('Item 2 at column 2'); 
  it.Text.Add('Item 2 at column 3'); 
end;

var 
  bOk, bCancel: TFooterButton; 
begin 
  with AdvMemoDropDown1.DropDownFooter do 
  begin 
    bOk := Buttons.Add; 
    bOk.Caption := 'Ok'; 
    bOk.ModalResult := mrOk; 

    bCancel := Buttons.Add; 
    bCancel.Caption := 'Cancel'; 
    bCancel.ModalResult := mrCancel; 
  end; 
end;

with AdvImagePickerDropDown1.Items.Add do 
begin 
  Caption := 'Image 1'; 
  Image.LoadFromFile('Image1.jpg'); 
end;

with AdvDetailDropDown1.Items.Add do 
begin 
  Caption := 'This is an item'; 
  Notes := 'This is the notes section'; 
  ImageIndex := 1; 
end;

procedure TForm1.AdvControlDropDown1Change(Sender: TObject); 
begin 
  Edit1.Text := AdvControlDropDown1.Text; 
end;

AdvControlDropDown1.Control := Panel1; 

with AdvColorPickerDropDown1.Colors.Add do 
begin 
  Color := clWebSnow; 
  Caption := 'Web Snow';
end;

AdvColorPickerDropDown1.SelectedColor := clLime; 
//OR 
AdvColorPickerDropDown1.ItemIndex := 10; 

var 
  c: TColor; 
  i: Integer; 
begin 
  c := AdvColorPickerDropDown1.SelectedColor; 
  //OR 
  I := AdvColorPickerDropDown1.ItemIndex; 
  c := AdvColorPickerDropDown1.Colors[i].Color; 
end;

AdvColorPickerDropDown1.ColorSelectionStyle := csColorCube;