Bug: List Index Out Of Bounds(-1)

kordima

Возникает в возникает в методе
function TfrxDrawText.GetOutBoundsText(var ParaBreak: Boolean): WideString;

...

// number of lines that will fit in the bounds
vl := Trunc((FOriginalRect.Bottom - FOriginalRect.Top + 1) / (PrnSz / ratio + FLineSpacing));

!!! Здесть vl = 0

if vl > n then
vl := n;

if vl < FHTMLTags.Count then
begin
// deleting all outbounds text
while FText.Count > vl do
FText.Delete(FText.Count - 1);

if Integer(FText.Objects[vl - 1]) in [0, 1] then
ParaBreak := True;

!!! Здесть List index out of bounds(-1)

...