[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[tyndur-devel] [PATCH] kedit: Workaround fuer Tabs
* kedit: Beim Laden Tabs durch 8 Leerzeichen ersetzen, ansonsten kommt
das Rendering fuerchterlich durcheinander, wenn es ein Zeichen malt
und der Cursor geht acht Zeichen weiter.
Dieser Patch haengt von der UTF-8-Serie ab.
---
src/modules/pas/kedit/kedit_main.pas | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/modules/pas/kedit/kedit_main.pas b/src/modules/pas/kedit/kedit_main.pas
index 8e2948d..18dbef7 100644
--- a/src/modules/pas/kedit/kedit_main.pas
+++ b/src/modules/pas/kedit/kedit_main.pas
@@ -41,7 +41,7 @@ function RTrim(stext: string):string;
implementation
-uses crt, dos, sysutils, kedit_tui;
+uses crt, dos, sysutils, strutils, kedit_tui;
@@ -180,7 +180,10 @@ begin
while not(eof(lfile)) do begin
Inc(cnt);
ReadLn(lfile, s);
- text^[cnt] := Utf8Decode(s);
+
+ // FIXME Sobald kedit Tabs kann, duefern die hier nicht mehr zu
+ // Leerzeichen werden
+ text^[cnt] := Utf8Decode(AnsiReplaceStr(s, #9, StringOfChar(' ', 8)));
end;
Close(lfile);
--
1.6.0.2