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: 
  implementation
  
  uses DesignIntf, Winapi.Windows, Vcl.Forms, Vcl.Dialogs, Vcl.Graphics,
       IWBaseControl,
       IWBSLayoutMgr, IWBSRegion, IWBSControls, IWBSInput, IWBSTabControl, IWBSCommon;
  
  const
    CNST_GLYPHICONSFONT = 'GLYPHICONS Halflings';
  
  var
    slGlyphicons: TStringList;
    lFontAdvice: boolean = True;
  
  // advice to install glyphicon font
  procedure GlyphiconsFontAdvice;
  begin
    if lFontAdvice then begin
      lFontAdvice := False;
      if Screen.Fonts.IndexOf(CNST_GLYPHICONSFONT) = 0 then
        ShowMessage('Please install "demo\bin\wwwroot\iwbs\bootstrap-3.3.5\fonts\glyphicons-halflings-regular.ttf" to render glyphicons at design time');
    end;
  end;
  
  procedure LoadGlyphicons;
  var
  