RichEdit - Search In Text – Delphi – Fórum – Programujte.com

Zdravíčko mám kód na vyhledávaní v RichEdit(v richeditu mam vložených pár vět pod sebou)..a když mi to slovo v najde v té větě, tak mi to vypíše celou větu... a chtěl bych se zeptat jak by šlo udělat, že když mi to tu větu vypíše, tak v té větě se mi to slovo třebas zvýrazní nebo obarví jinou barvou ? Vkláda se mi to do ListView(u)

Procedure find(Word : string);

var

 X, ToEnd : integer;

name : string;

begin

   with main.Form4.source_code do

   begin

     X := 0;

     ToEnd := length(Text);

     X := FindText(Word, X, ToEnd, []);



   while X <> -1 do

     begin

       SetFocus;

       SelStart := X;

       SelLength := length(Word) + 1;



       name := copy(Text, X + 1, Length(text));

       name := copy(cesta, 1, Pos(' ', cesta));

       Add(name);



       X := FindText(Word, X + SelLength, ToEnd, []);

     end;    

   end;

end;



Procedure Add(name : string);

var

 NextItem: TlistItem;

begin

 NextItem := form4.view.Items.Add;

 NextItem.Caption := name;

end;

a co je?
name := copy(Text, X + 1, Length(text));
name := copy(cesta, 1, Pos(' ', cesta));
> asi debug stádium..

Těžko porobit, zrovna u Listview nejde u Eventu {oncustomdrawitem} Drawing, háže ti to chyby na Lineto
CopyRect, nefungují tam řádně barvy, font, raději "renderuj" jinam. Možná WinForms jsou lepší.

Pokud trváš na Listview tak migruj
snad trefíš něco obstojnýho http://www.torry.net/pages.php?id=144

Díky mrknu na to .. a nebo to udelam jinak .. :-)