pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspeadsheet: Fix infinite loop in TsWorksheet if word-wrapped cell gets narrower than the width of a character.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4463 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-23 18:15:21 +00:00
parent b4b631c0f8
commit 8a5364b8b7
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/fpsvisualutils.pas
View File

@ -1439,7 +1439,10 @@ begin
begin
// (b) This is the only word in the line --> we break at the
// current cursor position.
UTF8Delete(part, UTF8Length(part), 1);
if Length(part) = 1 then
NextChar(1)
else
UTF8Delete(part, UTF8Length(part), 1);
end;
EOL := true;
break;