erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-09-28 18:47:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 10

Merge pull request #1148 from keymanapp/developer-web-editor-show-char-preview-range

Browse source 
[Developer] Show selected character range in character preview window, not just first character
This commit is contained in:
Marc Durdin 2018-08-30 11:00:13 +10:00 • committed by GitHub
commit ffd4b28372
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
windows/src/developer/TIKE/main/UframeTextEditor.pas
View file

@ -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;