Вверх ↑
Этот топик читают: Гость
Ответов: 32
Рейтинг: 2
#1: 2009-06-11 14:02:49 ЛС | профиль | цитата
Пробую сделать блокнотик,чтобы при наборе выводилась подсказка.Элемент ArrayEnum доходит до конца перебора и останавливается, а также находит слово с первой
позиции.Возможно ли сделать чтобы подсказки были с любой позиции?Дайте пинка в нужном направлении.
Add(MainForm,2953706,21,105)
{
Width=489
Height=213
Position=1
link(onCreate,46517:doSetFocus,[(177,125)(177,188)])
}
Add(Position,4695436,532,336)
{
Target=" "
ZeroPos=0
ShortSearch=1
Point(doReset)
link(onSearch,13145173:doCompare,[(594,342)(594,370)])
link(Target,46517:Text,[(545,268)(307,268)])
}
Add(StrList,4342104,707,105)
{
Strings=#5: ldi |5: led |5: lul |5: fds |5: fgh |
}
Add(ArrayEnum,4852268,714,203)
{
onBreakEnable=0
Point(onBreak)
link(onItem,830487:doEvent1,[(772,209)(772,174)])
link(Array,4342104:Array,[(720,187)(727,187)])
}
Add(If_else,13145173,623,364)
{
Type=2
Op2=String(0)
link(onTrue,4852268:doStop,[(685,370)(685,216)])
}
Add(RichEdit,46517,301,147)
{
Left=50
Top=20
Width=230
ParseLinks=0
Point(onChar)
Point(doSetFocus)
Point(MoveCursor)
Point(Position)
Point(doHint)
link(onChange,4852268:doEnum,[(523,153)(523,209)])
}
Add(Hub,830487,777,168)
{
link(onEvent1,46517:doHint,[(803,174)(803,184)(289,184)(289,195)])
link(onEvent2,4695436:doSearch,[(821,181)(821,258)(520,258)(520,342)])
}

карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2009-06-11 14:27:46 ЛС | профиль | цитата
Вот тебе пинок в сторону форума: код программы надо вставлять между тегами [cоde] и [/cоde]
карма: 10
0
Ответов: 3851
Рейтинг: 159
#3: 2009-06-11 16:11:19 ЛС | профиль | цитата
не разбирался с хинтом, но вот одно из направлений code_13677.txt..
карма: 0
начавший
0
файлы: 1code_13677.txt [1.4KB] [168]
Ответов: 223
Рейтинг: 24
#4: 2009-06-11 19:01:00 ЛС | профиль | цитата
Может это подойдет
code_13680.txt
карма: 0

0
файлы: 1code_13680.txt [1.2KB] [136]
Ответов: 32
Рейтинг: 2
#5: 2009-06-18 13:57:14 ЛС | профиль | цитата
С помощью хорошего пинка Андрея я тронулся,но ненадолга.Вот что получилось.Может быть кто еще подскажет по следующим вопросам:
1.Как при клике на нужном слове,когда меняется шрифт,потом восстановить первоначальный?
2.Как сделать ,чтобы слово добавлялось без первоначальных набранных букв?
code_13796.txt
карма: 0

0
файлы: 1code_13796.txt [2.3KB] [147]
Ответов: 32
Рейтинг: 2
#6: 2009-06-19 16:17:35 ЛС | профиль | цитата
Замена шрифта получилась,осталось чтобы не добавлялись повторяющиеся буквы.

