Hola amigos, buenas tardes.
Trabajo con: Delphi6, FB 2.0, Win10, IBX.
Estoy trabajando con un StringGrid al cual le desactive las barras de desplazamiento, porque las pienso controlar con 2 Botones (tBitBtn), los cuales tienen el siguiente código:
Botón hacia arriba:
Código Delphi
[-]
procedure TfrmRegComanda.sBtnUPDetalleClick(Sender: TObject);
begin
TWinControl(SG).ScrollBy(0,DELTA_B);
end;
Botón hacia abajo:
Código Delphi
[-]procedure TfrmRegComanda.sBtnDownDetalleClick(Sender: TObject);
begin
TWinControl(SG).ScrollBy(0,-DELTA_B);
end;
Declaro como constante a DELTA:
Código Delphi
[-]implementation
uses ModuloBD, MeseroMain,MeseroAbrirMesas, MeseroEditarProdComanda, MeseroLogin;
Const
DELTA=260;
DELTA_B=10;
{$R *.dfm}
2 cosas que quiero hacer:
1.- Activar los botones cuando la cantidad de lineas del StringGrid sobre pase la zona de visión, que es cuando las barras de desplazamiento se activan automáticamente, pero la tengo desactivada ya que los botones harán esa función, entonces como activar los botones cuando haya muchos renglones.
2.- El StringGrid tiene un comportamiento extraño cuando presiono el botón que debería desplazar hacia abajo los registros, me duplica el encabezado
Pero el StringGrid al desplazarme hacia arriba el encabezado se empieza a duplicar y encimarse...(no se como explicarlo) (
Anexo imagen)
Y también el otro botón tiene un comportamiento similar.
Alguien q me pudiera ayudar a como resolver estos 2 problemas?.
Gracias.