paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 04:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurbopPower_ipro: Fix alignment of simple text in table cells (note: not working any more for div tags within cells)

Browse Source 
git-svn-id: trunk@58852 -
This commit is contained in:
wp 2018-09-04 10:58:10 +00:00
parent 2a0d5ff211
commit 9f3839bc3a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -511,12 +511,11 @@ begin
FBlockDescent := PropA.tmDescent; FBlockDescent := PropA.tmDescent;
end; end;
if (FCurProps = nil) or not BIsEqualTo(FCurProps) then begin if (FCurProps = nil) or not BIsEqualTo(FCurProps) then begin
// FAl := self.Props.Alignment; // was: FAl := Alignment FAl := self.Props.Alignment; // was: FAl := Alignment
// wp: next line was changed to "FAl := self.Props.Alignment" in order // wp: line was changed to "FAl := self.Props.Alignment" in order
// to fix horizontal text alignment of table cells (r50145). // to fix horizontal text alignment of table cells (r50145).
// But with this change, something like "<p align="center"> does not work any more! // But with this change, something like "<p align="center"> does not work any more!
// Alignment within cells still seems to work correctly after user to old code. // Alignment within cells still seems to work correctly after user to old code.
FAl := Alignment;
FVAL := VAlignment; FVAL := VAlignment;
FBaseOffset := FontBaseline; FBaseOffset := FontBaseline;
aPrefor := Preformatted; aPrefor := Preformatted;