Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

Find in DBRichEdit   Найти похожие ветки 

 
Dell3r ©   (2005-10-04 17:21) [0]

Произвожу поиск с помощью данной процедуры:

var
Buff, P, FT : PChar;
BuffLen     : Word;
begin
RxDBRichEdit1.SelStart:=1;
GetMem(FT, Length(TreeView1.Selected.Text) + 1);
StrPCopy(FT, TreeView1.Selected.Text);
BuffLen:= RxDBRichEdit1.GetTextLen + 1;
GetMem(Buff,BuffLen);
RxDBRichEdit1.GetTextBuf(Buff,BuffLen);
P:= Buff + RxDBRichEdit1.SelStart + RxDBRichEdit1.SelLength;
P:= StrPos(P, FT);
if P = NIL then MessageBeep(0)
else
begin
RxDBRichEdit1.SelStart:=1;
RxDBRichEdit1.SetFocus;
RxDBRichEdit1.SelStart:= P - Buff;
RxDBRichEdit1.SelLength:= Length(TreeView1.Selected.Text);
end;
FreeMem(FT, Length(TreeView1.Selected.Text) + 1);
FreeMem(Buff,BuffLen);
RxDBRichEdit1.SetFocus;


И вот тут начинаются проблемы, как найденную строку переместить на самый верх?


 
12DFBDD   (2005-10-05 08:11) [1]

Не переводит строку в новую позицию без сообщения
procedure MemoCursorTo(Memo:TMemo; MemoLine, MemoCol: Integer);
begin
Memo.SelStart := SendMessage (Memo.Handle, EM_LINEINDEX, MemoLine, 0)
+ MemoCol - 1;
end;  

это ?
ну не знаю



Страницы: 1 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
14-1128782095
ArtemESC
2005-10-08 18:34
2005.10.30
Как устроен загрузочный сектор диска?


1-1128868736
wp2
2005-10-09 18:38
2005.10.30
Как создать процесс?


14-1128009414
Kerk
2005-09-29 19:56
2005.10.30
9 признаков американца (наверно баян)


1-1128930375
Leonid
2005-10-10 11:46
2005.10.30
Проблема с библиотекой qtintf70.dll


14-1128851569
NewWonder
2005-10-09 13:52
2005.10.30
Первые шаги в Java Script: