Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2024-01-19 15:44:30 ЛС | профиль | цитата
Народ! Я тут мимо проходил, глянул и упал. А нафига вам такие телодвижения? У PaintBox-a есть свойство CleareBeforeDraw. Почему бы его не использовать, зачем там хаб с очисткой? Или мы не ищем легкий путей

Схема

Add(MainForm,9089641,343,413)
{
Width=851
Height=573
Point(onResize)
}
Add(Img_MultiText,4829032,497,336)
{
X=100
Y=500
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(Transform)
link(Bitmap,7760010:Bitmap,[(503,314)(433,314)])
link(Text,5528160:Text,[])
link(X,5162545:reCalc,[(517,306)(615,306)(615,530)(447,530)])
link(Y,16032912:Result,[(524,327)(545,327)(545,453)(489,453)])
link(Transform,4505737:Transform,[(531,313)(601,313)(601,523)(559,523)])
}
Add(StrList,5528160,504,259)
{
Strings=#31:Конструктор программ позволяет |31:каждому пользователю ПК начать |27:программировать без знания |27:каких бы то ни было языков |31:высокого уровня сразу же после |34:установки среды.Создать программу |35:в HiAsm так же просто, как собрать |37:фигурку из деталей лего - достаточно |38:выбрать необходимый набор компонентов |53:и соединить их друг с другом в цельную конструкцию...|
}
Add(PaintBox,7760010,427,259)
{
Width=835
Height=534
Align=5
Color=-16777211
Font=[MS Sans Serif,8,0,-16777211,1]
Name="e"
ClearBeforeDraw=0
Point(doWidth)
Point(doHeight)
Point(Width)
Point(Height)
Point(onMouseDown)
Point(onDblClick)
Point(onMouseUp)
link(onBeforeDraw,5162545:doCalc,[(466,265)(466,251)(417,251)(417,419)])
}
Add(InfoTip,11233545,329,154)
{
Info=#3:300|11:100 100 100|0:|21:300 - 100 = 100 + 100|
Width=169
Height=60
}
Add(MathParse,5162545,434,413)
{
MathStr="(%1 - %2) / 2"
Point(reCalc)
link(onResult,16032912:doCalc,[])
link(X1,5903791:Var2,[])
link(X2,4829032:TextWidth,[(447,383)(503,383)])
}
Add(MathParse,16032912,483,413)
{
MathStr="(%1 - %2) / 2"
Point(reCalc)
link(onResult,10079704:doOperation,[])
link(X1,7760010:Height,[(489,370)(447,370)])
link(X2,4829032:TextHeight,[(496,387)(510,387)])
}
Add(Img_UseScale,4505737,553,483)
{
X=10
Y=10
link(X,16388997:Var2,[])
link(Y,16388997:Var3,[(573,467)])
}
Add(Math,10079704,560,413)
{
OpType=3
Op2=450
ResultType=0
link(onResult,4829032:doDraw,[(606,419)(606,251)(487,251)(487,342)])
link(Op1,5903791:Var3,[(566,397)])
}
Add(GetDataEx,16388997,560,462)
{
link(Data,10079704:Result,[])
}
Add(GetDataEx,5903791,434,392)
{
link(Data,7760010:Width,[])
}

карма: 22

0
Редактировалось 2 раз(а), последний 2024-01-19 15:46:06