paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazFreeType: Call WordBreakHandler only when splitting lines on maximum width

Browse Source 
git-svn-id: trunk@40133 -
This commit is contained in:
ask 2013-02-03 00:05:35 +00:00
parent 640bfca4a6
commit f62e7a3b8d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/easylazfreetype.pas
View File

@ -459,10 +459,6 @@ var
begin
ARemains:= copy(AText, length(AText) - left + 1 + ADropCount, left);
AText := copy(AText, 1, length(AText) - left);
if Assigned(FWordBreakHandler) then
FWordBreakHandler(AText,ARemains)
else
DefaultWordBreakHandler(AText,ARemains);
end;
begin
@ -497,6 +493,10 @@ begin
if (totalWidth > AMaxWidth) and not firstChar then
begin
WordBreak;
if Assigned(FWordBreakHandler) then
FWordBreakHandler(AText,ARemains)
else
DefaultWordBreakHandler(AText,ARemains);
exit;
end;
end;