anchor.diff:    end;
   
     if ACol < 10 then
  -    grdCompilerDirs.Canvas.SetFont(FCheckFont)
  +  begin
  +    if grdCompilerDirs.Cells[ACol, ARow] = cCheck then
  +    begin
  +      img := fpgImages.GetImage('stdimg.check');
  +      if (gdSelected in AFlags) and (gdFocused in AFlags) then
  +        img.Invert;
  +      grdCompilerDirs.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
       grdCompilerDirs.Canvas.Setfont(grdCompilerDirs.Font);
   end;
  
positive.code:   end;
  
    if ACol < 6 then
      grdUserMacros.Canvas.SetFont(FCheckFont)
    else
      grdUserMacros.Canvas.Setfont(grdUserMacros.Font);
  end;
  
negative.code:     FCellEdit: TfpgEdit;
      FFocusRect: TfpgRect;
      FLastGrid: TfpgStringGrid; // reference only
      // so we can get correct hints, but still undo with the Cancel button
      FInternalMacroList: TIDEMacroList;
      procedure btnShowCmdLineClicked(Sender: TObject);
  