nesco писал(а):
И нафиг там больше ничего не надоЕще формирование строки для StringTable и имитатор бегущей строки.
------------ Дoбавленo в 11.47:
nesco, ещё бы KeyMask в свойствах Key выпадающий список всех клавиш ему бы цены небыло.
Интересно, кто-то помнит коды всех клавиш наизусть ?
------------ Дoбавленo в 12.20:
С удалением ударений какая-то непонятка.
Add(MainForm,3011605,182,91)
{
Width=575
}
Add(Memo,7766550,322,133)
{
Left=10
Top=5
Width=455
Height=250
Font=[MS Sans Serif,10,0,0,1]
Strings=#98:ДОбрый вЕчер! В эфИре - «ВЕсти» из ПетербУрга. В стУдии новостЕй Игорь Страхов. КОротко о глАвном.|0:|85:ВулканИческое Облако над ЕврОпой. ПЕпел ИслАндии изменИл расписАние рЕйсов в ПУлково.|70:МОжно потрАтить бОльше. В городскОм правИтельстве корректИруют бюджЕт.|81:ЛЕнин - снОва с нАми. БрОнзовый вождь вернУлся на плОщадь у ФинлЯндского вокзАла.|94:СлИшком бЫстро рослА и мешАла жить другИм. В Зоопарк из Океанариума переехала реликтовая рыба.|77:Масштабная выставка Исаака Левитана. Русский музей отмечает юбилей художника.|0:|
Point(onKeyDown)
Point(SelText)
Point(doSetSelect)
link(onKeyDown,4019486:doCheckMask,[(398,146)(398,244)(331,244)(331,209)])
}
Add(MultiElementEx,4019486,343,203)
{
link(Data,7766550:SelText,[])
link(onEvent,7766550:doSetSelect,[(387,209)(387,193)(312,193)(312,181)])
}
BEGIN_SDK
Add(EditMultiEx,9457069,21,21)
{
WorkCount=#11:doCheckMask|
EventCount=#7:onEvent|
DataCount=#4:Data|
Height=242
link(doCheckMask,10403116:doCheckMask,[(35,27)(35,223)])
}
Add(MultiElementEx,12888806,126,182)
{
@Hint=#56:Переводит кириллические символы в верхний/нижний регистр|
link(ResultString,8160523:doWork2,[])
link(Data,9457069:Data,[(132,102)(27,102)])
}
BEGIN_SDK
Add(EditMultiEx,1610369,21,21)
{
WorkCount=#4:doUp|6:doDown|
EventCount=#12:ResultString|0:|
DataCount=#4:Data|
Width=426
Height=270
VOffset=56
HOffset=35
link(doUp,10405018:doWork2,[])
link(doDown,10405018:doWork3,[])
}
Add(Shape,15843163,35,224)
{
Width=277
Text="а-я== 224-255 А-Я== 192-223 Ё== 168 ё== 184 "
PWidth=2
}
Add(StrCase,3040051,266,133)
{
Type=1
link(onModify,8570262:doWork2,[])
}
Add(StrCase,7786281,266,175)
{
link(onModify,8570262:doWork3,[(333,181)])
}
Add(HubEx,8570262,329,133)
{
link(onEvent,402667:doStrCat,[(352,139)(352,69)])
}
Add(Str_Enum,9992685,56,126)
{
Delimiter=""
link(onEnum,10707034:doConvert,[])
link(String,1610369:Data,[])
}
Add(MathParse,10321937,154,126)
{
MathStr="((%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)) * %2"
link(onResult,11377910:doEvent,[])
link(X2,1494482:Value,[])
}
Add(Convertor,10707034,105,126)
{
Mode=3
link(onResult,10321937:doCalc,[])
}
Add(StrCat,402667,371,63)
{
Point(doClear)
link(Str1,14681209:Var1,[(377,54)(411,54)(411,107)])
}
Add(DoData,14419447,371,119)
{
link(onEventData,1610369:ResultString,[(419,125)(419,83)])
link(Data,14681209:Var2,[])
}
Add(GetDataEx,14681209,371,102)
{
link(Data,402667:Result,[])
}
Add(Hub,6142680,231,70)
{
OutCount=3
link(onEvent1,402667:doClear,[])
link(onEvent2,9992685:doEnum,[(260,83)(260,39)(39,39)(39,132)])
link(onEvent3,14419447:doData,[(364,90)(364,125)])
}
Add(Memory,1494482,161,70)
{
link(onData,6142680:doEvent1,[])
}
Add(ChanelToIndex,10405018,105,70)
{
Count=3
link(onIndex,1494482:doValue,[])
}
Add(IndexToChanel,11377910,210,126)
{
Count=3
Point(Data)
link(onEvent1,8570262:doWork1,[(254,132)(254,121)(333,121)])
link(onEvent2,3040051:doModify,[])
link(onEvent3,7786281:doModify,[(254,146)(254,181)])
link(Data,9992685:Part,[(216,114)(195,114)(195,170)(69,170)])
}
END_SDK
Add(KeyMask,2531088,49,175)
{
@Hint=#7:Ctrl-Up|
Ctrl=1
Key=38
link(onFalse,13703566:doCheckMask,[(93,181)(93,160)(37,160)(37,139)])
link(onTrue,12888806:doUp,[])
AddHint(-110,-18,47,13,@Hint)
}
Add(KeyMask,10403116,49,217)
{
@Hint=#9:Ctrl-Down|
Ctrl=1
Key=40
link(onFalse,2531088:doCheckMask,[(93,223)(93,202)(37,202)(37,181)])
link(onTrue,12888806:doDown,[(103,230)(103,195)])
AddHint(-110,-16,61,13,@Hint)
}
Add(Check,6781570,217,182)
{
Caption="doSetSelect"
link(onEvent,9457069:onEvent,[(308,188)(308,27)])
}
Add(KeyMask,11074046,49,91)
{
@Hint=#2:F3|
Key=114
link(onFalse,2952773:doCheckMask,[(93,97)(93,76)(37,76)(37,55)])
link(onTrue,7640352:doData,[])
AddHint(-110,-16,27,13,@Hint)
}
Add(KeyMask,13703566,49,133)
{
@Hint=#2:F2|
Key=113
link(onFalse,11074046:doCheckMask,[(93,139)(93,118)(37,118)(37,97)])
link(onTrue,13047884:doWork,[])
AddHint(-110,-20,27,13,@Hint)
}
Add(KeyMask,2952773,49,49)
{
@Hint=#2:F4|
Key=115
link(onTrue,16014019:doData,[])
AddHint(-109,-14,27,13,@Hint)
}
Add(Check,13047884,140,140)
{
Caption="Parse"
}
Add(DoData,7640352,140,98)
{
Data=String(*\*1310)
link(onEventData,10933775:doWork2,[])
}
Add(HubEx,8160523,189,182)
{
link(onEvent,6781570:doWork,[])
}
Add(DoData,16014019,140,56)
{
Data=String(1310=====1310)
link(onEventData,10933775:doWork1,[(193,62)])
}
Add(HubEx,10933775,189,98)
{
Angle=1
link(onEvent,8160523:doWork1,[])
}
END_SDK
Add(Button,12153148,182,175)
{
Left=470
Top=10
Width=80
Caption="ударЕние"
link(onClick,15389493:doLoad,[])
}
Add(MultiElementEx,15389493,245,175)
{
@Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|0:|14:Новая редакция|
link(ResultString,7766550:doText,[(299,181)(299,160)])
link(Data,7766550:Text,[(251,163)(288,163)(288,199)(328,199)])
AddHint(-47,-124,200,104,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,1610369,49,91)
{
WorkCount=#6:doLoad|0:|
EventCount=#12:ResultString|0:|
DataCount=#4:Data|
Width=531
Height=214
VOffset=14
HOffset=49
link(doLoad,6142680:doEvent1,[])
}
Add(InfoTip,14515840,28,14)
{
Info=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|
Width=358
Height=60
}
Add(StrCase,3040051,427,210)
{
link(onModify,8570262:doWork3,[(473,216)])
}
Add(HubEx,8570262,469,203)
{
link(onEvent,402667:doStrCat,[])
}
Add(Str_Enum,9992685,182,189)
{
Delimiter=""
link(onEnum,6752549:doEvent1,[])
}
Add(Convertor,10707034,273,203)
{
Mode=3
link(onResult,10321937:doCalc,[])
}
Add(StrCat,402667,518,203)
{
Point(doClear)
link(Str1,14681209:Var1,[(524,194)(503,194)(503,247)])
}
Add(GetDataEx,14681209,518,242)
{
link(Data,402667:Result,[])
}
Add(Hub,6142680,63,105)
{
OutCount=3
link(onEvent1,402667:doClear,[(497,111)(497,216)])
link(onEvent2,1961720:doEnum,[(87,118)(87,195)])
link(onEvent3,5683228:doTrim,[(489,125)(489,265)])
}
Add(Str_Enum,1961720,98,189)
{
Delimiter=" "
link(onEnum,10077282:doStrCat,[])
link(String,1610369:Data,[])
}
Add(MathParse,10321937,322,203)
{
MathStr="((%1 = 168) + (%1 >= 192) * (%1 <= 223)) * %2"
link(onResult,4918618:doEvent,[])
link(X2,14966587:Value,[])
}
Add(StrCat,10077282,140,189)
{
Str2=" "
link(onStrCat,9992685:doEnum,[])
}
Add(Trim,5683228,518,259)
{
Char=" "
link(onTrim,1610369:ResultString,[(558,265)(558,111)])
link(Text,14681209:Var2,[])
}
Add(Hub,6752549,224,189)
{
OutCount=3
link(onEvent1,14966587:doClear,[(315,195)(315,167)])
link(onEvent2,10220044:doEvent,[(256,202)(256,153)])
link(onEvent3,10707034:doConvert,[])
}
Add(Memory,14966587,329,154)
{
Default=Integer(1)
}
Add(IndexToChanel,4918618,378,203)
{
Point(Data)
link(onEvent1,8570262:doWork2,[])
link(onEvent2,3040051:doModify,[])
link(Data,9992685:Part,[(384,191)(367,191)(367,241)(195,241)])
}
Add(IndexToChanel,10220044,273,147)
{
Point(Index)
link(onEvent2,14966587:doValue,[])
link(Index,9992685:NumSubStr,[(279,135)(233,135)(233,233)(188,233)])
}
END_SDK
Add(Button,11969675,182,133)
{
Left=470
Top=45
Width=80
Data=String(dgxdrxd)
link(onClick,7766550:doAdd,[])
}
или я не верно подключил ?