--- ./ide/wcedit.pas.orig	2008-07-21 01:37:48.000000000 +0400
+++ ./ide/wcedit.pas	2013-02-26 09:47:48.426075567 +0400
@@ -777,6 +777,7 @@
   L: array[0..1] of Longint;
   S: String[15];
   B: TDrawBuffer;
+  K: String;
 begin
   if assigned(CodeOwner) and
      (CodeOwner^.ELockFlag>0) then
@@ -812,7 +813,13 @@
 {$endif debug}
      L[0] := Location.Y + 1;
      L[1] := Location.X + 1;
-     FormatStr(S, ' %d:%d ', L);
+//     FormatStr(S, ' %d:%d ', L);
+     Str(L[0],S);
+     if Length(S)<6 then S:=' '+S;
+     S:=S+':';
+     Str(L[1],K);
+     if Length(K)<3 then K:=K+' ';
+     S:=S+K;
      MoveStr(B[8 - Pos(':', S)], S, Color);
    end;
   WriteBuf(0, 0, Size.X, 1, B);

--- a/ide/wcedit.pas	2013-02-26 11:34:42.000196261 +0400
+++ b/ide/wcedit.pas	2013-02-26 11:35:26.355006175 +0400
@@ -774,7 +774,7 @@
 var
   Color: Byte;
   Frame: Char;
-  L: array[0..1] of Longint;
+  L: array[0..1] of Pointer;
   S: String[15];
   B: TDrawBuffer;
 begin
@@ -810,8 +810,8 @@
      if UseTabs then
        WordRec(B[3]).lo := ord('T');
 {$endif debug}
-     L[0] := Location.Y + 1;
-     L[1] := Location.X + 1;
+     L[0] := Pointer(Location.Y + 1);
+     L[1] := Pointer(Location.X + 1);
      FormatStr(S, ' %d:%d ', L);
      MoveStr(B[8 - Pos(':', S)], S, Color);
    end;

--- a/ide/wcedit.pas	2013-02-26 11:34:42.000196261 +0400
+++ b/ide/wcedit.pas	2013-02-26 12:59:01.948875133 +0400
@@ -774,7 +774,7 @@
 var
   Color: Byte;
   Frame: Char;
-  L: array[0..1] of Longint;
+  L: array[0..1] of PtrInt;
   S: String[15];
   B: TDrawBuffer;
 begin
@@ -810,8 +810,8 @@
      if UseTabs then
        WordRec(B[3]).lo := ord('T');
 {$endif debug}
-     L[0] := Location.Y + 1;
-     L[1] := Location.X + 1;
+     L[0] := PtrInt(Location.Y + 1);
+     L[1] := PtrInt(Location.X + 1);
      FormatStr(S, ' %d:%d ', L);
      MoveStr(B[8 - Pos(':', S)], S, Color);
    end;