*Простой просмотрщик картинок
Make(delphi)
ver(4.04 build 182)
Add(MainForm,7470862,238,182)
{
 Width=631
 Height=453
 Caption="View images"
 WindowsState=2
}
Add(ListBox,11445418,308,126)
{
 Top=39
 Width=155
 Height=380
 Align=1
 DataType=1
 link(onClick,16180666:doWork2,[])
}
Add(Image,10259938,539,140)
{
 Left=155
 Top=39
 Width=468
 Height=380
 Align=5
 AutoSize=0
 ViewStyle=0
}
Add(MultiElementEx,11225979,238,126)
{
 @Hint=#21:Отбор файлов-картинок|
 link(onPart,11445418:doAdd,[])
 link(doClear,11445418:doClear,[])
}
BEGIN_SDK
  Add(EditMultiEx,8058889,21,21)
  {
   WorkCount=#8:doEvent1|
   EventCount=#6:onPart|7:doClear|
   Width=545
   link(doEvent1,15384560:doEvent1,[(35,27)(35,104)])
  }
  Add(FileSearch,3957481,98,105)
  {
   SubDir=1
   link(onSearch,9442973:doEvent1,[])
  }
  Add(FilePartElm,246713,168,105)
  {
   Mode=4
   link(onPart,3918358:doModify,[])
  }
  Add(Hub,15384560,49,98)
  {
   link(onEvent1,8058889:doClear,[(315,104)(315,41)])
   link(onEvent2,3957481:doSearch,[])
  }
  Add(Position,14611622,301,105)
  {
   ZeroPos=0
   link(Str,12789174:Value,[])
  }
  Add(If_else,11810737,301,154)
  {
   Op2=Integer(0)
   link(onFalse,5380683:doPart,[])
   link(Op1,14611622:Position,[])
  }
  Add(Hub,9442973,140,105)
  {
   link(onEvent1,246713:doPart,[])
   link(onEvent2,11810737:doCompare,[(163,118)(163,160)])
  }
  Add(StrCase,3918358,224,105)
  {
   link(onModify,14611622:doSearch,[])
  }
  Add(FilePartElm,5380683,343,161)
  {
   link(onPart,8058889:onPart,[(457,167)(457,34)])
  }
  Add(Memory,12789174,301,49)
  {
   Default=String(bmpgificowmfemfxbmtiffpngjpgjpeg)
   AddHint(-226,-3,188,13,Default)
  }
END_SDK
Add(ImageLoader,1262287,483,133)
{
 ScaleMode=0
 DrawSource=2
 link(onLoad,1262287:doDraw,[(523,139)(523,124)(471,124)(471,146)])
 link(onDraw,10259938:doLoad,[])
}
Add(ChildPanel,11522291,182,126)
{
 link(onEvent1,11225979:doEvent1,[])
 link(onEvent2,7470862:doClose,[(227,139)(227,209)])
 link(onEvent3,2200531:doEvent1,[(223,146)(223,230)])
 link(onEvent4,11160421:doStop,[(219,153)(219,244)])
}
BEGIN_SDK
  Add(EditMulti,11351306,21,21)
  {
   EventCount=4
   VarCount=1
   Width=377
   link(Var1,328545:Text,[(27,165)(223,165)])
  }
  Add(Panel,13876184,35,105)
  {
   Left=35
   Top=105
   Width=572
   Height=41
   Align=2
  }
  Add(Button,8112605,98,105)
  {
   Left=5
   Top=10
   Caption="Browse"
   link(onClick,13239647:doBrowse,[])
  }
  Add(Edit,328545,217,77)
  {
   Left=75
   Top=10
   Width=345
   link(onChange,11351306:onEvent1,[(285,83)(285,27)])
  }
  Add(Browse,13239647,168,105)
  {
   Title="Выбор папки с изображениями"
   link(onBrowse,328545:doText,[(208,111)(208,83)])
   link(onCancel,11351306:onEvent2,[(296,118)(296,34)])
  }
  Add(Button,5286676,259,147)
  {
   Left=430
   Top=10
   Caption="Слайды"
   link(onClick,11351306:onEvent3,[(306,153)(306,41)])
  }
  Add(Button,9735895,315,147)
  {
   Left=490
   Top=10
   Caption="Стоп"
   link(onClick,11351306:onEvent4,[(373,153)(373,48)])
  }
END_SDK
Add(HubEx,16180666,406,133)
{
 link(onEvent,9812295:doString,[])
}
Add(FormatStr,9812295,427,133)
{
 @Hint=#42:Формирование полного пути к файлу-картинке|
 Mask="%1\%2"
 link(onFString,1262287:doLoad,[])
 link(Str1,11522291:Var1,[(433,107)(168,107)(168,167)(188,167)])
}
Add(Hub,2200531,238,224)
{
 link(onEvent1,11503817:doMax,[(305,230)(305,258)])
 link(onEvent2,11160421:doTimer,[])
}
Add(Counter,11503817,315,231)
{
 Max=0
 Point(Max)
 Point(doMax)
 link(onNext,6930439:doRead,[])
 link(Max,11445418:Count,[])
}
Add(Timer,11160421,266,231)
{
 Enable=1
 link(onTimer,11503817:doNext,[])
}
Add(ArrayRW,6930439,364,231)
{
 link(onRead,16180666:doWork3,[(410,237)])
 link(Array,11445418:Array,[(370,201)(328,201)])
}