Add(MainForm,16436722,126,210)
{
Width=424
Height=199
Position=1
link(onCreate,46517:doSetFocus,[])
}
Add(StrList,4342104,553,91)
{
Strings=#1: |3:ldi|3:led|3:lul|3:fds|3:fgh|
}
Add(ArrayEnum,4852268,567,168)
{
Point(onBreak)
link(onItem,3889559:doEvent1,[(656,174)(656,319)(339,319)(339,279)])
link(Array,4342104:Array,[])
}
Add(RichEdit,46517,182,189)
{
Left=50
Top=20
Width=230
Font=[Tahoma,10,1,0,204]
ScrollBars=2
InsertCRLF=1
ParseLinks=0
Point(onChar)
Point(doSetFocus)
Point(MoveCursor)
Point(Position)
Point(doHint)
Point(onKeyDown)
Point(doSetSelStart)
Point(doFont)
link(Str,9934816:Caption,[(188,177)(391,177)(391,310)(594,310)])
link(Color,12534534:State,[(195,128)(503,128)])
link(onChar,14004949:doCase,[(254,202)(254,195)])
link(onKeyDown,11861528:doEvent1,[])
}
Add(Memo,14095249,427,168)
{
Left=310
Top=45
Width=140
Height=65
Visible=1
link(onChange,4852268:doEnum,[])
}
Add(StrCat,15789350,357,189)
{
link(onStrCat,14095249:doText,[])
link(Str1,5782546:Var3,[(363,177)(412,177)])
}
Add(Case,14004949,287,189)
{
Value=String( )
link(onNextCase,15789350:doStrCat,[])
link(onTrue,14095249:doClear,[(373,202)(373,181)])
}
Add(GetDataEx,5782546,399,224)
{
Angle=1
link(Data,14095249:Text,[(433,233)])
}
Add(StrMask,16482316,455,266)
{
Point(doMask)
link(onTrue,2977078:doEvent1,[])
}
Add(StrCat,3027821,406,273)
{
Str2="*"
link(onStrCat,16482316:doMask,[])
link(Str1,5782546:Var2,[])
}
Add(Hub,3889559,357,273)
{
link(onEvent1,3027821:doStrCat,[])
link(onEvent2,16482316:doCompare,[(385,286)(385,272)])
}
Add(Hub,2977078,511,273)
{
link(onEvent1,4852268:doStop,[(549,279)(549,181)])
link(onEvent2,9934816:doText,[(557,286)(557,272)])
}
Add(Label,9934816,588,266)
{
Left=50
Top=120
Width=75
Height=25
Color=12632256
Font=[Tahoma,10,1,0,204]
Cursor=2
link(onClick,12534534:doReset,[(632,272)(632,160)(485,160)(485,48)])
}
Add(StrMask,7624202,476,343)
{
Mask="32"
link(onFalse,12534534:doOn,[(520,349)(520,202)(485,202)(485,55)])
}
Add(Hub,11861528,259,203)
{
OutCount=3
link(onEvent2,7624202:doCompare,[(375,216)(375,349)])
}
Add(InfoTip,1196208,448,329)
{
Info=#6:
[size=9][color=gray]------------ Дoбавленo в 16.21:[/color][/size]
Извиняюсь опять не так вставил.

Add(MainForm,16436722,126,210)
{
Width=424
Height=199
Position=1
link(onCreate,46517:doSetFocus,[])
}
Add(StrList,4342104,553,91)
{
Strings=#1: |3:ldi|3:led|3:lul|3:fds|3:fgh|
}
Add(ArrayEnum,4852268,567,168)
{
Point(onBreak)
link(onItem,3889559:doEvent1,[(656,174)(656,319)(339,319)(339,279)])
link(Array,4342104:Array,[])
}
Add(RichEdit,46517,182,189)
{
Left=50
Top=20
Width=230
Font=[Tahoma,10,1,0,204]
ScrollBars=2
InsertCRLF=1
ParseLinks=0
Point(onChar)
Point(doSetFocus)
Point(MoveCursor)
Point(Position)
Point(doHint)
Point(onKeyDown)
Point(doSetSelStart)
Point(doFont)
link(Str,9934816:Caption,[(188,177)(391,177)(391,310)(594,310)])
link(Color,12534534:State,[(195,128)(503,128)])
link(onChar,14004949:doCase,[(254,202)(254,195)])
link(onKeyDown,11861528:doEvent1,[])
}
Add(Memo,14095249,427,168)
{
Left=310
Top=45
Width=140
Height=65
Visible=1
link(onChange,4852268:doEnum,[])
}
Add(StrCat,15789350,357,189)
{
link(onStrCat,14095249:doText,[])
link(Str1,5782546:Var3,[(363,177)(412,177)])
}
Add(Case,14004949,287,189)
{
Value=String( )
link(onNextCase,15789350:doStrCat,[])
link(onTrue,14095249:doClear,[(373,202)(373,181)])
}
Add(GetDataEx,5782546,399,224)
{
Angle=1
link(Data,14095249:Text,[(433,233)])
}
Add(StrMask,16482316,455,266)
{
Point(doMask)
link(onTrue,2977078:doEvent1,[])
}
Add(StrCat,3027821,406,273)
{
Str2="*"
link(onStrCat,16482316:doMask,[])
link(Str1,5782546:Var2,[])
}
Add(Hub,3889559,357,273)
{
link(onEvent1,3027821:doStrCat,[])
link(onEvent2,16482316:doCompare,[(385,286)(385,272)])
}
Add(Hub,2977078,511,273)
{
link(onEvent1,4852268:doStop,[(549,279)(549,181)])
link(onEvent2,9934816:doText,[(557,286)(557,272)])
}
Add(Label,9934816,588,266)
{
Left=50
Top=120
Width=75
Height=25
Color=12632256
Font=[Tahoma,10,1,0,204]
Cursor=2
link(onClick,12534534:doReset,[(632,272)(632,160)(485,160)(485,48)])
}
Add(StrMask,7624202,476,343)
{
Mask="32"
link(onFalse,12534534:doOn,[(520,349)(520,202)(485,202)(485,55)])
}
Add(Hub,11861528,259,203)
{
OutCount=3
link(onEvent2,7624202:doCompare,[(375,216)(375,349)])
}
Add(InfoTip,1196208,448,329)
{
Info=#6:
карма: 0

0
Ответов: 223
Рейтинг: 24
#7: 2009-06-19 16:28:11 ЛС | профиль | цитата
jeka7,может из этого что-то подойдет
code_13815.txt
карма: 0

0
файлы: 1code_13815.txt [1.4KB] [134]
Ответов: 32
Рейтинг: 2
#8: 2009-06-19 16:28:35 ЛС | профиль | цитата
Извиняюсь не так вставил.
code_13816.txt
карма: 0

0
файлы: 1code_13816.txt [2.4KB] [143]
Ответов: 32
Рейтинг: 2
#9: 2009-07-14 15:39:32 ЛС | профиль | цитата
Получилось добавлять слова с подсветкой из надписи.Вот так.code_14131.txt
А вот из списка строк никак не получается.Может кто подскажет?
code_14132.txt
карма: 0

0
файлы: 2code_14131.txt [4.1KB] [143], code_14132.txt [5.4KB] [157]
Разработчик
Ответов: 26163
Рейтинг: 2127
#10: 2009-07-14 15:44:24 ЛС | профиль | цитата
jeka7, слушай, а не проще ли использовать для этой цели HiLightMemo, или цель стоит именно на Rich сделать
карма: 22

0
Ответов: 32
Рейтинг: 2
#11: 2009-07-14 15:52:40 ЛС | профиль | цитата
Пробовал ,но там я так и не разобрался как добавлять из списка и пробелы между буквами.
code_14133.txt
карма: 0

0
файлы: 1code_14133.txt [598B] [150]
Разработчик
Ответов: 26163
Рейтинг: 2127
#12: 2009-07-14 16:17:27 ЛС | профиль | цитата
jeka7 писал(а):
пробелы между буквами

Пробелы там потому, что применять надо моноширный шрифт. Внимательно почитай wiki, там все написано HiLightMemo
Обрати внимание на точку


doAddHilightStrings=Добавить список слов, которые нужно подсвечивать. Формат ввода - Слово=Цвет(=U),
где цвета подсветки могут быть установлены как цифровыми значениями, так и обозначены псевдонимами (Black,Maroon,Green,Olive,Navy,Purple,Teal,Gray,Silver,Red,Lime,Yellow,Blue,Fuchsia,Aqua,White).
Символ "U" означает признак ссылки
карма: 22

0
Ответов: 3851
Рейтинг: 159
#13: 2009-07-14 22:07:44 ЛС | профиль | цитата

как-то баловался с раскраской ников в сообщениях чата - посмотреть можно в публикаторе - раздел Text processing, называется ChatMsgContentParser..
карма: 0
начавший
0
Ответов: 32
Рейтинг: 2
#14: 2009-07-15 12:17:18 ЛС | профиль | цитата
Шрифты поменял пробелы исчезли,большое спасибо.А вот добавлять слова из списка,который открывается во время набора никак не доходит.Может приведете пример пожалуйста.code_14139.txt
карма: 0

0
файлы: 1code_14139.txt [545B] [147]
Разработчик
Ответов: 26163
Рейтинг: 2127
#15: 2009-07-15 12:57:26 ЛС | профиль | цитата
jeka7 писал(а):
А вот добавлять слова из списка,который открывается во время набора никак не доходит

Да, он только на клаву срабатывает, на мышь не хочет. Да и слово подстановки, кроме как в основное поле, никуда больше не выдается. Доработать немного надо.
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)