uses
  GDIPPictureContainerEditor;

procedure TForm4.Button1Click(Sender: TObject);
var
  GDIPPicEdit: TGDIPPictureContainerEditor;
  p: TPictureCollection;
begin
  GDIPPicEdit := TGDIPPictureContainerEditor.Create(Application);
  try
    GDIPPicEdit.PictureCol := GDIPPictureContainer1.Items;
    GDIPPicEdit.Init;
    GDIPPicEdit.ShowModal;
  finally
    GDIPPicEdit.Free;
  end;
end;

with GDIPPictureContainer.Items.Add do
begin
Picture.LoadFromFile('myimage.png’);
Name := 'NEW';
end;
AdvSmoothListBox.Items.Add.Caption := 'This uses the new image : ';

with GDIPPictureContainer.Items.Items[0].Free; 

var
  d: TDateTime;
begin
  d := Now;
  AdvSmoothCalendar1.SelectDisjunctDates([d, d+2, d+4]);
end;

var
  I: Integer;
  d: TDateTime;
begin
  for I := 0 to Length(AdvSmoothCalendar1.DisjunctDates) - 1 do
  begin
    d := AdvSmoothCalendar1.DisjunctDates[i];
    outputdebugstring(pchar(datetostr(d)));
  end;

procedure TForm2.Button1Click(Sender: TObject);
var
  fd: TAdvSmoothFillEditorDialog;
begin
  fd := TAdvSmoothFillEditorDialog.Create(self);

  try
    fd.Fill := AdvSmoothPanel1.Fill;

    if fd.Execute then
      AdvSmoothPanel1.Fill.Assign(fd.Fill);
  finally
    fd.Free;
  end;
end;

TAdvSmoothFillEditorDialog* editor = new TAdvSmoothFillEditorDialog(this);
editor->Fill = AdvSmoothPanel1->Fill;
editor->Execute();

AdvSmoothDatePicker1.Date := 0;
AdvSmoothDatePicker1.Clear;

procedure TForm1.AdvSmoothDock1ItemStartDrag(Sender: TObject;
  DragItem: TAdvSmoothDockItem; var Allow: Boolean);
begin
  Allow := false;
end;

var
  i: integer;
begin
  AdvSmoothListBox1.Items.BeginUpdate;
  for I := 0 to AdvSmoothListBox1.Items.Count - 1 do
  begin
    AdvSmoothListBox1.Items[i].Caption := 'Item Updated !';
  end;
  AdvSmoothListBox1.Items.EndUpdate;