Página 1 de 1

desabilitar barra de rolagem....

Enviado: 23 Jul 2008 16:53
por FARLEY RIBEIRO
olá galera.

gostaria de desativar a barra de rolagem horizontal qdo o listbox tem vários elementos.

Código: Selecionar todos

 @ 5.0,1.0 LISTBOX oLbx ;
    FIELDS if(len(aVendas) > 0, aVendas[oLbx:nat], "") ;
    HEADER " Código Produto Descrição                      St Quantidade Vlr.Unitário  Valor Total" ;
    SIZE 380, 175 FONT wfont2_FixedSys UPDATE
  oLbx:lMChange   := .f. // Desabilta Mousemove
  oLbx:lCellStyle := .t. // S¢ Pinta a celula que o cursor est 
  oLbx:aJustify   := {.f.} // Justifica os Cabe‡alhos Esq. .T. =Centro
  oLbx:lAutoSkip  := .t.
  Olbx:nStyle := nOr( WS_CHILD, WS_VSCROLL, WS_BORDER, WS_VISIBLE, WS_TABSTOP, 0 )
  oLbx:Cargo := .t.
  oLbx:oHScroll := nil
  oLbx:SetArray(aVendas)
ah já tentei o comando acima oLbx:lHScroll:=.f.

http://i232.photobucket.com/albums/ee19 ... istbox.jpg

grato

farley

Re: desabilitar barra de rolagem horizontal...

Enviado: 24 Jul 2008 09:09
por gvc
Tente tirar o WS_VSCROLL.

Procurei o oHScroll na documentação e no source. Não encontrei nada. Só se for um método herdado.

ISto é o que eu encontrei na classe LISTBOX:
METHOD VScroll( nWParam, nLParam ) VIRTUAL // We request default behaviors

Re: desabilitar barra de rolagem....(resolvido)

Enviado: 24 Jul 2008 15:28
por FARLEY RIBEIRO
Funcionou perfeitamente...

Grato

Farley