¿Cómo esconder o eliminar el vertical ScrollBar de un DBGrid?

[roman]

Sí, yo tengo algunos comentarios.

El primero es para pedirte que no escribas cosas como

Código Delphi [-]
if AutomaticScroll = True then

ya que es redundante; basta poner

Código Delphi [-]
if AutomaticScroll then

Es como decir "orillate a la orilla", "sube arriba", "sal afuera"; se entiende pero suena feo.

Otra cosa es que no entiendo el propósito de las propiedades VerticalScrollBar y HorizontalScrollBar. Si las pones en false pero AutomaticScroll está en true, de todas maneras aparecen si hay muchos registros.

Finalmente, que estas propiedades deben tener un "setter"

Código Delphi [-]
property AutomaticScroll: Boolean read FAutomaticScroll write SetAutomaticScroll;

en el que obligues al control a reajustarse para reflejar el cambio.

// Saludos

[[enecumene]]

¿y ahora cómo queda amigo Román siguiendo tus consejos?:

Código Delphi [-]
unit DBGrilla1;

interface

uses
  SysUtils, Classes, Controls, Grids, DBGrids, Messages, SHELLAPI, windows;

type
  TDBGrilla = class(TDBGrid)
  private
    FValorVertical: Boolean;
    FValorHorizontal: Boolean;
    FScrollAutomatico: Boolean;

    procedure WMNCCalcSize(var msg: TMessage); message WM_NCCALCSIZE;
  protected
      procedure setAutomaticScroll(Value: Boolean);
      procedure setVerticalScrollBar(Value: Boolean);
      procedure setHorizontalScrollBar(Value: Boolean);
  public
    { Public declarations }
  published
    property VerticalScrollBar: Boolean read FValorVertical write setVerticalScrollBar;
    property HorizontalScrollBar: Boolean read FValorHorizontal write setHorizontalScrollBar;
    property AutomaticScroll: Boolean read FScrollAutomatico write setAutomaticScroll;
  end;

procedure Register;

implementation

procedure TDBGrilla.setAutomaticScroll(Value: Boolean);
begin
  if Value <> FScrollAutomatico then
  begin
    FScrollAutomatico := Value;
  end;
end;

procedure TDBGrilla.setVerticalScrollBar(Value: Boolean);
begin
  if Value <> FValorVertical then
  begin
    FValorVertical := Value;
  end;
end;

procedure TDBGrilla.setHorizontalScrollBar(Value: Boolean);
begin
  if Value <> FValorHorizontal then
  begin
    FValorHorizontal := Value;
  end;
end;

procedure TDBGrilla.WMNCCalcSize(var msg: TMessage);
var
  style: Integer;
begin
if VerticalScrollBar then
  begin
  style := getWindowLong( handle, GWL_STYLE );

  if (style and WS_HSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL );
  if (style and WS_VSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_VSCROLL );
  end;
if HorizontalScrollBar then
  begin
  style := getWindowLong( handle, GWL_STYLE );

  if (style and WS_VSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_VSCROLL );
  if (style and WS_HSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL );
  end;
if AutomaticScroll then
  begin
    if Assigned(DataSource) and Assigned(DataSource.DataSet) then
    begin
      Style := GetWindowLong(Handle, GWL_STYLE);

      if DataSource.DataSet.RecordCount > VisibleRowCount then
       Style := Style or WS_VSCROLL
      else
       Style := Style and not WS_VSCROLL;

      SetWindowLong(Handle, GWL_STYLE, Style);
  end;
end;
  inherited;
end;

procedure Register;
begin
  RegisterComponents('Data Controls', [TDBGrilla]);
end;

end.

Saludos.

[[gluglu]]

He intentado crear este componente en BDS 2006 VCL.Net y al ejecutar inherited me da error. Al igual que en su momento lo intenté con el código de Neftalí.

En cualquier caso, me gustaría retomar el hilo para preguntar si verdaderamente va a funcionar con TQuery's o TDataSet's ya que nos estamos basando en una propiedad del DataSet que es RecordCount para saber si debemos o no pintar la ScrollBar vertical.

