summaryrefslogtreecommitdiff
path: root/components/richtext/RichTextDisplayUnit.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2009-10-29 19:48:47 +0200
committerGraeme Geldenhuys <graemeg@gmail.com>2009-10-29 19:48:47 +0200
commit009091f6adbbe2594881dd839160e773456eefb9 (patch)
treef5eebc849e5a9347e7cd1b4fe1c57b0c8ac7bdd3 /components/richtext/RichTextDisplayUnit.pas
parent51a0da3d3a3b9523084466968948075a566736f4 (diff)
downloadfpGUI-009091f6adbbe2594881dd839160e773456eefb9.tar.xz
various little changes. Nothing major.
Diffstat (limited to 'components/richtext/RichTextDisplayUnit.pas')
-rw-r--r--components/richtext/RichTextDisplayUnit.pas6
1 files changed, 3 insertions, 3 deletions
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 )