------------ Дoбавленo в 11.02:
lisnic, вот вариант, который предложил olDjeka, и который описан в Wiki
Add(ImageLoader,9177862,364,301)
{
ScaleMode=0
link(onLoad,9772381:doRefresh,[(464,307)(464,195)])
link(Bitmap,9772381:Bitmap,[(377,257)(538,257)])
}
Add(PaintBox,9772381,532,189)
{
Width=50
Height=50
Color=0
ClearBeforeDraw=0
Point(WidthControls)
Point(HeightControls)
Point(doHeight)
Point(doWidth)
Point(doVisible)
Point(doColor)
link(onBeforeDraw,9177862:doDraw,[(585,195)(585,344)(352,344)(352,314)])
}
Add(MainForm,4887523,259,112)
{
Width=720
Height=479
Color=0
Caption="foto"
BorderStyle=0
DragForm=0
SavePosName="New_photo.inipozitia"
Point(onMouseDown)
Point(Handle)
Point(doWidth)
Point(doHeight)
Point(doColor)
}
Add(Button,1457487,259,301)
{
Left=35
Top=235
Width=70
Caption="Load image"
link(onClick,15517686:doExecute,[])
}
Add(Button,14875132,259,182)
{
Left=40
Top=310
Caption="size"
link(onClick,10140476:doEvent1,[])
}
Add(DoData,2072484,385,154)
{
Data=Integer(400)
link(onEventData,9772381:doHeight,[(452,160)(452,209)])
}
Add(Hub,10140476,315,182)
{
link(onEvent1,2072484:doData,[(357,188)(357,160)])
link(onEvent2,4518360:doData,[(357,195)(357,216)])
}
Add(DoData,4518360,385,210)
{
Data=Integer(400)
link(onEventData,9772381:doWidth,[])
}
Add(ODialog,15517686,308,301)
{
link(onExecute,9177862:doLoad,[])
}