Tweet
Hallo Zusammen
Das Thema Richedit wurde schon mehrmals besprochen, dennoch habe ich eine Frage zur Selektierung. Ich Suche einen Text in einer RichEdit-Compo zeilenweise nach einem String durch. Jede Zeile die diesen String enthält, erhält eine blaue Fontfarbe und wird Fett dargestellt. Mein Code:
<B>procedure</B> TForm1.Button1Click(Sender: TObject);<BR>
<B>var</B> i:integer;<BR>
<B>begin</B> <BR>
<B>with</B> Richedit1 <B>do</B><BR>
<B>for</B> i:= 0 <B>to</B> Lines.Count -1 <B>do</B> <BR>
<B>if</B> Pos(FSearchString,Lines[i]) > 0 then <BR>
begin <BR>
SelStart := SendMessage( Handle,EM_LINEINDEX,i,0 );<BR>
SelLength := SendMessage( Handle,EM_LINELENGTH,SelStart,0 );<BR>
SelAttributes.Color := clBlue; SelAttributes.Style := SelAttributes.Style + [fsBold];<BR>
end;<BR>
end; <BR>
Leider wird nur bis zur letzten sichtbaren Zeile Formatiert! Scrollt mann zum Ende der Richedit, sind die unteren Zeilen unformatiert. Wie sorge ich dafür, daß alle, auch die nicht sichtbaren Zeilen , formatiert werden?
Gruss
Ahiram
Das Thema Richedit wurde schon mehrmals besprochen, dennoch habe ich eine Frage zur Selektierung. Ich Suche einen Text in einer RichEdit-Compo zeilenweise nach einem String durch. Jede Zeile die diesen String enthält, erhält eine blaue Fontfarbe und wird Fett dargestellt. Mein Code:
<B>procedure</B> TForm1.Button1Click(Sender: TObject);<BR>
<B>var</B> i:integer;<BR>
<B>begin</B> <BR>
<B>with</B> Richedit1 <B>do</B><BR>
<B>for</B> i:= 0 <B>to</B> Lines.Count -1 <B>do</B> <BR>
<B>if</B> Pos(FSearchString,Lines[i]) > 0 then <BR>
begin <BR>
SelStart := SendMessage( Handle,EM_LINEINDEX,i,0 );<BR>
SelLength := SendMessage( Handle,EM_LINELENGTH,SelStart,0 );<BR>
SelAttributes.Color := clBlue; SelAttributes.Style := SelAttributes.Style + [fsBold];<BR>
end;<BR>
end; <BR>
Leider wird nur bis zur letzten sichtbaren Zeile Formatiert! Scrollt mann zum Ende der Richedit, sind die unteren Zeilen unformatiert. Wie sorge ich dafür, daß alle, auch die nicht sichtbaren Zeilen , formatiert werden?
Gruss
Ahiram