anchor.diff:    Result := (VarIsStr(Props[OverFlow])) and (Props[OverFlow] = 'hidden');
   end;
   
  -function TProperties.GetFloat(out Align: AlignmentType): Boolean;
  +function TProperties.GetFloat(var Align: AlignmentType): Boolean;
   var
     S: ThtString;
   begin
  
positive.code:     function GetPosition: PositionType;
      function GetTextIndent(out PC: Boolean): Integer;
      function GetTextTransform: TextTransformType;
      function GetVertAlign(out Align: AlignmentType): Boolean;
      function GetVisibility: VisibilityType;
      function GetZIndex: Integer;
      function HasBorderStyle: Boolean;
  
negative.code:   end;
  end;
  
  function TProperties.GetBackgroundImage(var Image: ThtString): Boolean;
  begin
    if (VarIsStr(Props[BackgroundImage])) then
      if (Props[BackgroundImage] = 'none') then
  