From e03126dfe2c5537922ad552ecdbbd1780a5a5663 Mon Sep 17 00:00:00 2001
From: Marc Durdin <marc@keyman.com>
Date: Thu, 30 Aug 2018 09:20:42 +1000
Subject: [PATCH] [Developer] Show selected character range in character
 preview window, not just first character

---
 windows/src/developer/TIKE/main/UframeTextEditor.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/windows/src/developer/TIKE/main/UframeTextEditor.pas b/windows/src/developer/TIKE/main/UframeTextEditor.pas
index fb59b42a27..f528935a70 100644
--- a/windows/src/developer/TIKE/main/UframeTextEditor.pas
+++ b/windows/src/developer/TIKE/main/UframeTextEditor.pas
@@ -888,12 +888,13 @@ var
   token, prevtoken: WideString;
   FHelpTopic, FPrevHelpTopic: WideString;
 begin
-  n := command.IndexOf(',');
-  if n < 0 then
+  token := StrToken(command, ',');
+  if token = 'null' then
+    col := 0
+  else if not TryStrToInt(token, col) then
     Exit;
-  if not TryStrToInt(command.Substring(0, n), col) then
-    Exit;
-  line := command.Substring(n+1);
+
+  line := command;
 
   x := col+1;