Andrej77rv писал(а):
Как создать эффект выдержки фотографий с веб-камеры?Andrej77rv писал(а):
а нужно чтобы свет от пикселей как-бы накоплялся.Не знаю правильно я тебя понял или нет.
Add(Label,267263,175,49)
{
Width=818
Height=50
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,15512386,259,189)
{
Width=834
Height=405
Point(onClose)
Point(Handle)
link(onCreate,13535578:doConnect,[])
link(onClose,13535578:doDisConnect,[])
}
Add(WebCam,13535578,343,203)
{
Point(doEditCopy)
link(WinHandle,1185434:Handle,[])
}
Add(Timer,11660298,259,231)
{
Interval=100
Point(doInterval)
link(onTimer,10077442:doEvent1,[])
}
Add(Clipboard,106259,413,189)
{
}
Add(Hub,10077442,308,231)
{
link(onEvent1,13535578:doEditCopy,[(333,237)(333,223)])
link(onEvent2,4305273:doResize,[])
}
Add(Img_AlphaBmp,6101372,476,238)
{
DrawSource=1
Point(doAlphaBlendValue)
link(Bitmap,4357494:Handle,[])
}
Add(Image,1185434,350,147)
{
Top=50
Width=400
Height=300
Point(Handle)
}
Add(Resize,4305273,420,238)
{
Width=400
Height=300
link(onResult,6101372:doDraw,[])
link(Bitmap,106259:Bitmap,[])
}
Add(Image,4357494,469,133)
{
Left=400
Top=50
Width=400
Height=300
Color=0
Point(Handle)
Point(doRefresh)
}
Add(Button,11338000,413,147)
{
Left=730
Top=10
Height=30
Caption="Сброс"
link(onClick,4357494:doRefresh,[])
}
Add(ScrollBar,15478533,203,245)
{
Left=440
Top=10
Width=250
Height=10
Min=33
Position=33
link(onPosition,11660298:doInterval,[])
}
Add(ScrollBar,14424775,420,280)
{
Left=440
Top=25
Width=250
Height=10
Max=255
Position=255
link(onPosition,6101372:doAlphaBlendValue,[(466,286)(466,251)])
}
Add(Label,9780422,224,49)
{
Left=350
Top=10
Caption="Interval"
}
Add(Label,12147396,273,49)
{
Left=350
Top=25
Caption="AlphaBlendValue"
}