[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