Хм... Спасибо, сейчас попробую его.
------------ Дoбавленo в 19.02:
nesco,
Не получилось... Вот так делаю, посмотрите:
#pas
Add(MainForm,2953706,63,49)
{
Caption="Тест"
Position=1
}
Add(Font,4716145,161,112)
{
Font=[Tahoma,8,0,0,1]
FontDialog=0
link(onFont,1308872:doEvent1,[])
}
Add(FontManager,508352,259,119)
{
Font=[Tahoma,8,0,0,1]
ControlManager="listbox"
}
Add(Hub,1308872,210,112)
{
OutCount=3
link(onEvent1,3577543:doFont,[(308,118)(308,146)])
link(onEvent2,508352:doSetFont,[])
link(onEvent3,5338491:doData,[(236,132)(236,184)(191,184)(191,237)])
}
Add(Ini,4077652,308,217)
{
FileName="Settings.ini"
Section="FONT"
Key="FontSize"
Type=1
link(Value,508352:FontSize,[(335,184)(265,184)])
}
Add(Ini,1551232,308,175)
{
FileName="Settings.ini"
Section="FONT"
Key="FontName"
Type=1
link(Value,508352:FontName,[(335,163)(279,163)])
}
Add(Ini,14280124,308,259)
{
FileName="Settings.ini"
Section="FONT"
Key="FontColor"
Type=1
link(Value,508352:FontColor,[(335,205)(272,205)])
}
Add(Ini,8012384,308,301)
{
FileName="Settings.ini"
Section="FONT"
Key="FontStyle"
Type=1
link(Value,508352:FontStyle,[(335,226)(286,226)])
}
Add(Hub,393431,259,231)
{
OutCount=4
link(onEvent1,1551232:doWrite,[(291,237)(291,188)])
link(onEvent2,4077652:doWrite,[(291,244)(291,230)])
link(onEvent3,14280124:doWrite,[(291,251)(291,272)])
link(onEvent4,8012384:doWrite,[(291,258)(291,314)])
}
Add(DoData,5338491,203,231)
{
link(onEventData,393431:doEvent1,[])
}
Add(Memo,3577543,392,98)
{
Width=384
Height=265
Align=5
Font=[Tahoma,8,0,0,1]
Point(doFont)
}
Add(Button,5880404,112,112)
{
Left=145
Top=5
Width=75
Height=25
Caption="123"
link(onClick,4716145:doFont,[])
}
Или я не туда ткнул. Возможно, в этот компонент (FontManager) надо вставлять поток из поля. Сейчас гляну...



Поиск
Друзья
Администрация