Hallo... ich habe ein echt blödes problem, ich habe , bzw baue gerade einen jabber chat.
Und damit der eine User in Rot und der andere in Blau schreibt benutze ich folgende procedure:
Delphi-Quellcode:
procedure TChatWindow.AddColoredString(ARichEdit: TRichEdit; AText: string;
AColor: TColor);
begin
ARichEdit.Lines.Add('');
with ARichEdit do
begin
SelStart := Length(Text);
SelAttributes.Color := AColor;
SelAttributes.Size := 10;
SelAttributes.Name := 'Verdana';
SelText := AText;
end;
end;
So das blöde ist aber,wenn ich mit dem anderen User etwas mehr schreibe, so dass die scrollbar gebrauch wird, dann ist die nachricht zwar ganz unten da, aber nicht immer gleich zu lesen, weil man dann noch immer nach unten scrollen muss, und dass will ich nicht.
Ich habe schon vielesversucht, aber irgendwie geht das nie richtig. Ich hatte gehofft, dass ich einfach den selStart auf die letzte zeile legen kann, aber das bringt irgendwie alles nichts.
Hat da zufällig jemand ne gute idee?