Stalevar писал(а):
тут уже нагородилТоже вариант неплохой. Я чуть подправил.
Add(MainForm,15307610,161,91)
{
Width=395
Height=375
}
Add(Label,2437858,210,91)
{
Left=90
Top=10
Caption="Всплывающая подсказка"
Point(onMouseLeave)
Point(onMouseEnter)
link(onMouseLeave,16021945:doDestroy,[(452,104)(452,132)])
link(onMouseEnter,6796361:doData,[(256,111)(256,132)])
}
Add(DoData,6796361,266,126)
{
Data=String(20:20=1630;19:53=1570;18:39=1552)
link(onEventData,14963249:doReplace,[])
}
Add(BaloonToolTips,16021945,469,119)
{
Title="Замеры"
link(Text,12446310:Value,[(482,110)(412,110)(412,166)(370,166)])
}
Add(Hub,15063593,420,126)
{
link(onEvent1,16021945:doCreate,[(445,132)(445,125)])
link(onEvent2,16021945:doShow,[])
}
Add(Replace,14963249,315,126)
{
SubStr=";"
DestStr="\r\n"
link(onReplace,12446310:doValue,[])
}
Add(Memory,12446310,364,126)
{
link(onData,15063593:doEvent1,[])
}