TRichEdit flackern dezimieren bei OnChange Färbung

[KodeZwerg]

Zitat von Delphi.Narium:

Doch OnKeyUp wäre da gut geeignet.

Damit hast Du alles, was über die Tastatur passiert schonmal abgedeckt.

Und die OnKeyUp-Routine kann man durchaus auch manuell hinter einem LoadFromFile, ... und ggfls. auch in 'nem OnMouseUp aufrufen. Mit der Eigenschaft Modified prüft man dann noch im OnKeyUp, ob überhaupt eine Änderung vorliegt. Damit sollte sich das Problem eigentlich recht gut lösen lassen.

Eventuell kannst Du auch eine Routine schreiben (bzw. Du hast sie ja schon vom Prinzip) und die dann "nur" in den relevanten Ereignissen bzw. nach dem Laden aus 'ner Datei ... aufrufen.

Du hast Recht!! Ich hätte es mal vorweg ausprobieren sollen bevor ich schrieb *schäm mich nun*

Delphi-Quellcode:

procedure TfrmMain.reMainKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Len : Integer; // Position ab wann eingefärbt werden soll
  LenText : Integer; // Endposition
begin
  if (not reMain.Modified) then // nur bei veränderung reagieren
    Exit;

  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.Lines.BeginUpdate; // flackern entfernen
    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
    reMain.Lines.EndUpdate; // flackern entfernen
  end;
end;

So macht er es ohne das ich "blau" sehe, perfekt!
Keine Verzögerungen bei der Eingage spürbar.
Datei laden bzw Paste per drag = auf dieses Event umgelenkt = ich bin happy!!!

Vielen Dank Delphi.Narium das Du stur geblieben bist und mich so auf den richtigen Weg gebracht hast!!!

Für andere Vorschäge bin ich immer noch offen, aber das obige arbeitet mE echt perfekt (für meine Bedürfnisse), wobei mir "if (not reMain.Modified) then" glaube ich überflüssig vorkommt.