AddIcon

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TImageList AddIcon";
frm.Width =450;
frm.Height=300;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=
" Листайте список изображений левой и правой кнопками";

// Список изображений
iml=new TImageList();
iml.Width=iml.Height=64;
icn=new TIcon();
for (i=0;i<5;i++) {
  icn.LoadFromFile(JSPlus.HelpDir+"IMAGE\\TImageList\\"+i+".ico");
  iml.AddIcon(icn);
}
icn.Delete();

// Панель для изображения
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Color=clWhite;
pnl.Width=pnl.Height=100;
pnl.Left=(frm.ClientWidth-pnl.Width)/2;
pnl.Top =(stb.Top-pnl.Width)/2;

// Контейнер PaintBox
pbx=new TPaintBox(pnl);
pbx.Align=alClient;
pbx.OnPaint=pbx_Paint;

// Левая кнопка
btl=new TButton(frm);
btl.Caption="<";
btl.Width=btl.Height;
btl.Left=pnl.Left-btl.Width-10;
btl.Top=pnl.Top+(pnl.Height-btl.Height)/2;
btl.OnClick=btn_Click;

// Правая кнопка
btr=new TButton(frm);
btr.Caption=">";
btr.Width=btl.Width;
btr.Left=pnl.Left+pnl.Width+10;
btr.Top=btl.Top;
btr.OnClick=btn_Click;

Hand_Buttons();
frm.ShowModal();

// Устанавливает состояние кнопок
function Hand_Buttons()
{
  btl.Enabled=(iml.numTag==0) ? false : true;
  btr.Enabled=(iml.numTag==(iml.Count-1)) ? false : true;
}

// Обработчик события OnPaint
function pbx_Paint(pbx)
{
  var cnv=pbx.Canvas;
  var x=(pbx.Width -iml.Width )/2;
  var y=(pbx.Height-iml.Height)/2;

  // Очистить канву
  cnv.Brush.Style=bsSolid;
  cnv.Brush.Color=clWhite;
  cnv.FillRect(cnv.ClipRect);

  // Вывести изображение
  iml.Draw(cnv,x,y,iml.numTag);
}

// Обработчик события OnClick
function btn_Click(btn)
{
  switch (btn.Caption) {
    case "<": --iml.numTag; break;
    case ">": ++iml.numTag;
  }

  pbx_Paint(pbx);
  Hand_Buttons();
}