paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 05:41:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Avoid centering of text for style="text-align:justify"

Browse Source 
git-svn-id: trunk@58913 -
This commit is contained in:
wp 2018-09-08 20:05:34 +00:00
parent c17527dd30
commit 92645dcf58
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtml.pas
View File

@ -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;

5
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -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;