anchor.diff:  procedure TProjectOptionsForm.grdUserMacrosDrawCell(Sender: TObject;
     const ARow, ACol: Integer; const ARect: TfpgRect;
     const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean);
  +var
  +  img: TfpgImage;
   begin
     if (gdSelected in AFlags) and (ACol = 6) then
     begin
  
positive.code:   end;
  
    if ACol < 10 then
      grdCompilerDirs.Canvas.SetFont(FCheckFont)
    else
      grdCompilerDirs.Canvas.Setfont(grdCompilerDirs.Font);
  end;
  
negative.code:   end;
  
    if ACol < 6 then
    begin
      if grdUserMacros.Cells[ACol, ARow] = cCheck then
      begin
        img := fpgImages.GetImage('stdimg.check');
        if (gdSelected in AFlags) and (gdFocused in AFlags) then
          img.Invert;
        grdUserMacros.Canvas.DrawImage(ARect.Left, ARect.Top, img);
        if (gdSelected in AFlags) and (gdFocused in AFlags) then
          img.Invert;  // restore image to original state
        ADefaultDrawing := False;
      end;
    end
    else
      grdUserMacros.Canvas.Setfont(grdUserMacros.Font);
  end;
  