anchor.diff:      if parent.bidimode=bdRightToLeft then
       begin
     //  drawingstyle:=dsGradient;
  +       StyleElements := [ seBorder, seFont]; //    
       transparent:=false;
       Params.ExStyle :=Params.ExStyle or WS_EX_TRANSPARENT or WS_EX_RTLREADING or WS_EX_RIGHT or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
       end;
  
positive.code:   Details: TThemedElementDetails;
  begin
    if (PageControl <> nil) and StyleServices.Enabled and
       (seClient in PageControl.StyleElements) and
       ((PageControl.Style = tsTabs) or TStyleManager.IsCustomStyleActive) then
    begin
      GetWindowRect(Handle, R);
  
negative.code:       //orwah
  if bidimode=bdRightToLeft then
  begin
  StyleElements := [ seBorder, seFont]; //   
  Params.Style := Params.Style or TVS_RTLREADING;
  Params.ExStyle := Params.ExStyle or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
  end;
  