anchor.diff:  end;
   
   procedure TCustomVisualGrid.SetWidgetControl(AValue: TControl);
  +var
  +  LRefreshPageIndexAndGridInterface: boolean;
   begin
     if FWidgetControl=AValue then Exit;
   
     if Assigned(FWidgetControl) then
       FWidgetControl.Parent := FWidgetControlParent;
   
  +  LRefreshPageIndexAndGridInterface := (not Assigned(FWidgetControl) and Assigned(AValue)) or (not Assigned(AValue) and Assigned(FWidgetControl));
     FWidgetControl:=AValue;
   
     if Assigned(AValue) then
  
positive.code:             if FCanPage then
              begin
                FBottomPanel.Visible := true;
                LCount := ClientRowCount;
                if LCount <> PageSize then
                begin
                  PageSize := LCount;
                  Exit;
                end;
              end;
            end;
          end else
            FBottomPanel.Visible := FCanPage
      end
    else
      FBottomPanel.Visible := FCanPage;
  
    FDrawGrid.Refresh;
    if Assigned(FOnFinishedUpdating) then
  
negative.code:   // refresh for sort direction graphic
    if LSortDirectionAllowNone <> (vgoSortDirectionAllowNone in AValue) then
      SortDirectionGlyphRefresh;
    // try to hide paging panel or search panel
    if (LAutoHidePaging <> (vgoAutoHidePaging in AValue)) or (LAutoHideSearchPanel <> (vgoAutoHideSearchPanel in AValue)) then
      RefreshPageIndexAndGridInterface;
  end;
  
  