From 009091f6adbbe2594881dd839160e773456eefb9 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 29 Oct 2009 19:48:47 +0200 Subject: various little changes. Nothing major. --- components/richtext/RichTextDisplayUnit.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'components/richtext/RichTextDisplayUnit.pas') diff --git a/components/richtext/RichTextDisplayUnit.pas b/components/richtext/RichTextDisplayUnit.pas index 4169c641..5d16ab54 100644 --- a/components/richtext/RichTextDisplayUnit.pas +++ b/components/richtext/RichTextDisplayUnit.pas @@ -178,7 +178,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>'); TextBlockStart := P; - Y := Start.Y + Line.MaxDescender; + Y := Start.Y + Line.MaxDescender; // co-ordinates are from top/left, so do we need descender? [Graeme] while P < EndP do begin @@ -203,7 +203,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>'); begin // we haven't yet started drawing: // so work out alignment - X := Start.X * FontWidthPrecisionFactor + X := Start.X{ * FontWidthPrecisionFactor} + Layout.GetStartX( Style, Line ); StartedDrawing := true; end; @@ -306,7 +306,7 @@ ProfileEvent('DEBUG: DrawRichTextLayout >>>'); repeat Line := Layout.FLines^[ LineIndex ]; - BottomOfLine := Y + Line.Height + 1; // bottom pixel row is top + height + 1 + BottomOfLine := Y {+ Line.Height} + 1; // bottom pixel row is top + height + 1 if // the line is in the range to be drawn ( LineIndex >= StartLine ) -- cgit v1.2.3-70-g09d2