Pero a mi entender la propiedad RecordCount de un TDataSet siempre devuelve -1, no es verdad ?

A no ser que previamente hayamos leido 'todos' los registros que incorpore el DataSet, por ejemplo con un 'Last'. Pero eso vuelve a contradecir un poco la filosofía de los TQuery's y el tráfico generado por traer todos los registros de un Select.

A lo mejor estoy equivocado y por eso pregunto.

Saludos de nuevo a todos y gracias por vuestros comentarios

[[eduarcol]]

Empezado por gluglu

He intentado crear este componente en BDS 2006 VCL.Net y al ejecutar inherited me da error. Al igual que en su momento lo intenté con el código de Neftalí.

En cualquier caso, me gustaría retomar el hilo para preguntar si verdaderamente va a funcionar con TQuery's o TDataSet's ya que nos estamos basando en una propiedad del DataSet que es RecordCount para saber si debemos o no pintar la ScrollBar vertical.

Pero a mi entender la propiedad RecordCount de un TDataSet siempre devuelve -1, no es verdad ?

A no ser que previamente hayamos leido 'todos' los registros que incorpore el DataSet, por ejemplo con un 'Last'. Pero eso vuelve a contradecir un poco la filosofía de los TQuery's y el tráfico generado por traer todos los registros de un Select.

A lo mejor estoy equivocado y por eso pregunto.

Saludos de nuevo a todos y gracias por vuestros comentarios

a ver, aventurandome un poco y sin conocer mucho del tema, yo pienso que si deberia funcionar el recordcount, ya que estamos hablando de los registros visibiles en el grid, entonces en ese momento un count deberia devolver el numero correcto de registros...

[[gluglu]]

Estimado Eduardo,

Desde mi punto de vista ese no es el enfoque que al menos yo le estoy dando al problema. A lo mejor yo también me equivoco.

Yo lo que trato es de obtener un DBGrid que cuando el número de Registros que me devuelve un 'Select' supere el número de registros visibles en el DBGrid, entonces me muestre la barra de Scroll vertical.

Si el número de registros devuelto por el Select es menor que el número de líneas que en pantalla tiene el grid, entonces me oculte la barra vertical.

Si por ejemplo, tengo un Grid con 5 líneas visibles en pantalla, si un Select me devuelve 3 registros, entonces no me muestr la barra vertical, ya que no hay ningún scroll que hacer al tener ya mostrados todos los registros en pantalla.

Si en cambio obtengo 7 registros de mi consulta, entonces si que necesito el ScrollBar vertical, porque para ver todos los registros de mi select necesitaré hacer un 'Scroll'.

Pero es ahí donde retomo el asunto del RecordCount. Si mi Select me devuelve 1 millón de registros, el RecorCount me devuelve en principio -1 y a mi entender, el componente expuesto no funcionaría correctamente.

[[eduarcol]]

bueno con los zeos no he tenido ese problema, debe ser que no traigo tantos registros al cliente, pero el recordcount cuando esta conectado al grid generalmente si funciona bien

[roman]

Ciertamente, el componente expuesto sólo funcionará para aquellos casos en los que RecordCount arroje un valor significativo. Con algunos componentes es así, con otros no, depende, me parece, de qué tanta meta información manda la base. No obstante, a mi entender, el punto aquí, sería, en todo caso, determinar cuando es necesaria la barra y cuando no, y ese conocimiento no depende de si ocultamos la barra con la API correspondiente o poniéndole un panel encima.

// Saludos

[sanxpue]

Usando el componente de compañero "Enecumene"
todo iba bien perooooooooooo resulta que tuve que volver a instalar
el delphi y adivinen que?

Ya no corrio

Error : incompatible Type : 'Boolean' and 'TValor'

Solo le hice esta pequeña modificacion y listo

type
TValor = Boolean;

y Listo

saludos (sigo vivo.. ehhh)