Поиск через FindDialog в с++ builder

 
0
 
C++

Здравствуйте, подскажите пожалуйста, как сделать, чтобы в FindDialog работали кнопки "вверх" "вниз"
вот имеющийся код:

// на кнопку меню - вызов поиска:

FindDialog1->FindText = Memo1->SelText;
FindDialog1->Execute();

// FindDialog ->Events-> OnFind  и написала:

TSearchTypes Option;
StartPos = Memo1->SelStart;
if(Memo1->SelLength)
StartPos += Memo1->SelLength;

ToEnd = Memo1->Text.Length() - StartPos;

if (FindDialog1->Options.Contains(frWholeWord)) {
Option << stWholeWord;
  }
  else {
   Option >> stWholeWord;
  }
  if (FindDialog1->Options.Contains(frMatchCase)) {
    Option << stMatchCase;
  }
  else {
    Option >> stMatchCase;
  }

FoundAt = StartPos + Memo1->Text.SubString(StartPos+1, ToEnd).Pos(FindDialog1->FindText);

if(FoundAt != StartPos)
{
Memo1>SetFocus();
Memo1->SelStart = FoundAt-1;
Memo1->SelLength = FindDialog1->FindText.Length();
}
else
ShowMessage("Text  " + FindDialog1->FindText + " Not Found");
}

задан 08:17, 15.03.2017
ava 

c++
Ответы (0)
Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить