Вверх ↑
Разработчик
Ответов: 26113
Рейтинг: 2126
#1: 2013-12-05 20:27:55 ЛС | профиль | цитата
sla8a писал(а):
А зачем в do Set остальные списки?

Вот как раз там они очень даже и нужны, у меня сейчас пример работает, где в дочерней форме не надо устанавливать ни один именованный контрол, и они у меня прописаны в список исключений.
Вот пример, как установить один шрифт куче элементов. На этом считаю вопрос исчерпанным.

Add(MainForm,9984780,266,217)
{
}
Add(Label,4496748,623,245)
{
Left=15
Top=15
Width=85
Name="label"
}
Add(Label,12209738,630,252)
{
Left=15
Top=35
Width=85
Name="label"
}
Add(Label,9336786,637,259)
{
Left=15
Top=55
Width=85
Name="label"
}
Add(Label,6857088,644,266)
{
Left=15
Top=75
Width=85
Name="label"
}
Add(Button,12600313,266,273)
{
Left=170
Top=215
TabOrder=-1
link(onClick,3281412:doFont,[])
}
Add(AdjustControls,13687485,539,245)
{
}
Add(FontManager,4224412,476,182)
{
ControlManager="label"
Point(FontCharset)
}
Add(Font,3281412,315,273)
{
FontDialog=0
link(onFont,7544925:doEvent1,[])
}
Add(Hub,7544925,364,273)
{
link(onEvent1,4224412:doSetFont,[(389,279)(389,188)])
link(onEvent2,9631916:doGetString,[])
}
Add(FormatStr,3193280,476,245)
{
DataCount=5
Mask="all=fontname=%3
*=fontsize=%1
*=fontcolor=%2
*=fontstyle=%4
*=fontcharset=%5"
link(onFString,13687485:doSet,[])
link(Str1,4224412:FontSize,[])
link(Str2,4224412:FontColor,[])
link(Str3,4224412:FontName,[])
link(Str5,4224412:FontCharset,[])
}
Add(StrList,9631916,413,238)
{
Strings=#0:|4:b |4: i |4:bi |4: u |4:b u |4: iu |4:biu |4: s|4:b s|4: i s|4:bi s|4: us|4:b us|4: ius|4:bius|
Point(onGetString)
Point(IdxToSelect)
Point(doGetString)
link(onGetString,3193280:doString,[])
link(IdxToSelect,4224412:FontStyle,[(433,229)(503,229)])
}

карма: 22

0