Вверх ↑
Ответов: 793
Рейтинг: 168
#1: 2023-07-24 10:22:48 ЛС | профиль | цитата
А если пойти совсем другим путём?

Add(MainForm,2953706,28,112)
{
Width=542
link(onCreate,11440110:doEvent1,[])
}
Add(Img_Point,5839712,420,133)
{
Point(Color)
Point(X)
Point(Y)
Point(Pixels)
link(Bitmap,1557181:Var2,[])
link(X,11493445:NumSubStr,[(440,124)(300,124)(300,180)(209,180)])
link(Y,3623523:Index,[(447,117)(195,117)(195,173)(153,173)])
}
Add(Bitmap,15175649,420,42)
{
HWidth=32
HHeight=32
FillColor=16777215
Point(doCreate)
}
Add(RGN_OutlinePicture,11006533,462,245)
{
ModeTransparent=0
Transparent=0
Point(doPicture)
link(onOutlinePicture,15184077:doGetData,[])
link(SrcBitmap,5487344:ImageBitmap,[])
}
Add(RGN_GetData,15184077,616,245)
{
link(onGetData,7101692:doOperation,[(655,251)(655,258)(564,258)(564,314)])
}
Add(StrList,4876793,126,70)
{
Strings=#31:0000000000000001000000000000000|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011011111111111111110111111100|31:0011111111111111111111111111100|31:0011111111110111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011100000000011111111111111100|31:0111111101111011111111111111111|31:0011111101011011111111111111100|31:0011111101111000011111111111100|31:0011111001111011111111111111100|31:0011111100000011111111111111100|31:0011111111111011111111111111100|31:0011111111111011111111111111100|31:0011111111111111111111111111100|31:0011110001111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111000111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0000000000000100000000000000000|
}
Add(ArrayEnum,3623523,140,133)
{
link(onItem,11493445:doEnum,[])
link(onEndEnum,2126304:doWork2,[(179,146)(179,195)])
link(Array,4876793:Array,[])
}
Add(Str_Enum,11493445,203,133)
{
Delimiter=""
link(onEnum,4000674:doEvent,[])
}
Add(IndexToChanel,4000674,259,133)
{
Point(Data)
link(onEvent1,10816588:doWork2,[])
link(onEvent2,15667779:doData,[(305,146)(305,160)])
link(Data,11493445:Part,[(265,124)(251,124)(251,173)(216,173)])
}
Add(DoData,15667779,315,154)
{
Data=Integer(16777215)
link(onEventData,10816588:doWork3,[(361,160)])
}
Add(HubEx,10816588,357,133)
{
link(onEvent,5839712:doDraw,[])
}
Add(GetDataEx,1557181,420,91)
{
link(Data,15175649:Bitmap,[])
}
Add(Hub,11440110,84,126)
{
link(onEvent1,15175649:doCreate,[(109,132)(109,62)])
link(onEvent2,3623523:doEnum,[])
}
Add(Image,5487344,462,189)
{
Width=226
Height=261
Align=5
link(Bitmap,1198903:Var2,[])
}
Add(Menu,11513364,280,238)
{
Menu=#22:Найти замкнутый контур|
Point(onSelectNum)
link(onSelectNum,14464684:doDraw,[])
}
Add(Img_FloodFill,14464684,364,245)
{
Color=0
FillType=0
link(onDraw,12673608:doEvent1,[])
link(Bitmap,1198903:Var1,[(370,173)])
}
Add(GetDataEx,1198903,462,168)
{
link(Data,1557181:Var3,[(468,96)])
}
Add(Hub,12673608,406,245)
{
link(onEvent1,2126304:doWork3,[(438,251)])
link(onEvent2,11006533:doPicture,[])
}
Add(HubEx,2126304,434,189)
{
link(onEvent,5487344:doLoad,[])
}
Add(FormatStr,7310973,616,364)
{
DataCount=4
Mask="Отступ слева - %1\r\nОтступ сверху - %2\r\nШирина - %3\r\nВысота - %4"
link(onFString,11848660:doAdd,[])
link(Str1,7101692:Result,[(622,348)(580,348)])
link(Str2,12395156:Result,[])
link(Str3,4259252:Result,[(636,348)(678,348)])
link(Str4,3330308:Result,[(643,355)(727,355)])
}
Add(Memo,11848660,679,364)
{
Left=226
Width=300
Height=261
Align=3
Font=[MS Sans Serif,12,0,0,1]
ScrollBars=3
}
Add(Math,7101692,574,308)
{
OpType=1
Op2=1
link(onResult,12395156:doOperation,[])
link(Op1,15184077:Left,[(580,292)(622,292)])
}
Add(Math,12395156,623,308)
{
OpType=1
Op2=1
link(onResult,4259252:doOperation,[])
link(Op1,15184077:Top,[])
}
Add(Math,4259252,672,308)
{
Op2=2
link(onResult,3330308:doOperation,[])
link(Op1,15184077:Width,[(678,299)(636,299)])
}
Add(Math,3330308,721,308)
{
Op2=2
link(onResult,7310973:doString,[(760,314)(760,405)(606,405)(606,370)])
link(Op1,15184077:Height,[(727,292)(643,292)])
}


P.S. Также не мог попасть на сайт несколько дней.

--- Добавлено в 2023-07-24 10:46:45

Исправил небольшую ошибку.

Add(MainForm,7175195,49,168)
{
Width=542
link(onCreate,11440110:doEvent1,[])
}
Add(Img_Point,5839712,406,189)
{
Point(Color)
Point(X)
Point(Y)
Point(Pixels)
link(Bitmap,1557181:Var2,[])
link(X,9274983:GetData,[(426,180)(398,180)(398,299)(279,299)])
link(Y,3623523:Index,[(433,173)(216,173)(216,229)(174,229)])
}
Add(Bitmap,15175649,406,91)
{
HWidth=32
HHeight=32
FillColor=16777215
Point(doCreate)
}
Add(RGN_OutlinePicture,11006533,539,371)
{
ModeTransparent=0
Transparent=0
Point(doPicture)
link(onOutlinePicture,15184077:doGetData,[])
link(SrcBitmap,5487344:ImageBitmap,[])
}
Add(RGN_GetData,15184077,616,371)
{
link(onGetData,4259252:doOperation,[(662,377)(662,440)])
}
Add(StrList,4876793,147,126)
{
Strings=#31:0000000000000001000000000000000|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011011111111111111110111111100|31:0011111111111111111111111111100|31:0011111111110111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011100000000011111111111111100|31:0111111101111011111111111111111|31:0011111101011011111111111111100|31:0011111101111000011111111111100|31:0011111001111011111111111111100|31:0011111100000011111111111111100|31:0011111111111011111111111111100|31:0011111111111011111111111111100|31:0011111111111111111111111111100|31:0011110001111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111000111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0011111111111111111111111111100|31:0000000000000100000000000000000|
}
Add(ArrayEnum,3623523,161,189)
{
link(onItem,11493445:doEnum,[])
link(onEndEnum,2126304:doWork2,[(200,202)(200,321)])
link(Array,4876793:Array,[])
}
Add(Str_Enum,11493445,224,189)
{
Delimiter=""
link(onEnum,4000674:doEvent,[])
}
Add(IndexToChanel,4000674,280,189)
{
Point(Data)
link(onEvent1,10816588:doWork2,[])
link(onEvent2,15667779:doData,[(326,202)(326,216)])
link(Data,11493445:Part,[(286,180)(272,180)(272,229)(237,229)])
}
Add(DoData,15667779,336,210)
{
Data=Integer(16777215)
link(onEventData,10816588:doWork3,[(382,216)])
}
Add(HubEx,10816588,378,189)
{
link(onEvent,5839712:doDraw,[])
}
Add(GetDataEx,1557181,406,147)
{
link(Data,15175649:Bitmap,[])
}
Add(Hub,11440110,105,182)
{
link(onEvent1,15175649:doCreate,[(130,188)(130,111)])
link(onEvent2,3623523:doEnum,[])
}
Add(Image,5487344,539,315)
{
Width=226
Height=261
Align=5
link(Bitmap,12327551:Var2,[])
}
Add(Menu,11513364,357,364)
{
Menu=#22:Найти замкнутый контур|
Point(onSelectNum)
link(onSelectNum,14464684:doDraw,[])
}
Add(Img_FloodFill,14464684,441,371)
{
X=3
Y=3
Color=0
FillType=0
link(onDraw,12673608:doEvent1,[])
link(Bitmap,12327551:Var1,[(447,299)])
}
Add(Hub,12673608,483,371)
{
link(onEvent1,2126304:doWork3,[(515,377)])
link(onEvent2,11006533:doPicture,[])
}
Add(HubEx,2126304,511,315)
{
link(onEvent,5487344:doLoad,[])
}
Add(FormatStr,7310973,616,490)
{
DataCount=4
Mask="Отступ слева - %1\r\nОтступ сверху - %2\r\nШирина - %3\r\nВысота - %4"
link(onFString,11848660:doAdd,[])
link(Str1,15184077:Left,[])
link(Str2,15184077:Top,[])
link(Str3,4259252:Result,[(636,474)(678,474)])
link(Str4,3330308:Result,[(643,481)(727,481)])
}
Add(Memo,11848660,679,490)
{
Left=226
Width=300
Height=261
Align=3
Font=[MS Sans Serif,12,0,0,1]
ScrollBars=3
}
Add(Math,4259252,672,434)
{
Op2=2
link(onResult,3330308:doOperation,[])
link(Op1,15184077:Width,[(678,425)(636,425)])
}
Add(Math,3330308,721,434)
{
Op2=2
link(onResult,7310973:doString,[(760,440)(760,531)(606,531)(606,496)])
link(Op1,15184077:Height,[(727,418)(643,418)])
}
Add(Math,14957917,224,259)
{
OpType=1
Op2=1
link(onResult,9274983:doData,[])
link(Op1,11493445:NumSubStr,[])
}
Add(EventFromData,9274983,273,259)
{
link(onEvent,14957917:doOperation,[(312,265)(312,251)(214,251)(214,265)])
}
Add(GetDataEx,12327551,539,294)
{
link(Data,1557181:Var3,[(545,152)])
}

карма: 16

0
Редактировалось 1 раз(а), последний 2023-07-24 10:46:45