anchor.diff:          Width := 25;
           Height := 25;
           Caption := #9198;
  +        OnClick := PageNavigationClick;
  +        Tag := PAGE_NAVIGATION_FIRST;
         end;
         FButtonPrevious := TButton.Create(Self);
         FButtonPrevious.Parent := FBottomRightPanel;
  
positive.code:   ReloadColumns;
  end;
  
  procedure TCustomVisualGrid.RefreshGrid;
  begin
  
  end;
  
  procedure TCustomVisualGrid.ReloadColumns;
  
negative.code: end;
  
  procedure TCustomVisualGrid.SetDataSource(ADataSource: IDataSource);
  begin
    if FDataSource = ADataSource then
      Exit;
  
    FDataSource := ADataSource;
  
    RefreshPageIndexData(true);
  end;
  
  procedure TCustomVisualGrid.SetPageIndex(const Value: Integer);
  begin
    if FPageIndex = Value then
      Exit;
  
  
    FPageIndex := Value;
    RefreshPageIndexData(false)
  end;
  
  procedure TCustomVisualGrid.SetPageIndexEditText(const AStr: utf8string);
  begin
    FPageIndexUpdate := True;
    FPageIndexEdit.Text := AStr;
    FPageIndexUpdate := false;
  end;
  
  procedure TCustomVisualGrid.SetPageSize(const Value: Integer);
  begin
    FPageSize := Value;
  end;
  
  procedure TCustomVisualGrid.StandardDrawCell(Sender: TObject; ACol,
  