если кому интересно,
Add(MainForm,2953706,56,77)
{
Width=800
Height=410
}
Add(Button,11705492,56,126)
{
Left=5
Top=5
Caption="load"
link(onClick,16192949:doExecute,[])
}
Add(ODialog,16192949,98,126)
{
link(onExecute,15093867:doEvent1,[])
}
Add(ImageLoader,5302045,273,182)
{
DrawSource=1
link(onLoad,10019013:doEvent1,[(317,188)(317,222)(213,222)(213,195)])
link(FileName,16011513:Value,[])
link(Bitmap,10282388:Var1,[(286,163)])
}
Add(Memory,16011513,273,119)
{
}
Add(Hub,15093867,147,126)
{
OutCount=4
link(onEvent1,16011513:doClear,[])
link(onEvent2,16011513:doValue,[(244,139)(244,125)])
link(onEvent3,5302045:doLoad,[(262,146)(262,188)])
link(onEvent4,5353531:doFileName,[(248,153)(248,283)(177,283)(177,328)])
}
Add(Button,15207672,105,301)
{
Left=5
Top=30
Caption="save"
link(onClick,12167460:doEvent1,[])
}
Add(Memory,78851,273,308)
{
}
Add(Hub,11856179,238,315)
{
OutCount=3
link(onEvent1,78851:doClear,[])
link(onEvent2,78851:doValue,[(262,328)(262,314)])
link(onEvent3,201923:doSave,[(264,335)(264,391)])
}
Add(SDialog,5353531,189,315)
{
Filter="*.jpg"
Point(doFileName)
link(onExecute,11856179:doEvent1,[])
}
Add(Jpeg,201923,455,378)
{
Quality=85
Point(FileName)
Point(doLoadFromBitmap)
link(FileName,78851:Value,[(461,362)(279,362)])
}
Add(DoData,7938655,392,301)
{
link(onEventData,201923:doLoadFromBitmap,[(436,307)(436,398)])
link(Data,15716393:ImageBitmap,[])
}
Add(Hub,12167460,147,301)
{
link(onEvent1,7938655:doData,[])
link(onEvent2,5353531:doExecute,[(175,314)(175,321)])
}
Add(Hub,10019013,224,189)
{
OutCount=3
link(onEvent1,5302045:doDraw,[])
}
Add(ChildPanel,1861056,364,119)
{
}
BEGIN_SDK
Add(EditMulti,13645886,21,21)
{
VarCount=1
link(Var1,12368982:Handle,[(27,141)(34,141)])
}
Add(Panel,12368982,28,28)
{
Left=420
Top=5
Width=350
Height=350
Color=16777215
BorderWidth=0
BevelInner=0
BevelWidth=0
Point(Handle)
}
END_SDK
Add(ScreenShort,3009942,350,231)
{
link(Handle,10282388:Var2,[])
link(onCapture,15716393:doLoad,[])
}
Add(Button,13503184,294,231)
{
Left=5
Top=355
Width=80
link(onClick,3009942:doCapture,[])
}
Add(GetDataEx,10282388,343,154)
{
Angle=1
link(Data,1861056:Var1,[(370,163)])
}
Add(Image,15716393,392,231)
{
Left=5
Top=55
Width=155
Height=155
}
а может вам еще удасться ее упростить
------------ Дoбавленo:
одно фигово, маленькие изображения растягиваются