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

tpipro, handle px font units

Browse Source 
git-svn-id: trunk@13902 -
This commit is contained in:
jesus 2008-01-28 20:40:23 +00:00
parent feff55eb39
commit 6c3ee3bbc6
1 changed files with 22 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/turbopower_ipro/iphtml.pas
View File

@ -769,6 +769,7 @@ type
{$IFDEF IP_LAZARUS}
FCSS: TCSSProps;
FElementName: String;
FCSSPropsLoaded: boolean;
{$ENDIF}
FStyle: string;
FClassId: string;
@ -4308,7 +4309,7 @@ var
{$ENDIF}
begin
{$IFDEF IP_LAZARUS}
if Self.InheritsFrom(TIpHtmlNodeCore) then
if Self.InheritsFrom(TIpHtmlNodeCore)then
TIpHtmlNodeCore(Self).LoadCSSProps(Owner, Elem, RenderProps);
{$ENDIF}
for i := 0 to Pred(FChildren.Count) do
@ -7613,10 +7614,10 @@ begin
if not TIpHtmlNodeHtml(Parent).HasBodyNode then
{ No. Create a body node under FHtml. }
with TIpHtmlNodeHtml(Parent) do begin
{$IFDEF IP_LAZARUS}
with
{$ENDIF}
TIpHtmlNodeBODY.Create(Parent){$IFDEF IP_LAZARUS} do LoadCSSProps(Owner, Element, nil){$ENDIF};
with TIpHtmlNodeBODY.Create(Parent) do
{$IFDEF IP_LAZARUS}
LoadCSSProps(Owner, Element, nil)
{$ENDIF};
{ Make each of FHtml's current children the children of the
Body node. }
@ -14585,7 +14586,7 @@ end;
{ TIpHtmlNodeCore }
procedure TIpHtmlNodeCore.ParseBaseProps;
procedure TIpHtmlNodeCore.ParseBaseProps(Owner : TIpHtml);
{$IFDEF IP_LAZARUS}
var
Commands: TStringList;
@ -14616,6 +14617,12 @@ var
begin
if Owner.CSS = nil then
exit;
{
WriteLn('FCSSPropsLoaded=',TIpHtmlNodeCore(Self).FCSSPropsLoaded);
if FCSSPropsLoaded then
exit;
FCSSPropsLoaded:=True;
}
TmpElement := Element;
if Element = nil then
begin
@ -14760,6 +14767,15 @@ begin
result := round(P);
exit;
end;
// check px
P:=GetFSize('px');
if P>0 then 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)
end;
//todo: em, ex are supposed to be based on the computed pixel size of
// parent node, tpipro has no provision for this....