Вот, на днях приспичило и немного наваял, кому-то и пригодится! Вопрос о многострочном хинте периодически всплывает...
code_19932.txt
nesco писал(а): foksov, а че так сложно-то, проще никак нельзя
А вот и проще
Add(MainForm,2953706,469,217) { Width=331 Height=97 BorderStyle=1 Point(Handle) } Add(UserHintManager,221974,371,252) { Name="h" link(onShow,12499505:doWork1,[]) link(onHide,12499505:doWork2,[]) } Add(BaloonToolTips,1729105,469,259) { Title="Подсказка..." Icon=1 link(Handle,2953706:Handle,[]) } Add(Button,4127087,567,259) { Left=140 Top=25 Color=25 Hint="Примерчик многострочного хинтика средствами HiAsm" HintManager="h" } Add(MultiElement,12499505,420,259) { link(onEvent1,1729105:doCreate,[]) link(onEvent2,1729105:doDestroy,[]) link(onEvent3,1729105:doShow,[]) } BEGIN_SDK Add(EditMulti,1844093,21,21) { EventCount=3 WorkCount=2 link(doWork1,10635030:doEvent1,[(59,27)(59,97)]) link(doWork2,12671711:doEvent1,[(48,34)(48,125)]) } Add(Hub,443003,175,98) { link(onEvent1,1844093:onEvent3,[(261,104)(261,41)]) link(onEvent2,3114063:doTimer,[(203,111)(203,125)]) } Add(Timer,3114063,210,119) { @Hint=#18:Чтоб ненадоедал...|12:Висит 5 сек.| Interval=5000 Enable=1 AutoStop=1 Point(onStop) link(onStop,1844093:onEvent2,[(250,132)(250,34)]) AddHint(-48,54,112,26,@Hint) } Add(Hub,12671711,84,119) { link(onEvent1,13342912:doStop,[(112,125)(112,111)]) link(onEvent2,3114063:doStop,[]) } Add(Timer,13342912,126,98) { @Hint=#48:Задержка перед появлением подсказки (от мигания)| Interval=1500 Enable=1 AutoStop=1 Point(onStop) link(onTimer,443003:doEvent1,[]) AddHint(-64,-42,167,26,@Hint) } Add(Hub,10635030,84,91) { link(onEvent1,1844093:onEvent1,[(239,97)(239,27)]) link(onEvent2,13342912:doTimer,[]) } END_SDK Add(StyleXP,5315245,371,210) { }
|