vovcheck писал(а):
Я понял что пора садиться за картежиТам еще те приколы
------------ Дoбавленo в 02.10:
vovcheck, вот твой модуль перевода кириллических символов в нижний регистр, начиная со второй буквы
Add(MultiElementEx,15389493,469,532)
{
@Hint=#190:Переводит ВО ВСЁМ ИСХОДНОМ ТЕКСТЕ кириллические слова в нижний регистр со 2-й буквы (т.е. устраняет ударения из текста, форматированного для телесуфлёра) и возвращает обратно в исходное окно|0:|14:Новая редакция|
AddHint(-219,-114,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(MainForm,3011605,273,217)
{
}
Add(Memo,7766550,434,217)
{
Left=10
Top=5
Width=265
Height=250
Font=[MS Sans Serif,10,0,0,1]
Strings=#20:Привет от HiAsmZz-a!|
Point(onKeyDown)
Point(SelText)
Point(doSetSelect)
link(onKeyDown,2105727:doWork,[])
}
Add(MultiElementEx,12888806,455,448)
{
@Hint=#56:Переводит кириллические символы в верхний/нижний регистр|
link(ResultString,8160523:doWork2,[])
link(Data,7766550:SelText,[])
}
BEGIN_SDK
Add(EditMultiEx,1610369,21,21)
{
WorkCount=#4:doUp|6:doDown|
EventCount=#12:ResultString|0:|
DataCount=#4:Data|
Width=426
Height=242
VOffset=56
HOffset=35
link(doUp,10405018:doWork2,[])
link(doDown,10405018:doWork3,[])
}
Add(Shape,15843163,21,273)
{
Width=277
Text="а-я== 224-255 А-Я== 192-223 Ё== 168 ё== 184 "
PWidth=2
}
Add(StrCase,3040051,266,161)
{
Type=1
link(onModify,8570262:doWork2,[])
}
Add(StrCase,7786281,266,203)
{
link(onModify,8570262:doWork3,[(333,209)])
}
Add(HubEx,8570262,329,161)
{
link(onEvent,402667:doStrCat,[])
}
Add(Str_Enum,9992685,56,154)
{
Delimiter=""
link(onEnum,10707034:doConvert,[])
link(String,1610369:Data,[])
}
Add(MathParse,10321937,154,154)
{
MathStr="((%1 = 168) + (%1 = 184) + (%1 >= 192) * (%1 <= 255)) * %2"
link(onResult,11377910:doEvent,[])
link(X2,1494482:Value,[])
}
Add(Convertor,10707034,105,154)
{
Mode=3
link(onResult,10321937:doCalc,[])
}
Add(StrCat,402667,371,161)
{
Point(doClear)
link(Str1,14681209:Var1,[(377,152)(359,152)(359,205)])
}
Add(DoData,14419447,371,217)
{
link(onEventData,1610369:ResultString,[(419,223)(419,83)])
link(Data,14681209:Var2,[])
}
Add(GetDataEx,14681209,371,200)
{
link(Data,402667:Result,[])
}
Add(Hub,6142680,231,70)
{
OutCount=3
link(onEvent1,402667:doClear,[(351,76)(351,174)])
link(onEvent2,9992685:doEnum,[(260,83)(260,39)(39,39)(39,160)])
link(onEvent3,14419447:doData,[(343,90)(343,223)])
}
Add(Memory,1494482,161,70)
{
link(onData,6142680:doEvent1,[])
}
Add(ChanelToIndex,10405018,105,70)
{
Count=3
link(onIndex,1494482:doValue,[])
}
Add(IndexToChanel,11377910,210,154)
{
Count=3
Point(Data)
link(onEvent1,8570262:doWork1,[(254,160)(254,149)(333,149)])
link(onEvent2,3040051:doModify,[])
link(onEvent3,7786281:doModify,[(254,174)(254,209)])
link(Data,9992685:Part,[(216,142)(195,142)(195,198)(69,198)])
}
END_SDK
Add(KeyMask,2531088,378,441)
{
@Hint=#7:Ctrl-Up|
Ctrl=1
Key=38
link(onFalse,13703566:doCheckMask,[(422,447)(422,426)(366,426)(366,405)])
link(onTrue,12888806:doUp,[])
AddHint(-110,-18,47,13,@Hint)
}
Add(KeyMask,10403116,378,483)
{
@Hint=#9:Ctrl-Down|
Ctrl=1
Key=40
link(onFalse,2531088:doCheckMask,[(422,489)(422,468)(366,468)(366,447)])
link(onTrue,12888806:doDown,[(432,496)(432,461)])
AddHint(-110,-16,61,13,@Hint)
}
Add(Check,2105727,483,224)
{
Caption="onKeyDown"
link(onEvent,10403116:doCheckMask,[(573,230)(573,190)(253,190)(253,489)])
}
Add(Check,6781570,546,448)
{
Caption="doSetSelect"
link(onEvent,7766550:doSetSelect,[(645,454)(645,293)(422,293)(422,265)])
}
Add(Button,11969675,371,217)
{
Left=285
Top=45
Data=String(dgxdrxd)
link(onClick,7766550:doAdd,[])
}
Add(KeyMask,11074046,378,357)
{
@Hint=#2:F3|
Key=114
link(onFalse,2952773:doCheckMask,[(422,363)(422,342)(366,342)(366,321)])
link(onTrue,7640352:doData,[])
AddHint(-110,-16,27,13,@Hint)
}
Add(KeyMask,13703566,378,399)
{
@Hint=#2:F2|
Key=113
link(onFalse,11074046:doCheckMask,[(422,405)(422,384)(366,384)(366,363)])
link(onTrue,13047884:doWork,[])
AddHint(-110,-20,27,13,@Hint)
}
Add(KeyMask,2952773,378,315)
{
@Hint=#2:F4|
Key=115
link(onTrue,16014019:doData,[])
AddHint(-109,-14,27,13,@Hint)
}
Add(Check,13047884,469,406)
{
Caption="Parse"
}
Add(DoData,7640352,469,364)
{
Data=String(*\*1310)
link(onEventData,10933775:doWork2,[])
}
Add(HubEx,8160523,518,448)
{
link(onEvent,6781570:doWork,[])
}
Add(DoData,16014019,469,322)
{
Data=String(1310=====1310)
link(onEventData,10933775:doWork1,[(522,328)])
}
Add(HubEx,10933775,518,364)
{
Angle=1
link(onEvent,8160523:doWork1,[])
}