botan, элемент "BitmapArray" не поможет?, эффекты могут быть очень разными, вот простейший ("5 мин., включая почёсывание в затылке")
Add(MainForm,3751151,602,154)
{ Left=20 Top=105 Height=390 } Add(GetData,3771552,497,280) { link(Data,7792880:Position,[]) } Add(BitmapArray,13235940,399,105) { Bitmaps=[] UseName=1 } Add(GetData,10296800,553,280) { link(Data,15985140:Position,[]) } Add(Counter,2598396,350,154) { Max=5 Default=-1 link(onNext,11891691:doRead,[]) } Add(ArrayRW,11891691,399,154) { link(onRead,9037911:doEvent1,[]) link(Array,13235940:Array,[]) } Add(Bitmap,7573527,532,154) { Point(Height) Point(Width) } Add(Hub,9037911,448,154) { link(onEvent1,7573527:doLoad,[(513,160)(513,160)]) link(onEvent2,7792880:doFor,[(488,167)(488,230)]) } Add(Img_GetPoint,9324686,532,343) { link(onGetPixel,3943382:doDraw,[]) link(Bitmap,7573527:Bitmap,[]) link(X,10296800:Data1,[(545,332)(559,332)]) link(Y,3771552:Data1,[(552,325)(503,325)]) } Add(Img_Point,3943382,602,343) { DrawSource=1 link(Bitmap,3751151:Handle,[]) link(X,10296800:Data2,[(615,331)(566,331)]) link(Y,3771552:Data2,[(622,320)(510,320)]) } Add(Button,7529505,301,154) { Left=50 Top=275 link(onClick,2598396:doNext,[]) } Add(For,7792880,497,224) { Start=1 link(onEvent,15985140:doFor,[]) link(End,7573527:Height,[(510,205)(545,205)]) } Add(For,15985140,553,224) { Start=1 link(onEvent,9324686:doGetPixel,[(595,230)(595,265)(473,265)(473,349)]) link(End,7573527:Width,[(566,205)(552,205)]) }
не забудьте заполнить BitmapArray картинками :)
|