anchor.diff:    else if c is TfpgEdit then
       s := TfpgEdit(c).Text
     else if c is TfpgStringGrid then
  +  begin
       s := TfpgStringGrid(c).Cells[TfpgStringGrid(c).FocusCol, TfpgStringGrid(c).FocusRow];
  +    if s = cCheck then
  +      s := '';
  +  end;
   
     AHint := s;
   
  
positive.code: procedure TProjectOptionsForm.grdUserMacrosDrawCell(Sender: TObject;
    const ARow, ACol: Integer; const ARect: TfpgRect;
    const AFlags: TfpgGridDrawState; var ADefaultDrawing: boolean);
  begin
    if (gdSelected in AFlags) and (ACol = 6) then
    begin
  
negative.code: procedure TProjectOptionsForm.grdCompilerMakeOptionsDrawCell(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
  