TPicture

var Img_Lst=new Array(
"Битовая карта",
"Пиктограмма",
"Метафайл"
);

// Главная форма
frm=new TForm();
frm.Caption="JS+ - базовый компонент TPicture";
frm.Width =525;
frm.Height=375;

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

// ListBox
lsb=new TListBox(frm);
lsb.BorderStyle=bsSingle;
lsb.SetBounds(10,10,120,stb.Top-20);
for (i=0;i<Img_Lst.length;i++)
  lsb.AddItem(Img_Lst[i]);
lsb.ItemIndex=0;
lsb.OnClick=lsb_Click;
lsb.OnMouseWheel=lsb_MouseWheel;

// Панель справа
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Color=clWhite;
pnl.Left=lsb.Left+lsb.Width+10;
pnl.Top =10;
pnl.Width =frm.ClientWidth-pnl.Left-10;
pnl.Height=lsb.Height;

// Изображение
img=new TImage(pnl);
img.Align=alClient;
img.Center=true;

lsb.SetFocus();
lsb_Click(lsb);
frm.ShowModal();

// Обработчик события OnClick
function lsb_Click(lsb)
{
  var img_Str;

  switch (lsb.ItemIndex) {
    case 0: img_Str="TBitmap\\Image.bmp"; break;
    case 1: img_Str="TIcon\\Image.ico"; break;
    case 2: img_Str="TMetafile\\Image.emf";
  }

  img.Picture.LoadFromFile(JSPlus.HelpDir+"IMAGE\\"+img_Str);
}

// Обработчик события OnMouseWheel
function lsb_MouseWheel(lsb,sft,dlt,pos,handled)
{
  if (dlt>0) {
    if (lsb.ItemIndex>0)
      --lsb.ItemIndex;
  }
  else
  if (dlt<0) {
    if ((lsb.ItemIndex+1)<lsb.Count)
      ++lsb.ItemIndex;
  }
  else
    return;

  lsb_Click(lsb);
}