anchor.diff:          Height := 13;
           Caption := 'Search:';
         end;}
  -
  -      FSearchEdit := TEdit.Create(Self);
  -      FSearchEdit.Parent := FTopPanelRight;
  -      with FSearchEdit do
  -      begin
  -        Left := 50;
  -        Top := 6;
  -        Width := 121;
  -        Height := 21;
  -        TextHint := 'Search';
  -      end;
  -
  -      FSearchButton := TButton.Create(Self);
  -      FSearchButton.Parent := FTopPanelRight;
  -      with FSearchButton do
  -      begin
  -        Left := 173;
  -        Top := 6;
  -        Width := 24;
  -        Height := 23;
  -        Caption := 'OK';
  -      end;
       end;
     end;
   
  
positive.code:     end;
  end;
  
  procedure TCustomVisualGrid.GridSelection(Sender: TObject; aCol, aRow: Integer);
  begin
    if (SelectionType <> stNone) and Assigned(FOnSelection) then
  
negative.code:       procedure SetVisible(AValue: boolean);
      public
        SearchCapability: PSearchCapability;
        constructor Create(AParent: TWinControl; AGrid: TCustomVisualGrid);
        destructor Destroy; override;
  
        property EditVisible: boolean read GetEditVisible write SetEditVisible;
        property Visible: boolean read GetVisible write SetVisible;
      end;
  
    protected const
      PAGE_NAVIGATION_FIRST    = 1;
      PAGE_NAVIGATION_PREVIOUS = 2;
  