stringabschnitte einfärben

[matze222]

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin
           begin
        if (richedit1.Lines.text>'') then

        richedit2.Lines.Text:=richedit2.Lines.Text+#13#13+#10+edit1.text+' sagt:               '+#13+#10+'  '+richedit1.Lines.Text;

        richedit1.Lines.text:='';

        RichEdit2.SelStart  := length(richedit2.text);
        RichEdit2.SelLength := 25;
        RichEdit2.SelAttributes.Color := clblack;

        RichEdit2.SelStart  := length(richedit2.text)+25;
        RichEdit2.SelLength := length(richedit1.Text);
        RichEdit2.SelAttributes.Color := colorbox1.selected;
         SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
    end;
end;

so sieht das bei mir aus...
wie du siehst hab ich das einfach darunter gesetzt...
nur jetz is der text auf der rechten seite und die scrollbar immer noch obn^^