Hallo, in einem anderen Thread wurde mir bereits super geholfen, da es sich dort um ein anderes Thema handelt, hier ein neuer Thread etwas spezifischer.
Ich nutze ein RichEdit da man da ja mehr als eine Farbe nutzen kann.
Nun möchte ich es erreichen das ein Text ab einer vorgegebenen Position eine andere Farbe bekommt.
Dank Reedemer und Delphi.Narium klappt das auch schon super!
Delphi-Quellcode:
procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit Control
var
Len : Integer; // Position ab wann eingefärbt werden soll
LenText : Integer; // Endposition
begin
Len := StrToIntDef(edtPosition.Text, 25); // edtPosition = Editfeld mit Positionsangabe
edtPosition.Text := IntToStr(Len); // diesen Wert zur Kontrolle ins edit zurückschreiben
LenText := Length(reMain.Text); // Wird (eventuell) mehrfach benötigt, ermitteln wir nur einmal. <- Danke!
if LenText > Len then // falls ein einfärben nötig wird, hier die routine
begin
reMain.SelStart := Len; // cursor auf position X setzen
reMain.SelLength := High(Integer); // und bis zum ende alles markieren
reMain.SelAttributes.Color := clGreen; // mit dieser farbe das selektierte einfärben
reMain.SelStart := High(Integer); // cursor ans ende
reMain.SelLength := 0; // selektierung aufheben
end;
end;
Im Prinzip funktioniert es wunderbar, also es macht genau das was ich möchte.
Jetzt meine Frage, bekommt man das auch hin ohne das es flackert, bin ich vielleicht im falschen Ereignis dafür?
Mit flackern meine ich = man bemerkt das der Text kurz blau wird (selektiert), sich einfärbt und dann wieder "entblaut" wird.
Ich hoffe es ist verständlich genug formuliert. Wenn nicht bitte fragen!
Vielen Dank fürs Lesen!
//edit
Probiert hatte ich es über reMain.Lines.Begin/EndUpdate, aber da gerate ich mit obigen code in eine Endlosschleife bis letztendlich das Programm ganz abstürzt.