ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LOCATE
10 сообщений из 10, страница 1 из 1
LOCATE
    #32237987
новичек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
новичек
Участник
Можно ли подсветить фрагмент текста, найденный
LOCATE ($-поиск на вхождение) , как например это делается в блокноте
Подскажите как это сделать???
...
Рейтинг: 0 / 0
15.08.2003, 17:55
| Ответить | Цитировать | Написать  
LOCATE
    #32238005
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Ага, в Text или Edit Box-ах:

Код: plaintext
1.
2.
3.
4.
5.
lcSearched =  "вася" 
lnPos = at(m.lcSearched, This.Value)
if lnPos !=  0 
  This.SelStart = m.lnPos
  This.SelLength = len(m.lcSearched)
endif


А так уточняй, где тебе надо найденный текст "светить":)
...
Рейтинг: 0 / 0
15.08.2003, 18:10
| Ответить | Цитировать | Написать  
LOCATE
    #32238019
новичек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
новичек
Участник
Спсибо за ответ
Пока не додумался, что Вы имели в виду
Так вот у меня универсальный контейнер для поиска в гриде
Но как я определю переменную lcSearched
не могу понять
А дальше как в гриде ее подсветить
Уж простите за непонимание, ну новичек, он и есть такой
Кстати Анатолий, Вам мылил письмо с уточнением
предыдущего ответа на shirokov_a@mail.ru, скажите Вы мне ответите???
...
Рейтинг: 0 / 0
15.08.2003, 18:23
| Ответить | Цитировать | Написать  
LOCATE
    #32238030
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Вы набрали текст в text1.

Нажимает на кнопку "поиск":

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
set exact off
lcSearched = alltrim(thisform.text1.value)
thisform.LockScreen  = .t.
select table
locate for m.lcSearched $ field && только учти, что это очень медленно и надежд на оптимизацию нет
if found() && нашли
   * X - номер колонки, которая содержит table.field
   thisform.Grid1.ColumnX.Text1.SetStart = at(m.lcSearched, field)   
   thisform.Grid1.ColumnX.Text1.Setlength = len(m.lcSearched)   
endif
thisform.LockScreen  = .f.
thisform.Grid1.SetFocus()
...
Рейтинг: 0 / 0
15.08.2003, 18:35
| Ответить | Цитировать | Написать  
LOCATE
    #32238048
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Что касается выделение фрагмента в грайде, то, извини, поспешил - не работает мой код - просто выделяется ячейка грайда - выделения внутри Box-а не происходит.
...
Рейтинг: 0 / 0
15.08.2003, 19:02
| Ответить | Цитировать | Написать  
LOCATE
    #32238049
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Да, письмо отправил. Пожалуйста, задавай вопросы здесь или на Visual FoxPro - по почте я больше отвечать не буду.
...
Рейтинг: 0 / 0
15.08.2003, 19:06
| Ответить | Цитировать | Написать  
LOCATE
    #32238096
новичек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
новичек
Участник
Да, я тут парю, тоже не получается
может подскажите как бы посветиь ту "ячейку" грида
"на худой конец"
Спасибо
...
Рейтинг: 0 / 0
15.08.2003, 21:04
| Ответить | Цитировать | Написать  
LOCATE
    #32238120
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Код: plaintext
1.
...
thisform.Grid1.ColumnX.SetFocus()
...
Рейтинг: 0 / 0
15.08.2003, 22:53
| Ответить | Цитировать | Написать  
LOCATE
    #32238150
новичек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
новичек
Участник
Примерно так
LOCAL lcmmm,lnActivateCel,lnActivateCell,lnActiveRow,lnActiveRoww,lcMyRR
lcmmm=THIS.Gridname
lnActivateCel=[THISFORM.]+lcmmm+[.ActiveColumn]
lnActivateCell=&lnActivateCel && нормально, возвращает

lnActiveRow=[THISFORM.]+lcmmm+[.ActiveRow]
lnActiveRoww=&lnActiveRow && нормально, возвращает
MESSAGEBOX(lnActiveRoww)

Попытки активизацией ячейки не приводят к успеху
lcMyRR = "THISFORM."+this.gridname+'.ActivateCell(lnActiveRoww,lnActivateCell)'
MESSAGEBOX(lcMyRR )
&lcMyRR


попытки установки на активный столбец-не нравиться компилятору
синтаксис
lcMyRR = "THISFORM."+this.gridname+Columns(lnActivateCell)+".SetFocus"
MESSAGEBOX(lcMyRR )
&lcMyRR
И всякие извращения вроде
lcMyRR = "THISFORM."+this.gridname+'Columns(lnActivateCell)'+".SetFocus"
lcMyRR = "THISFORM."+this.gridname+Column(lnActivateCell)+".SetFocus"

тоже не проходят
Подскажите как это сделать???
...
Рейтинг: 0 / 0
16.08.2003, 06:41
| Ответить | Цитировать | Написать  
LOCATE
    #32238318
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
А что мешает стать на нужную запись источника Грида , сделать Refresh гриду и SetFocus на нужный техтбокс в нужном столбце?
...
Рейтинг: 0 / 0
16.08.2003, 20:42
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LOCATE
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=416&tid=1598035]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 240ms
total:  375ms
созд. / загр.: 375ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]