Вверх ↑
Ответов: 113
Рейтинг: 1
#1: 2024-01-18 21:28:32 ЛС | профиль | цитата
Да работает, onResize от PaintBox влияет на это


схема


Add(MainForm,2953706,77,287)
{
Width=851
Height=573
Point(onResize)
Point(Width)
Point(Height)
link(onResize,2485160:doEvent2,[])
}
Add(Img_MultiText,4829032,392,315)
{
X=100
Y=500
Font=[Cambria,10,1,0,204]
Text="Конструктор программ позволяет \r\nкаждому пользователю ПК начать \r\nпрограммировать без знания \r\nкаких бы то ни было языков \r\nвысокого уровня сразу же после \r\nустановки среды.Создать программу \r\nв HiAsm так же просто, как собрать \r\nфигурку из деталей лего - достаточно \r\nвыбрать необходимый набор компонентов \r\nи соединить их друг с другом в цельную конструкцию..."
Point(X)
Point(Y)
Point(doFont)
Point(Transform)
link(Bitmap,7760010:Bitmap,[(398,263)(223,263)])
link(Text,5528160:Text,[])
link(X,3948388:Var,[])
link(Y,6189754:Var,[])
link(Transform,4505737:Transform,[(426,303)(437,303)(437,429)(321,429)])
}
Add(StrList,5528160,399,224)
{
Strings=#31:Конструктор программ позволяет |31:каждому пользователю ПК начать |27:программировать без знания |27:каких бы то ни было языков |31:высокого уровня сразу же после |34:установки среды.Создать программу |35:в HiAsm так же просто, как собрать |37:фигурку из деталей лего - достаточно |38:выбрать необходимый набор компонентов |53:и соединить их друг с другом в цельную конструкцию...|
}
Add(PaintBox,7760010,217,217)
{
Width=835
Height=534
Align=5
Color=-16777211
Font=[MS Sans Serif,8,0,-16777211,1]
Name="e"
Point(doWidth)
Point(doHeight)
Point(Width)
Point(Height)
Point(onMouseDown)
Point(onDblClick)
Point(onMouseUp)
Point(onResize)
link(onResize,2485160:doEvent1,[(266,251)(266,207)(159,207)(159,307)])
}
Add(MathParse,5162545,224,315)
{
MathStr="(%1 - %2) / 2"
link(onResult,16032912:doCalc,[])
link(X1,14622700:Var2,[])
link(X2,4829032:TextWidth,[(237,298)(373,298)(373,366)(398,366)])
}
Add(MathParse,16032912,273,315)
{
MathStr="(%1 - %2) / 2"
link(onResult,10079704:doOperation,[])
link(X1,7760010:Height,[(279,272)(237,272)])
link(X2,4829032:TextHeight,[(286,303)(368,303)(368,374)(405,374)])
}
Add(Hub,2485160,175,301)
{
InCount=2
OutCount=4
link(onEvent1,7760010:doClear,[(200,307)(200,230)])
link(onEvent2,7760010:doRefresh,[(206,314)(206,223)])
link(onEvent3,5162545:doCalc,[])
}
Add(Font,9892249,203,448)
{
@Hint=#3:red|
Font=[Yu Gothic,80,1,255,204]
link(onFont,4829032:doFont,[(384,454)(384,328)])
link(Size,13738113:Part1,[])
link(Color,13738113:Part2,[])
link(Name,13738113:Part3,[])
link(Style,13738113:Part4,[])
}
Add(MultiStrPart,13738113,203,399)
{
Count=4
}
Add(StrList,9360797,119,392)
{
Strings=#22:8;16777215;Yu Gothic;1|17:8;255;Yu Gothic;1|24:100;16777215;Yu Gothic;1|24:100;16777215;Yu Gothic;1|0:|0:|
}
Add(ArrayRW,4989965,133,441)
{
Index=Integer(0)
link(onRead,14455988:doEvent1,[])
link(Array,9360797:Array,[])
}
Add(Hub,14455988,175,441)
{
link(onEvent1,13738113:doSplit,[(196,447)(196,405)])
link(onEvent2,9892249:doFont,[])
}
Add(Img_UseScale,4505737,315,385)
{
X=10
Y=10
link(X,16388997:Var2,[])
link(Y,16388997:Var3,[(335,369)])
}
Add(Math,10079704,322,315)
{
OpType=3
Op2=450
ResultType=0
link(onResult,4829032:doDraw,[])
link(Op1,14622700:Var3,[(328,285)])
}
Add(GetDataEx,16388997,322,364)
{
link(Data,10079704:Result,[])
}
Add(ChanelToIndex,13999212,91,441)
{
link(onIndex,4989965:doRead,[])
}
Add(GetDataEx,14622700,224,280)
{
link(Data,7760010:Width,[])
}
Add(LineBreak,2720844,224,357)
{
Caption="X"
Type=1
link(Data,5162545:Result,[])
Primary=[3948388,182,-91]
}
Add(LineBreak,11376722,273,357)
{
Caption="Y"
Type=1
link(Data,16032912:Result,[])
Primary=[6189754,140,-77]
}

карма: 0
well done turner
0
Редактировалось 2 раз(а), последний 2024-01-18 21:29:30