uses
  shellapi;

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

PlannerDatePicker1.Calendar.YearStartAt.ISOWeekNumber:= true;

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;

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

AdvToolPanelTab.Panels.Move(fromindex, toindex)

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

AdvTrackBar.TickMark.ShowImageAtSteps

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

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; 

AdvGridHTMLSettingsDialog1.execute;

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;