From e0c3d9495fce9930940cdee40e61d76bdfeb20b0 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 30 Nov 2014 02:34:30 +0100
Subject: [PATCH] added selection length display

---
 src/ce_editor.lfm | 2 +-
 src/ce_editor.pas | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

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.