Ver a proveniência

* fixed small mistake in clipping

master
Bergmann89 há 8 anos
ascendente
cometimento
5e27aaea10
1 ficheiros alterados com 2 adições e 2 eliminações
  1. +2
    -2
      utsTextBlock.pas

+ 2
- 2
utsTextBlock.pas Ver ficheiro

@@ -744,9 +744,9 @@ var
// check vertical clipping
case Clipping of
tsClipCharBorder, tsClipWordBorder:
draw := (y + line^.meta.Height > r.Top) and (y < r.Bottom);
draw := (y + line^.meta.Height >= r.Top) and (y <= r.Bottom);
tsClipCharComplete, tsClipWordComplete:
draw := (y > r.Top) and (y + line^.meta.Height < r.Bottom);
draw := (y >= r.Top) and (y + line^.meta.Height <= r.Bottom);
else
draw := true;
end;


Carregando…
Cancelar
Guardar