13: begin // select - выбор пункта
            val := str2int(str);
            if  aName = 'obj_SysListView32' then LVCurItem := val;

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)])
}