anchor.diff:    s: string;
     th: integer;
   begin
  +  GlyphiconsFontAdvice;
  +
     if Control is TIWBSGlyphicon then begin
       LRect := Rect(0, 0, Control.Width, Control.Height);
       ControlCanvas.FillRect(LRect);
   
       if TIWBSGlyphicon(Control).BSGlyphicon <> '' then
       try
  -      ControlCanvas.Font.Name := 'GLYPHICONS Halflings';
  +      ControlCanvas.Font.Name := CNST_GLYPHICONSFONT;
         ControlCanvas.Font.Style := [fsBold];
         ControlCanvas.Font.Height := -14;
         th := ControlCanvas.TextHeight('X');
  
positive.code:   s: string;
    th: integer;
  begin
    if Control is TIWBSButton then begin
      LRect := Rect(0, 0, Control.Width, Control.Height);
      case TIWBSButton(Control).BSButtonStyle of
  
negative.code: 
      if TIWBSButton(Control).BSGlyphicon <> '' then
      try
        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);
  