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;

AdvGridHTMLSettingsDialog1.execute;

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; 

uses
  AsgGallery;

procedure TForm1.Button1Click(Sender: TObject);
var
  gg: TGridGallery;
begin
  gg := TGridGallery.Create(Application);
  if gg.ShowModal = mrOK then
    AdvStringGrid1.LoadVisualProps(gg.GalleryFile);
  gg.Free;
end;

 AdvPolyPager1.ListAutoSizeMode := asmcontrol;
  for I := 0 to AdvPolyPager1.List.Items.Count - 1 do
    AdvPolyPager1.Items[i].Width := 400;

AdvTrackBar.TickMark.ShowImageAtSteps

begin
  ThumbnailList1->BeginUpdate();
  ThumbnailList1->Thumbnails->Items->Delete(index);
  ThumbnailList1->EndUpdate();
end;

AdvToolPanelTab.Panels.Move(fromindex, toindex)

{
   TAdvStringGrid *asg;
   asg = new TAdvStringGrid(this);
   asg->Parent = this;
}

AdvStringGrid1.CellControls[2,3] := AdvGlowButton1;

var
  ctrl: TControl;

ctrl := grid.CellControls[x,y];
if Assigned(ctrl) then
begin
  FreeAndNil(ctrl);
  grid.CellControls[x,y] := nil;
end;

PlannerDatePicker1.Calendar.YearStartAt.ISOWeekNumber:= true;

uses
  shellapi;

procedure TForm186.AdvSmoothPanel1AnchorClick(Sender: TObject; Anchor:
string);
begin
  ShellExecute(0, 'open', pchar(anchor), nil, nil, SW_SHOWNORMAL); 
end;