anchor.diff:      CombineRgn(OuterRegion, OuterRegion, InnerRegion, RGN_DIFF);
       Brush := TBrush.Create;
       try
  -      Brush.Color := ThemedColor(BGround) or PalRelative;
  +      Brush.Color := ThemedColor(BGround{$ifdef has_StyleElements},seClient in AStyleElements{$endif}) or PalRelative;
         Brush.Style := bsSolid;
         FillRgn(Canvas.Handle, OuterRegion, Brush.Handle);
       finally
  
positive.code: 
    if not IsWin32Platform then
    begin
      SetLength(Ints, Max);
      if GetTextExtentExPointW(DC, S, Max, Width, @Result, @Ints[0], Extent) then
        if Result > 0 then
          Extent.cx := Ints[Result - 1]
        else
          Extent.cx := 0;
    end
    else {GetTextExtentExPointW not available in win98, 95}
    begin {optimize this by looking for Max to fit first -- it usually does}
  
negative.code:     //This must be protected because it's set directly in a descendant
      FUseQuirksMode : Boolean;
      FQuirksMode : THtQuirksMode;
      {$ifdef has_StyleElements}
      procedure UpdateStyleElements; override;
      {$endif}
      procedure SetOnInclude(Handler: TIncludeType); virtual;
      procedure SetOnLink(Handler: TLinkType); virtual;
      procedure SetOnScript(Handler: TScriptEvent); virtual;
  