Схема на любой список расширений
Add(MainForm,2953706,154,133)
{
}
Add(Edit,6343582,602,189)
{
Left=60
Top=205
Width=255
Height=45
}
Add(DropFile,5850189,154,175)
{
Point(doAccept)
link(onDropFile,14238849:doEvent1,[])
}
Add(Image,16018053,602,238)
{
Left=5
Width=365
Height=195
}
Add(Hub,8976562,490,189)
{
link(onEvent1,6343582:doText,[])
link(onEvent2,8442349:doLoad,[(526,202)(526,244)])
}
Add(Img_Loader,8442349,547,238)
{
link(onLoad,16018053:doLoad,[])
}
Add(StrList,1623077,329,91)
{
Strings=#3:png|3:jpg|3:bmp|3:tif|3:ico|3:gif|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,6509162:doCase,[])
}
Add(IndexToChanel,2395403,434,182)
{
Point(Index)
link(onEvent2,8976562:doEvent1,[])
link(Index,8830520:State,[])
}
Add(Hub,14238849,231,175)
{
link(onEvent1,15998837:doPart,[(256,181)(256,139)])
link(onEvent2,2395403:doEvent,[])
}
Add(FilePartElm,15998837,273,133)
{
Mode=4
link(onPart,1623077:doGetIndex,[])
}
Add(Case,6509162,378,98)
{
Value=Integer(-1)
link(onNextCase,8830520:doReset,[])
link(onTrue,8830520:doOn,[])
}
Add(Switch,8830520,434,91)
{
DataOn=Integer(0)
DataOff=Integer(1)
Default=0
Point(State)
Point(doOn)
}