diff --git a/SynPdf.pas b/SynPdf.pas
index 312c70c93..d75236c4f 100644
--- a/SynPdf.pas
+++ b/SynPdf.pas
@@ -10350,7 +10350,7 @@ procedure DrawLine(var P: TPoint; aH: Single);
   with DC[nDC] do begin
     tmp := Pen;
     pen.color := font.color;
-    pen.width := aSize / 15 / Canvas.GetWorldFactorX / Canvas.FDevScaleX;
+    pen.width := aSize / 15 / fscaleY;
     pen.style := PS_SOLID;
     pen.null := False;
     NeedPen;
@@ -10421,7 +10421,7 @@ procedure DrawLine(var P: TPoint; aH: Single);
     if AUseDX then begin
       DX := pointer(PtrUInt(@R)+R.emrtext.offDx);
       W := DXTextWidth(DX, R.emrText.nChars);
-      if W<R.rclBounds.Right-R.rclBounds.Left then // offDX=0 or within box
+      if W < Trunc((R.rclBounds.Right-R.rclBounds.Left) / Canvas.FFactorX) then // offDX=0 or within box
         DX := nil;
     end else
       DX := nil;
@@ -10607,9 +10607,9 @@ procedure DrawLine(var P: TPoint; aH: Single);
     end;
     // handle underline or strike out styles (direct draw PDF lines on canvas)
     if font.LogFont.lfUnderline<>0 then
-      DrawLine(Posi, aSize / 8 / Canvas.GetWorldFactorX / Canvas.FDevScaleX);
+      DrawLine(Posi, aSize / 8 / fscaleY);
     if font.LogFont.lfStrikeOut<>0 then
-      DrawLine(Posi, - aSize / 3 / Canvas.GetWorldFactorX / Canvas.FDevScaleX);
+      DrawLine(Posi, - aSize / 4 / fscaleY);
     // end any pending clipped TextRect() region
     if WithClip then begin
       Canvas.GRestore;