Вверх ↑
Ответов: 497
Рейтинг: 16
#1: 2016-08-14 01:07:30 ЛС | профиль | цитата
nurik,
nurik писал(а):
в поле ввода при введении буквы в маску слова в определенном месте: в списке должны остаться слова, содержащие эту букву определенном месте.

только если заменить RichEdit на ListBox

Add(ArrayEnum,14823543,525,210)
{
link(onItem,1761043:doCompare,[])
link(onEndEnum,11540383:doEvent1,[(587,223)(587,259)(616,259)])
link(Array,5272700:Array,[(531,195)(533,195)])
}
Add(StrMask,1761043,616,210)
{
Point(doMask)
link(onTrue,15318224:doAdd,[])
}
Add(Edit,5384108,689,106)
{
Left=215
Top=5
Width=200
Height=45
Font=[Arial,18,1,0,204]
Text="*********"
MaxLenField=9
}
Add(StrList,15318224,756,217)
{
}
Add(ArrayEnum,4631743,770,294)
{
link(onItem,5272700:doAdd,[(814,300)(814,220)(501,220)(501,141)])
link(onEndEnum,15318224:doClear,[(814,307)(814,269)(744,269)(744,230)])
link(Array,15318224:Array,[])
}
Add(Hub,11540383,616,252)
{
link(onEvent1,5272700:doClear,[(642,258)(642,203)(501,203)(501,148)])
link(onEvent2,4631743:doEnum,[(700,265)(700,300)])
}
Add(Button,14788099,385,203)
{
Left=425
Top=5
Width=65
Height=40
link(onClick,2115753:doEvent1,[])
}
Add(Hub,2115753,455,203)
{
link(onEvent1,9235014:doData,[(577,209)(577,160)])
link(onEvent2,14823543:doEnum,[])
}
Add(DoData,9235014,686,154)
{
link(onEventData,1761043:doMask,[(730,160)(730,188)(604,188)(604,223)])
link(Data,5384108:Text,[(692,143)(695,143)])
}
Add(ListBox,5272700,513,135)
{
Left=10
Top=5
Width=200
Height=215
Font=[Times New Roman,12,1,0,204]
Ctl3D=1
Strings=#8:АБАЗИНЕЦ|8:АБАЗИНКА|8:АББАТИСА|8:АБДРАГАН|8:АБДУКТОР|8:АБДУКЦИЯ|8:АБЕЛЬМОШ|8:АБЗЕТЦЕР|8:АБИССАЛЬ|8:АБОЛИЦИЯ|8:АБОРИГЕН|8:АБРАКСАС|8:АБРИКОЛЬ|8:АБРОКОМА|8:АБСОРБЕР|8:АБСТРАКТ|8:АБСЦИССА|8:АБУТИЛОН|8:АБЫРВАЛГ|8:АВАЛЬМАН|8:АВАНГАРД|8:АВАНЛОЖА|8:АВАНПОРТ|8:АВАНПОСТ|8:АВАНРЕЙД|8:АВАНТЮРА|8:АВАНФОСС|8:АВАРИЙКА|8:АВАРТАНА|8:АВГУСТАЛ|8:АВИАБАЗА|8:АВИАМАЯК|8:АВИАПАРК|8:АВИАПОЛК|8:АВИАРЕЙС|8:АВИАТИКА|8:АВИДИТЕТ|8:АВИОНИКА|8:АВИФАУНА|8:АВРИКУЛА|8:АВСТЕРИЯ|8:АВСТРИЕЦ|8:АВСТРИЯК|8:АВТАРКИЯ|8:АВТОБАЗА|8:АВТОГРАД|8:АВТОГРАФ|8:АВТОДЕЛО|8:АВТОДРОМ|8:АВТОКЛАВ|8:АВТОКЛУБ|8:АВТОКРАН|8:АВТОКРАТ|8:АВТОЛИСТ|8:АВТОМАКС|8:АВТОПАРК|8:АВТОПЛУГ|8:АВТОСАНИ|8:АВТОСТОП|8:АВТОТРОФ|8:АВТОХТОН|8:АВТОШАРЖ|8:АВЮТОРГА|8:АГАРИКУС|8:АГАРЯНИН|8:АГАРЯНКА|8:АГАСТРИЯ|8:АГЕВСТИЯ|8:АГЕНЕЗИЯ|8:АГЕНТУРА|8:АГЕРАТУМ|8:АГИТАТОР|8:АГИТАЦИЯ|8:АГЛОССИЯ|8:АГНОСТИК|8:АГОНОМАЛ|8:АГОРАНОМ|8:АГРАМАНТ|8:АГРАМЕНТ|8:АГРАРНИК|8:АГРЕССИЯ|8:АГРЕССОР|8:АГРОМЕТР|8:АГРОПРОМ|8:АГРОСЕТЬ|8:АГУКАНЬЕ|8:АДВЕКЦИЯ|8:АДГЕРЕНТ|8:АДДЕНДУМ|8:АДДИКЦИЯ|8:АДДУКТОР|8:АДДУКЦИЯ|8:АДЕНОЗИН|8:АДЕНОИДЫ|8:АДЖАСТЕР|8:АДЖИВИКА|8:АДЖИЛИТИ|8:АДИАБАТА|8:АДИАНТУМ|8:АДИНАМИЯ|8:АДИПОЗИТ|8:АДНЕКСИТ|8:АДОНИЗИД|8:АДОНИЛЕН|8:АДОНИТИС|8:АДОРАЦИЯ|8:АДОРНИСТ|8:АДРЕСАНТ|8:АДСОРБАТ|8:АДСОРБЕР|8:АДЪЮВАНТ|8:АДЪЮСТАЖ|8:АДЪЮТАНТ|8:АДЫГЕЙКА|
}


а первое я или не понял или они оба одно и тоже
------------ Дoбавленo в 01.00:
и если код большой то лучше его файлом выкладывать я ели все скопировал
------------ Дoбавленo в 01.07:
а смысл схемы вооообще не понятен
карма: 1
        ]  
0