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

tpipro, fix initial text alignment

Browse Source 
git-svn-id: trunk@13911 -
This commit is contained in:
jesus 2008-01-29 15:52:04 +00:00
parent a64bd53ce5
commit 31b3c7eba5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/turbopower_ipro/iphtml.pas
View File

@ -7598,7 +7598,7 @@ begin
Background := FindAttribute('BACKGROUND');
ParseBaseProps(Self);
{$IFDEF IP_LAZARUS}
LoadCSSProps(Owner, Element, nil);
LoadCSSProps(Owner, Element, props);
{$ENDIF}
end;
@ -7616,7 +7616,7 @@ begin
with TIpHtmlNodeHtml(Parent) do begin
with TIpHtmlNodeBODY.Create(Parent) do
{$IFDEF IP_LAZARUS}
LoadCSSProps(Owner, Element, nil)
LoadCSSProps(Owner, Element, props)
{$ENDIF};
{ Make each of FHtml's current children the children of the
@ -14774,7 +14774,8 @@ begin
// calculate points based on screen resolution :(
// at 96dpi CSS21 recommneds 1px=0.26 mm
// TODO: use screen resolution, check printing!
Result := Round(P*0.7370241)
Result := Round(P*0.7370241);
exit;
end;
//todo: em, ex are supposed to be based on the computed pixel size of