Finally fixed double painting problem.

* Stupid me, never saw the double painting line. Now it
is fixed.
* Also removed the PhysX variable, because we don't
  actually use the FontWidthPrecisionFactor, because
  it is a OS/2 specific font thing.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>

1 files changed, 3 insertions, 9 deletions

diff --git a/components/richtext/RichTextDisplayUnit.pas b/components/richtext/RichTextDisplayUnit.pas
index 2ef91792..e2c2e707 100755
--- a/components/richtext/RichTextDisplayUnit.pas
+++ b/components/richtext/RichTextDisplayUnit.pas
@@ -131,22 +131,16 @@ var
   NewMarginX: longint;
 
   procedure DrawTextBlock;
-  var
-    PhysX: longint;
   begin
-writeln('**** DrawTextBlock *****');
-    PhysX := X div FontWidthPrecisionFactor;
-    FontManager.Canvas.DrawText(PhysX, Y, StringToDraw);
-writeln('  PhysX=', PhysX, '   Y=', Y, '  String=', StringToDraw);
+writeln('  **** DrawTextBlock *****');
     DrawRichTextString( FontManager,
-                        PhysX,
-                        Y,
+                        X,         // value gets adjusted by the time it returns
+                        Y,         // value gets adjusted by the time it returns
                         PChar(StringToDraw),
                         Length(StringToDraw),
                         Selected,
                         Style.Color,
                         Style.BackgroundColor );
-    X := PhysX * FontWidthPrecisionFactor;
     StringToDraw := '';
   end;