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:           bssRidge:
              begin
                if I in [0, 1] then
                  Color := Darker(C[I]) or PalRelative
                else
                  Color := Lighter(C[I]) or PalRelative;
                DrawOnePolygon(Canvas, Bnd, Color, I, Print);
              end;
            bssGroove:
              begin
                if (I in [2, 3]) then
                  Color := Darker(C[I]) or PalRelative
                else
                  Color := Lighter(C[I]) or PalRelative;
                DrawOnePolygon(Canvas, Bnd, Color, I, Print);
              end;
          end;
        end
        else if S[I] = bssDouble then
        begin
          Color := C[I] or PalRelative;
          Bnd[0] := PO[I];
          Bnd[1] := PO[(I + 1) mod 4];
          Bnd[2] := P1[(I + 1) mod 4];
          Bnd[3] := P1[I];
          DrawOnePolygon(Canvas, Bnd, Color, I, Print);
          Bnd[0] := P2[I];
          Bnd[1] := P2[(I + 1) mod 4];
          Bnd[2] := PI[(I + 1) mod 4];
          Bnd[3] := PI[I];
          DrawOnePolygon(Canvas, Bnd, Color, I, Print);
        end
        else if S[I] in [bssDashed, bssDotted] then
        begin
          if not InPath then
          begin
            lb.lbStyle := BS_SOLID;
            lb.lbColor := ThemedColor(C[I]) or PalRelative;
            lb.lbHatch := 0;
            if S[I] = bssDotted then
              PenType := PS_Dot or ps_EndCap_Round
  
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;
  