FEDPOL #25 - font drawing problem

Julian, I reported this bug a long time ago but never received a reply.

• start Wordpad5 demo
• type some text and hit enter
• type some more text
• change font size to 40
• type some more text

Here is a screenshot.

In unit WPRTEDefs.PAS locate
function TParagraph.Reformat(Always: Boolean = FALSE; MaxW: Integer = 0; Options: Integer = 0): Integer;

and after
cc := CharItem[i];

add this line

if CharPos[i].Height>Lines[l].Height then exit; //V5.24.2 - need full reformat!

Thanks, it works.