1 files changed, 3 insertions, 1 deletions
diff --git a/docview/components/richtext/RichTextDisplayUnit.pas b/docview/components/richtext/RichTextDisplayUnit.pas
index 613dba84..cfdd20a7 100644
--- a/docview/components/richtext/RichTextDisplayUnit.pas
+++ b/docview/components/richtext/RichTextDisplayUnit.pas
@@ -122,6 +122,7 @@ Procedure DrawRichTextLine( var FontManager: TCanvasFontManager;
     Line: TLayoutLine; Start: TPoint );
 var
   X, Y: longint;
+  YBaseLine: longint;
   Element: TTextElement;
   StartedDrawing: boolean;
   Style: TTextDrawStyle;
@@ -180,7 +181,7 @@ ProfileEvent('DEBUG:  DrawRichTextLine >>>');
 
   TextBlockStart := P;
 
-  Y := Start.Y; // + Line.MaxDescender; // co-ordinates are from top/left, so do we need descender? [Graeme]
+  YBaseLine := Start.Y + Line.MaxAscender;
 
   while P < EndP do
   begin
@@ -209,6 +210,7 @@ ProfileEvent('DEBUG:  DrawRichTextLine >>>');
           StartedDrawing := true;
         end;
 
+        Y := YBaseLine - FontManager.CharAscender;
         // Now do the drawing
         if Element.ElementType = teImage then
         begin