anchor.diff:      TexOffsetY: Shortint;
       CapOffsetY: Shortint;
       Caption: UnicodeString;
  -    Down: Boolean;
       CapColor: TColor4;
       FlagColor: TColor4;
       Font: TKMFont;
  
positive.code: 
    {FlatButton}
    TKMButtonFlat = class(TKMButtonFlatCommon)
    private
    public
      procedure Paint; override;
    end;
  
  
negative.code: 
    if (csOver in State) and fEnabled and not HideHighlight then
      TKMRenderUI.WriteShape(AbsLeft+1, AbsTop+1, Width-2, Height-2, $40FFFFFF);
  end;
  
  
  