From 92645dcf58a8d25f0c00d3839d66aba04ee26e1b Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sat, 8 Sep 2018 20:05:34 +0000
Subject: [PATCH] TurboPower_ipro: Avoid centering of text for
 style="text-align:justify"

git-svn-id: trunk@58913 -
---
 components/turbopower_ipro/iphtml.pas            | 2 +-
 components/turbopower_ipro/iphtmlblocklayout.pas | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 4bb73764f0..fac99763e2 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -3782,7 +3782,7 @@ begin
       if Screen.Fonts.IndexOf(Result) > -1 then
         exit;
       if SameText(Result, 'sans-serif') then begin
-        Result := Checkfonts(['Arial', 'Helvetica','Liberation Sans']);
+        Result := Checkfonts(['Arial', 'Helvetica', 'Liberation Sans']);
         if Result = '' then
           Result := Screen.MenuFont.Name;
         exit;
diff --git a/components/turbopower_ipro/iphtmlblocklayout.pas b/components/turbopower_ipro/iphtmlblocklayout.pas
index 42e79219fa..cfca0fc909 100644
--- a/components/turbopower_ipro/iphtmlblocklayout.pas
+++ b/components/turbopower_ipro/iphtmlblocklayout.pas
@@ -396,7 +396,9 @@ var
       haChar :
         if FTotWidth >= FTextWidth then
           Result := (FTotWidth - FTextWidth) div 2;
-      else //haJustify :
+      {
+      else
+        //haJustify :
         if iElem < FElementQueue.Count then begin
           m := iElem - FFirstWord - 2;
           if m > 0 then begin
@@ -404,6 +406,7 @@ var
             WMod := (FTotWidth - FTextWidth) mod m;
           end;
         end;
+        }
     end;
   end;