Главная страница
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.026 c
14-1128441313
lookin
2005-10-04 19:55
2005.10.30
Автовставка имен модулей в uses


3-1126973127
Tonich
2005-09-17 20:05
2005.10.30
Числа в базе данных


1-1129009022
kolos_rus
2005-10-11 09:37
2005.10.30
Как узнать активную форму?


2-1128782315
ArtemESC
2005-10-08 18:38
2005.10.30
округление Extended.


2-1128929639
alol
2005-10-10 11:33
2005.10.30
выделение строк в DBGrid