Вверх ↑
Ответов: 666
Рейтинг: 139
#1: 2021-01-09 13:35:41 ЛС | профиль | цитата
Те же яйца, только вид сбоку

Add(MainForm,15848654,175,77)
{
Width=271
Height=109
Point(doColor)
Point(doAlphaBlendValue)
link(onCreate,10223849:doRead,[])
}
Add(Memo,4377762,728,154)
{
Width=255
Height=70
Align=5
Font=[MS Sans Serif,8,0,16777215,1]
Point(doColor)
}
Add(Registry,10223849,224,91)
{
HKey=1
Key="Software\Microsoft\Windows\DWM\"
Value="ColorizationColor"
DataType=3
link(onRead,14329994:doConvert,[])
}
Add(StreamConvertor,14329994,273,91)
{
link(onResult,5518469:doEvent1,[])
}
Add(Hub,5518469,322,91)
{
OutCount=3
link(onEvent1,15848654:doCaption,[(347,97)(347,69)(165,69)(165,83)])
link(onEvent2,582424:doEnum,[])
link(onEvent3,11564778:doCalc,[(361,111)(361,160)])
}
Add(Str_Enum,582424,371,98)
{
Delimiter=""
Step=2
link(onEnum,16252263:doConvert,[])
}
Add(RGB,9187325,483,154)
{
link(onRGB,13639918:doShade,[])
link(R,2422420:Value2,[])
link(G,2422420:Value3,[])
link(B,2422420:Value4,[])
}
Add(MemFIFO,2422420,476,98)
{
Count=4
}
Add(Convertor,16252263,420,98)
{
Mode=5
link(onResult,2422420:doValue,[])
}
Add(ColorShade,13639918,546,154)
{
Color=16777215
Mode=0
link(onResult,13062751:doEvent1,[])
link(Color,9187325:Color,[(552,145)(538,145)(538,201)(489,201)])
link(Depth,11564778:Result,[(559,138)(531,138)(531,194)(419,194)])
}
Add(ToRGB,12100942,630,154)
{
link(onResult,3569760:doString,[])
}
Add(FormatStr,3569760,679,154)
{
DataCount=3
Mask="Red: %1\r\nGreen: %2\r\nBlue: %3"
link(onFString,4377762:doAdd,[])
}
Add(Hub,13062751,588,154)
{
link(onEvent1,12100942:doGetRGB,[])
link(onEvent2,4377762:doColor,[(718,167)(718,188)])
}
Add(MathParse,11564778,413,154)
{
MathStr="round((1-%1/255)*100)"
link(onResult,9187325:doRGB,[])
link(X1,2422420:Value1,[(419,145)(482,145)])
}

карма: 14

1
Голосовали:powerbatman