anchor.diff:        Rect: TRect; State: TGridDrawState);
       procedure GridMouseUp(Sender: TObject; Button: TMouseButton;
         Shift: TShiftState; X, Y: Integer);
  +    procedure SearchKindPopupMenuClick(Sender: TObject);
       procedure GridSelection(Sender: TObject; aCol, aRow: Integer);
       procedure PageIndexEditingDone(Sender: TObject);
       procedure PageSizeEditingDone(Sender: TObject);
  
positive.code: 
      TSearchEdit = class
      private
        FPanel: TPanel;
        FEdit: TEdit;
        FButton: TButton;
  
negative.code:         Height := 13;
          Caption := 'Search:';
        end;}
      end;
    end;
  
  