anchor.diff:  
     if (csOver in State) and fEnabled and not HideHighlight then
       TKMRenderUI.WriteShape(AbsLeft+1, AbsTop+1, Width-2, Height-2, $40FFFFFF);
  -
  -  if Down then
  -    TKMRenderUI.WriteOutline(AbsLeft, AbsTop, Width, Height, 1, $FFFFFFFF);
   end;
   
   
  
positive.code: 
    {FlatButton}
    TKMButtonFlat = class(TKMButtonFlatCommon)
    private
    public
      procedure Paint; override;
    end;
  
  
negative.code: 
    TKMRenderUI.WriteText(AbsLeft, AbsTop + (Height div 2) + 4 + CapOffsetY, Width, Caption, Font, taCenter, TextCol[fEnabled]);
  
    if Down then
      TKMRenderUI.WriteOutline(AbsLeft, AbsTop, Width, Height, 1, $FFFFFFFF);
    {if not fEnabled then
      TKMRenderUI.WriteShape(Left, Top, Width, Height, $80000000);}
  end;
  