AdvSmoothDatePicker1.Date := 0;
AdvSmoothDatePicker1.Clear;

var
  I: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetBitmap(I, bmp);
    AdvSmoothDock1.Items.Add.Image.Assign(bmp);
  end;
  bmp.Free;

var
  I: Integer;
  ico: TIcon;
  ms: TMemoryStream;
begin
  ico := TIcon.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetIcon(I, ico);
    ms := TMemoryStream.Create;
    ico.SaveToStream(ms);
    AdvSmoothDock1.Items.Add.Image.LoadFromStream(ms);
    ms.Free;
  end;
  ico.Free;

var
  I: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetBitmap(I, bmp);
    AdvSmoothListBox1.Items.Add.Image.Assign(bmp);
  end;
  bmp.Free;

var
  I: Integer;
  ico: TIcon;
  ms: TMemoryStream;
begin
  ico := TIcon.Create;
  for I := 0 to ImageList1.Count - 1 do
  begin
    ImageList1.GetIcon(I, ico);
    ms := TMemoryStream.Create;
    ico.SaveToStream(ms);
    AdvSmoothListBox1.Items.Add.Image.LoadFromStream(ms);
    ms.Free;
  end;
  ico.Free;

  advtouchkeyboard1.Zoom(1.5,1.5); 

procedure TForm2.AdvColorSelector1Select(Sender: TObject; Index: Integer;
  Item: TAdvSelectorItem);
begin
  if item.Index = 41 then
  begin
    if colordialog1.Execute then
      AdvColorSelector1.SelectedColor := colordialog1.Color;
  end;
end;

Application.HintHidePause
Application.HintPause

procedure TForm1.AdvListView1GetFormat(Sender: TObject; ACol: Integer;
  var AStyle: TSortStyle; var aPrefix, aSuffix: string); 
begin
  if ACol = X then
    AStyle := ssAlphaNoCase;
end;