summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--docview/components/richtext/RichTextDisplayUnit.pas7
1 files changed, 3 insertions, 4 deletions
diff --git a/docview/components/richtext/RichTextDisplayUnit.pas b/docview/components/richtext/RichTextDisplayUnit.pas
index fb3a2609..c3f15156 100644
--- a/docview/components/richtext/RichTextDisplayUnit.pas
+++ b/docview/components/richtext/RichTextDisplayUnit.pas
@@ -203,8 +203,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>');
begin
// we haven't yet started drawing:
// so work out alignment
- X := Start.X{ * FontWidthPrecisionFactor}
- + Layout.GetStartX( Style, Line );
+ X := Start.X + Layout.GetStartX( Style, Line );
StartedDrawing := true;
end;
@@ -262,7 +261,7 @@ ProfileEvent('DEBUG: DrawRichTextLine >>>');
inc( X, FontManager.CharWidth( ' ' ) );
Layout.PerformStyleTag( Element.Tag, Style, X );
- NewMarginX := ( Start.X + Style.LeftMargin ){ * FontWidthPrecisionFactor};
+ NewMarginX := ( Start.X + Style.LeftMargin );
if NewMarginX > X then
begin
//skip across...
@@ -305,7 +304,7 @@ ProfileEvent('DEBUG: DrawRichTextLayout >>>');
LineIndex := 0;
// debug only to show Margins.
- //FontManager.Canvas.Color:= clBlue;
+ //FontManager.Canvas.Color:= clRed;
//FontManager.Canvas.DrawLine(0, y, 300, y);
repeat