Ravilr писал(а):
надо узнать у г-на Assasin, какие типы данных типы поддерживают !Тип TData
------------ Дoбавленo в 14.08:
Попробуй так
Add(MainForm,7232273,147,287)
{
Width=185
Height=351
Position=1
link(onCreate,15435995:doLoadFromFile,[])
}
Add(Image,14922626,420,294)
{
Width=164
Height=314
}
Add(Hub,9233413,336,308)
{
link(onEvent1,7933201:doLoadFromStream,[])
link(onEvent2,7933201:doBitmap,[])
}
Add(Jpeg,7933201,364,294)
{
Point(doLoadFromStream)
Point(doBitmap)
Point(Stream)
link(onBitmap,14922626:doLoad,[])
link(Stream,15076656:%Image2%,[(370,282)(324,282)(324,352)(279,352)])
}
Add(Type_MultiMem,15076656,273,308)
{
Vars=#8:%Image2%|
Name="Files"
Point(GType)
link(onMem,9233413:doEvent1,[])
link(GType,15435995:FType,[(279,296)(265,296)(265,338)(230,338)])
}
Add(Type_Load,15435995,224,294)
{
FileName="Compil.picp"
Point(onError)
Point(onLoad)
link(onLoad,15076656:doMem,[])
}