anchor.diff:  
       if TIWBSButton(Control).BSGlyphicon <> '' then
       try
  -      ControlCanvas.Font.Name := 'GLYPHICONS Halflings';
  +      ControlCanvas.Font.Name := CNST_GLYPHICONSFONT;
         s := Char(StrToInt(slGlyphicons.Values[TIWBSButton(Control).BSGlyphicon]));
         ControlCanvas.TextRect(LRect, LRect.Left, (LRect.Height-th) div 2, s);
         Inc(LRect.Left, th);
  
positive.code: 
  implementation
  
  uses DesignIntf, Winapi.Windows, Vcl.Graphics,
       IWBaseControl,
       IWBSLayoutMgr, IWBSRegion, IWBSControls, IWBSInput, IWBSTabControl, IWBSCommon;
  
  var
    slGlyphicons: TStringList;
  
  procedure LoadGlyphicons;
  var
  
negative.code:   s: string;
    th: integer;
  begin
    GlyphiconsFontAdvice;
  
    if Control is TIWBSButton then begin
      LRect := Rect(0, 0, Control.Width, Control.Height);
      case TIWBSButton(Control).BSButtonStyle of
  