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

TurboPower_ipro: Fix background color of table rows

Browse Source 
git-svn-id: trunk@58875 -
This commit is contained in:
wp 2018-09-05 18:45:22 +00:00
parent 6917c13865
commit d049fe0df4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/turbopower_ipro/iphtml.pas
View File

@ -10937,9 +10937,13 @@ end;
procedure TIpHtmlNodeTR.LoadAndApplyCSSProps;
begin
inherited;
if not (FCombinedCSSProps.Alignment in [haDefault, haUnknown]) then
Align := FCombinedCSSProps.Alignment;
// wp: what about VAlign?
if Assigned(FCombinedCSSProps) then begin
if not (FCombinedCSSProps.Alignment in [haDefault, haUnknown]) then
Align := FCombinedCSSProps.Alignment;
if FCombinedCSSProps.BgColor <> -1 then
BgColor := FCombinedCSSProps.BGColor;
// wp: what about VAlign?
end;
end;
{$ENDIF}