Вверх ↑
Этот топик читают: Гость
Ответов: 113
Рейтинг: 1
#1: 2024-01-18 20:38:30 ЛС | профиль | цитата
почему так происходит при отрисовке текста ? , используя resize меняю размеры формы

Снимок.JPG


схема


Add(MainForm,2953706,126,280)
{
Width=851
Height=573
Point(onResize)
link(onResize,5162545:doCalc,[])
}
Add(Img_MultiText,4829032,287,238)
{
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)
link(Bitmap,7760010:Bitmap,[(293,216)(223,216)])
link(Text,5528160:Text,[])
link(X,5162545:Result,[(307,218)(350,218)(350,357)(230,357)])
link(Y,16032912:Result,[(314,226)(340,226)(340,345)(279,345)])
}
Add(StrList,5528160,294,161)
{
Strings=#31:Конструктор программ позволяет |31:каждому пользователю ПК начать |27:программировать без знания |27:каких бы то ни было языков |31:высокого уровня сразу же после |34:установки среды.Создать программу |35:в HiAsm так же просто, как собрать |37:фигурку из деталей лего - достаточно |38:выбрать необходимый набор компонентов |53:и соединить их друг с другом в цельную конструкцию...|
}
Add(PaintBox,7760010,217,161)
{
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)
link(onBeforeDraw,4829032:doDraw,[(268,167)(268,244)])
}
Add(InfoTip,11233545,119,56)
{
Info=#3:300|11:100 100 100|0:|21:300 - 100 = 100 + 100|
Width=169
Height=60
}
Add(MathParse,5162545,224,301)
{
MathStr="(%1 - %2) / 2"
link(onResult,16032912:doCalc,[])
link(X1,7760010:Width,[])
link(X2,4829032:TextWidth,[(237,285)(293,285)])
}
Add(MathParse,16032912,273,301)
{
MathStr="(%1 - %2) / 2"
link(X1,7760010:Height,[(279,272)(237,272)])
link(X2,4829032:TextHeight,[(286,289)(300,289)])
}




Редактировалось 2 раз(а), последний 2024-01-18 20:39:33
карма: 0
well done turner
0
Ответов: 19
Рейтинг: 21
#2: 2024-01-18 21:07:25 ЛС | профиль | цитата
Так?


Add(MainForm,6186012,112,280)
{
Width=851
Height=573
Point(onResize)
link(onResize,7012952:doEvent1,[])
}
Add(Img_MultiText,4829032,385,308)
{
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)
link(Bitmap,7760010:Bitmap,[(391,292)(258,292)])
link(Text,5528160:Text,[])
link(X,10270546:getVar,[])
link(Y,10638362:getVar,[])
}
Add(StrList,5528160,392,224)
{
Strings=#31:Конструктор программ позволяет |31:каждому пользователю ПК начать |27:программировать без знания |27:каких бы то ни было языков |31:высокого уровня сразу же после |34:установки среды.Создать программу |35:в HiAsm так же просто, как собрать |37:фигурку из деталей лего - достаточно |38:выбрать необходимый набор компонентов |53:и соединить их друг с другом в цельную конструкцию...|
}
Add(PaintBox,7760010,252,238)
{
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(onResize)
link(onResize,7012952:doEvent2,[(291,251)(291,230)(165,230)(165,314)])
}
Add(MathParse,5162545,259,308)
{
MathStr="(%1 - %2) / 2"
link(onResult,16032912:doCalc,[])
link(X1,7760010:Width,[])
link(X2,4829032:TextWidth,[(272,299)(300,299)(300,355)(391,355)])
}
Add(MathParse,16032912,322,308)
{
MathStr="(%1 - %2) / 2"
link(onResult,4829032:doDraw,[])
link(X1,7760010:Height,[(328,278)(272,278)])
link(X2,4829032:TextHeight,[(335,299)(367,299)(367,347)(398,347)])
}
Add(Hub,7012952,175,301)
{
InCount=2
OutCount=3
link(onEvent1,7760010:doClear,[(207,307)(207,251)])
link(onEvent2,5162545:doCalc,[])
link(onEvent3,7760010:doRefresh,[(200,321)(200,244)])
}
Add(LineBreakEx,9148729,259,364)
{
Caption="X"
Type=3
link(_Data,5162545:Result,[])
}
Add(LineBreakEx,973349,322,364)
{
Caption="Y"
Type=3
link(_Data,16032912:Result,[])
}
Add(LineBreakEx,10270546,399,266)
{
Caption="X"
Type=2
}
Add(LineBreakEx,10638362,406,280)
{
Caption="Y"
Type=2
}

карма: 1

1
Голосовали:powerbatman
Ответов: 782
Рейтинг: 168
#3: 2024-01-18 21:18:41 ЛС | профиль | цитата
powerbatman писал(а):
почему так происходит при отрисовке текста ? , используя resize меняю размеры формы

или так.

Add(MainForm,6751606,154,217)
{
Width=851
Height=573
Point(onResize)
link(onResize,8936477:doEvent1,[])
}
Add(Img_MultiText,4829032,539,245)
{
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)
link(Bitmap,7760010:Bitmap,[(545,229)(349,229)(349,299)(286,299)])
link(Text,5528160:Text,[])
link(X,5162545:Result,[(559,231)(590,231)(590,311)(370,311)])
link(Y,16032912:Result,[(566,236)(580,236)(580,292)(419,292)])
}
Add(StrList,5528160,546,168)
{
Strings=#31:Конструктор программ позволяет |31:каждому пользователю ПК начать |27:программировать без знания |27:каких бы то ни было языков |31:высокого уровня сразу же после |34:установки среды.Создать программу |35:в HiAsm так же просто, как собрать |37:фигурку из деталей лего - достаточно |38:выбрать необходимый набор компонентов |53:и соединить их друг с другом в цельную конструкцию...|
}
Add(PaintBox,7760010,280,245)
{
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)
link(onBeforeDraw,5162545:doCalc,[])
}
Add(InfoTip,11233545,182,91)
{
Info=#3:300|11:100 100 100|0:|21:300 - 100 = 100 + 100|
Width=169
Height=60
}
Add(MathParse,5162545,364,245)
{
MathStr="(%1 - %2) / 2"
link(onResult,16032912:doCalc,[])
link(X1,7760010:Width,[(370,236)(356,236)(356,292)(293,292)])
link(X2,4829032:TextWidth,[(377,236)(405,236)(405,299)(545,299)])
}
Add(MathParse,16032912,413,245)
{
MathStr="(%1 - %2) / 2"
link(onResult,4829032:doDraw,[])
link(X1,7760010:Height,[(419,222)(342,222)(342,285)(300,285)])
link(X2,4829032:TextHeight,[(426,236)(454,236)(454,285)(552,285)])
}
Add(Hub,8936477,217,238)
{
link(onEvent1,7760010:doClear,[(249,244)(249,258)])
link(onEvent2,7760010:doRefresh,[])
}

карма: 15

0
Ответов: 113
Рейтинг: 1
#4: 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]
}


Редактировалось 2 раз(а), последний 2024-01-18 21:29:30
карма: 0
well done turner
0
Разработчик
Ответов: 26113
Рейтинг: 2126
#5: 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,[])
}


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

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)