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:         begin
            LCountOnPage2 := FTotalDataCount - ClientRowCount;
            LGridUnusedHeight := FDrawGrid.ClientHeight - FDrawGrid.GridHeight;
            if FBottomPanel.Visible
             and (FDrawGrid.DefaultRowHeight * LCountOnPage2 <= FBottomPanel.Height + LGridUnusedHeight) then
            begin
              FBottomPanel.Visible := False;
              PageSize := PageSize + LCountOnPage2;
  
negative.code:     end;
    end else
      FTopPanelLeft.Width:=0;
  
    if LRefreshPageIndexAndGridInterface then
      RefreshPageIndexAndGridInterface;
  end;
  
  procedure TCustomVisualGrid.StandardDrawCell(Sender: TObject; ACol, ARow: Longint; Rect: TRect; State: TGridDrawState);
  