desabilitar barra de rolagem....

[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

[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

[FARLEY RIBEIRO]

Funcionou perfeitamente...

Grato

Farley