Вверх ↑
Разработчик
Ответов: 26155
Рейтинг: 2127
#1: 2010-05-08 00:09:04 ЛС | профиль | цитата
Гы. А весь вот этот бред, не постесняюсь так его назвать (52 элемента)

code_18142.txt

спокойно меняется вот на это (10 элементов)

code_18143.txt

Итого: - 42 элемента.

Гы. А я только чуть-чуть прогулялся
------------ Дoбавленo в 00.00:
Tad писал(а):
Текст для диктора с ударениями выглядит так

Ошибся ты, это не тот мультик расставляет ударения, а это просто преобразует выбранную часть в верхний или нижний регистр
------------ Дoбавленo в 00.09:
Гы, можно еще три компонента выкинуть из той схемы


Add(MainForm,2953706,308,105)
{
}
Add(KeyMask,2531088,434,196)
{
Ctrl=1
Key=38
link(onTrue,7786281:doModify,[])
}
Add(KeyMask,10403116,434,154)
{
Ctrl=1
Key=40
link(onTrue,3040051:doModify,[])
}
Add(StrCase,3040051,504,161)
{
link(onModify,8570262:doWork2,[])
link(Str,8933006:Var3,[(510,131)])
}
Add(StrCase,7786281,483,203)
{
Type=1
link(onModify,8570262:doWork3,[(550,209)])
link(Str,8933006:Var2,[])
}
Add(GetDataEx,8933006,483,126)
{
link(Data,7766550:SelText,[])
}
Add(Hub,2295628,385,154)
{
link(onEvent1,10403116:doCheckMask,[])
link(onEvent2,2531088:doCheckMask,[(417,167)(417,202)])
}
Add(Memo,7766550,462,63)
{
Left=10
Top=5
Width=265
Height=250
Font=[MS Sans Serif,10,0,0,1]
Strings=#18:Привет от HiAsm-a!|
Point(onKeyDown)
Point(SelText)
Point(doSetSelect)
link(onKeyDown,2295628:doEvent1,[(506,76)(506,51)(370,51)(370,160)])
}
Add(HubEx,8570262,546,161)
{
link(onEvent,7766550:doSetSelect,[(596,167)(596,139)(450,139)(450,111)])
}


Итого: - 45
карма: 22

0
файлы: 2code_18142.txt [7KB] [171], code_18143.txt [839B] [122]