Вверх ↑
Разработчик
Ответов: 26113
Рейтинг: 2126
#1: 2019-03-03 19:43:39 ЛС | профиль | цитата
После изменения параметров необходимо использовать метод doSetStyle

Схема

Add(MainForm,11160845,203,84)
{
Width=373
Height=245
Caption="Text control"
link(onCreate,16538310:doEvent1,[])
}
Add(DocumentTemplate,3449277,315,189)
{
Name="doc"
link(Bitmap,16302917:Bitmap,[])
}
BEGIN_SDK
Add(Print_Text,5788299,126,77)
{
X=129
Y=80
Width=99
Height=25
Text="www.hiasm.com"
Font=[MS Sans Serif,8,4,16711680,1]
}
Add(Print_Text,13825644,7,21)
{
Name="text"
X=10
Y=24
Width=218
Height=46
Text="Test"
}
END_SDK
Add(PaintBox,16302917,315,105)
{
Left=40
Top=70
Width=265
Height=105
Color=16777215
ClearBeforeDraw=0
link(onBeforeDraw,3449277:doDraw,[(360,111)(360,180)(303,180)(303,195)])
}
Add(Edit,14267396,133,217)
{
Left=40
Top=30
Width=265
link(onChange,4695198:doText,[])
}
Add(PC_Text,4695198,231,217)
{
ItemName="text"
Document="doc"
FontApply=0
Point(doFont)
Point(doSetStyle)
Point(onSetStyle)
link(onText,13481460:doWork2,[])
link(onSetStyle,13481460:doWork3,[(291,230)])
}
Add(HubEx,5526886,287,105)
{
link(onEvent,16302917:doRefresh,[])
}
Add(Font,9564278,119,161)
{
FontDialog=0
Point(FontName)
Point(FontColor)
Point(FontSize)
Point(FontStyle)
Point(FontStrStyle)
Point(FontCharSet)
link(onFont,7970048:doEvent1,[])
}
Add(Hub,16538310,252,98)
{
link(onEvent2,5526886:doWork2,[])
}
Add(BitBtn,10104311,63,161)
{
Left=220
Top=5
link(onClick,9564278:doFont,[])
}
Add(Hub,7970048,175,161)
{
link(onEvent1,4695198:doFont,[(221,167)(221,230)])
link(onEvent2,4695198:doSetStyle,[(207,174)(207,237)])
}
Add(HubEx,13481460,287,217)
{
Angle=3
link(onEvent,5526886:doWork3,[])
}

карма: 22

0
Редактировалось 1 раз(а), последний 2019-03-03 19:44:00