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.