Add(MainForm,10006258,154,70)
{
 Caption="Пример использования TempFontProc"
}
Add(Font,3127261,154,182)
{
 Font=[MS Sans Serif,14,0,0,1]
 link(onFont,6320759:doFont,[])
 link(Name,334537:FontName,[])
}
Add(TempFontProc,334537,154,126)
{
}
Add(ListBox,14600453,56,119)
{
 Left=55
 Top=95
 Width=280
 Strings=#29:C:\\WINDOWS\\Fonts\\arial.ttf|30:C:\\WINDOWS\\Fonts\\arialn.ttf|31:C:\\WINDOWS\\Fonts\\arialnb.ttf|
 DataType=1
 link(onClick,5996752:doEvent1,[])
}
Add(Label,6320759,224,175)
{
 Left=35
 Top=15
 Width=350
 Height=55
 Font=[MS Sans Serif,14,0,0,1]
 Caption="Устанавливает и отображает шрифт\r\n"
 AutoSize=1
 Point(doFont)
}
Add(Hub,5996752,105,126)
{
 link(onEvent1,334537:doInstall,[])
 link(onEvent2,3127261:doFont,[(133,139)(133,188)])
}