Commit cd3a7f98 authored by Kevin Wolf's avatar Kevin Wolf

kedit: Überschreib-Modus gefixt

! kedit: Wenn beim Überschreiben am Zeilenende doch neue Zeichen
  eingefügt werden, dann sollte man erst den Puffer vergrößern und dann
  das Zeichen reinschreiben, andersrum geht schief.

! kedit: Wenn ein Zeichen noch weiter rechts als am Zeilenende eingefügt
  wird, dann muss davor mit Leerzeichen aufgefüllt werden.
Signed-off-by: Kevin Wolf's avatarKevin Wolf <kevin@tyndur.org>
parent a996bd1c
......@@ -210,11 +210,13 @@ procedure Edit;
end else if ord(key) < 32 then begin
Beep;
end else if replace then begin
text^[cursY][cursX] := key;
if Length(text^[cursY]) < cursX then begin
text^[cursY] := text^[cursY] +
Space(cursX - Length(text^[cursY]) - 1);
SetLength(text^[cursY], cursX);
end;
text^[cursY][cursX] := key;
if cursX < MaxColumns then begin
Inc(cursX);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment