diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm
index fd5ed145..03be8fa7 100644
--- a/src/ce_editor.lfm
+++ b/src/ce_editor.lfm
@@ -39,7 +39,7 @@ inherited CEEditorWidget: TCEEditorWidget
         BorderSpacing.Around = 2
         Panels = <        
           item
-            Width = 100
+            Width = 110
           end        
           item
             Width = 150
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index a1cdb132..992e3392 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -128,6 +128,7 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION PageControl/Editor things ---------------------------------------------}
 function TCEEditorWidget.getEditorCount: NativeInt;
 begin
   result := pageControl.PageCount;
@@ -333,7 +334,8 @@ const
 begin
   if fDoc = nil then exit;
   //
-  editorStatus.Panels[0].Text := format('%d : %d', [fDoc.CaretY, fDoc.CaretX]);
+  editorStatus.Panels[0].Text := format('%d : %d | %d', [fDoc.CaretY, fDoc.CaretX,
+    fDoc.SelEnd - fDoc.SelStart]);
   editorStatus.Panels[1].Text := modstr[fDoc.modified];
   editorStatus.Panels[2].Text := fDoc.fileName;
 end;
@@ -372,5 +374,6 @@ begin
   tokLst.Clear;
   errLst.Clear;
 end;
+{$ENDREGION}
 
 end.