mateus_patrick Posted July 23, 2008 Report Share Posted July 23, 2008 olá galera. gostaria de desativar a barra de rolagem horizontal qdo o listbox tem vários elementos. @ 5.0,1.0 LISTBOX oLbx ; FIELDS if(len(aVendas) > 0, aVendas[oLbx], "") ; 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) id=code>id=code>ah já tentei o comando acima oLbx:lHScroll:=.f. http://i232.photobucket.com/albums/ee192/farleyribeiro/listbox.jpg obrigado antecipadamente ao Marcelo Michels pela ajuda.. grato farley Editado por - mateus_patrick on 23/07/2008 17:10:10 Quote Link to comment Share on other sites More sharing options...
mateus_patrick Posted July 23, 2008 Author Report Share Posted July 23, 2008 olá galera. gostaria de desativar a barra de rolagem horizontal qdo o listbox tem vários elementos. @ 5.0,1.0 LISTBOX oLbx ; FIELDS if(len(aVendas) > 0, aVendas[oLbx], "") ; 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) id=code>id=code>ah já tentei o comando acima oLbx:lHScroll:=.f. http://i232.photobucket.com/albums/ee192/farleyribeiro/listbox.jpg obrigado antecipadamente ao Marcelo Michels pela ajuda.. grato farley Editado por - mateus_patrick on 23/07/2008 17:10:10 Quote Link to comment Share on other sites More sharing options...
toya Posted July 23, 2008 Report Share Posted July 23, 2008 Horizontal ou Vertical ? Se for Horizontal... Já tentastes: ... oLbx:lHScroll:=.f. ... oDlg:bpainted := { || iif( !oLbx:lHScroll, oLbx:oHScroll:SetRange( 0, 0 ), NIL ) } toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 23, 2008 Report Share Posted July 23, 2008 //-> Se estiveres usando @Say... nStyle := nOr( WS_CHILD, WS_VSCROLL, WS_BORDER, WS_VISIBLE, WS_TABSTOP) // no dialogo oLbx:nStyle := nStyle // na window #define GWL_STYLE -16 SetWindowLong( oLbx:hWnd, GWL_STYLE, nStyle ) id=code>id=code>Espero que seja isto. Abracos João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
personal Posted July 24, 2008 Report Share Posted July 24, 2008 Vou me juntar ao Toya e ao Kapi. TWBrowse():lHScroll:=.f. ou .t. TWBrowse():lVScroll:=.f. ou .t. Isto antes de criar o browse() É para a TWBrowse() do Herman. Espero que isto ajude, mas ajudaria mesmo se voce informar qual a classe esta usando. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> FWH, xharbour, SqlLib, AdoRDD, xMate TWBrowse(HC), vPrinter(VW). Quote Link to comment Share on other sites More sharing options...
mateus_patrick Posted July 24, 2008 Author Report Share Posted July 24, 2008 Estou utilizando a classe nativa do fivewin... Obrigado pelas dicas... Farley fwh2.6/xhb9950(Simplex)/PellesC/MyMake Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.