syspel Posted April 1, 2010 Report Share Posted April 1, 2010 ola pessoal ainda nao entedi porque a barra de rolagen da horizontal nao aparece na listbox alguem pode me dar uma luz ? #include 'Fivewin.ch' static janela,aget Function boaaa local ocancela Set Talk off Set date brit Set delete on Set Century on Set Epoch to 1970 Set exclusive off Set Multiple off Close databases aget:=array(10) select 1 use fpemp000 index on fpemp000->cod_emp to empfp000 Define font ofont2 name "fixedsys" size 8,13 define dialog janela from 0,0 to 26,79 @ 1.5,1 listbox obf FIELDS strzero(fpemp000->cod_emp,3),transf(fpemp000->NOME_EMP,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'),fpemp000->cgc_empr ; FIELDSIZES 63,355,0 ALIAS "FPEMP000" HEADERS 'CÓDIGO','NOME','C.N.P.J' size 300,130 of janela font ofont2 @ 159,168 Btnbmp size 44,13 FILENAME "Ativa.bmp " of janela @ 159,220 Btnbmp size 44,13 FILENAME "Procura.bmp" of janela @ 159,270 Btnbmp size 44,13 FILENAME "Cancela.bmp" of janela action janela:end() cancel update activate dialog janela centered return nil ailton syspel ps:email ja esta funcionando Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
syspel Posted April 1, 2010 Author Report Share Posted April 1, 2010 ola pessoal ainda nao entedi porque a barra de rolagen da horizontal nao aparece na listbox alguem pode me dar uma luz ? #include 'Fivewin.ch' static janela,aget Function boaaa local ocancela Set Talk off Set date brit Set delete on Set Century on Set Epoch to 1970 Set exclusive off Set Multiple off Close databases aget:=array(10) select 1 use fpemp000 index on fpemp000->cod_emp to empfp000 Define font ofont2 name "fixedsys" size 8,13 define dialog janela from 0,0 to 26,79 @ 1.5,1 listbox obf FIELDS strzero(fpemp000->cod_emp,3),transf(fpemp000->NOME_EMP,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'),fpemp000->cgc_empr ; FIELDSIZES 63,355,0 ALIAS "FPEMP000" HEADERS 'CÓDIGO','NOME','C.N.P.J' size 300,130 of janela font ofont2 @ 159,168 Btnbmp size 44,13 FILENAME "Ativa.bmp " of janela @ 159,220 Btnbmp size 44,13 FILENAME "Procura.bmp" of janela @ 159,270 Btnbmp size 44,13 FILENAME "Cancela.bmp" of janela action janela:end() cancel update activate dialog janela centered return nil ailton syspel ps:email ja esta funcionando Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 1, 2010 Report Share Posted April 1, 2010 Não crie outro tópico, fique neste. //-> AILTON, SALVE NO SAMPLES COMO TESTE.PRG E COMPILE COM O BUILDX.BAT #Include "FiveWin.Ch" #Define CLR_LGRAY nRGB( 230, 230, 230 ) //-> Dark - Opaco/Cinza/Cienza #Define CLR_LGREEN nRGB( 190, 215, 190 ) //-> Green - Verde/Vierde #Define CLR_AMARELO nRGB( 255, 255, 000 ) //-> Yellow - Amarelo/Amarijo #Define CLR_BOMBOM nRGB( 165, 42, 42 ) //-> Brown Light - Marrom bombom #Define CLR_MARROM nRGB( 235, 202, 171 ) //-> Brown Normal - Marrom Normal #Define CLR_VERMELHO nRGB( 255, 000, 000 ) //-> Red - Vermelho/Rojo #Define CLR_GOLD1 nRGB( 255, 215, 000 ) //-> Gold1 - Ouro 1 #Define CLR_GOLD2 nRGB( 238, 201, 000 ) //-> Gold2 - Ouro 2 #Define CLR_GOLD3 nRGB( 205, 173, 000 ) //-> Gold3 - Ouro 3 #Define CLR_GOLD4 nRGB( 139, 117, 000 ) //-> Gold4 - Ouro 4 #Define CLR_LEMONCHIFFON nRGB( 255, 250, 205 ) //-> Lemon - Limao #Define CLR_AQUAMARINE nRGB( 127, 255, 212 ) //-> Aquamarine - Agua Marinha #Define CLR_ORANGE nRGB( 255, 165, 000 ) //-> Orange - Laranja STATIC oWnd, oLbx, oTimer, Z //----------------------------------------------------------------------------// FUNCTION Main() DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0, -12 BOLD DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -14 BOLD DEFINE dialog oWnd FROM 0, 0 TO 32.50, 090 ; TITLE "PASO DE ATLETAS EN TIEMPO REAL - VAI SYSPEL, VAI SYSPEL!" ; COLOR CLR_WHITE STYLE DS_MODALFRAME if ! File( "datos.dbf" ) DbCreate( "datos.dbf", { { "puesto", "N", 4, 0 },; { "nombreyape","C", 50, 0 },; { "club", "C", 30, 0 },; { "local", "C", 30, 0 },; { "licencia", "C", 30, 0 },; { "minusvalid", "C", 10, 0 },; { "genero", "C", 10, 0 } } ) endif USE datos new shared if RecCount() == 0 APPEND BLANK datos->nombreyape := "uno" datos->puesto := 2 APPEND BLANK datos->nombreyape := "dos" datos->puesto := 3 APPEND BLANK datos->nombreyape := "tres" datos->puesto := 1 endif index on datos->puesto to pue use datos shared index pue count to z for datos->puesto >= 1 if ! file( "datos2.dbf" ) copy to "datos2" endif close datos use datos2 shared new @ 0, 1 LISTBOX oLbx FIELDS str(datos2->puesto,4),; oemtoansi(datos2->nombreyape),; datos2->club,; datos2->local,; datos2->licencia,; datos2->minusvalid ; HEADERS "PUESTO", "NOMBRE","CLUB", "LOC.","FED.", "MIN." ; FIELDSIZES 70, 210, 150, 50, 50, 50 ; SIZE 340, 200 OF oWnd ; ALIAS "datos2" ; COLOR CLR_BROWN, CLR_LGREEN ; FONT oFnt UPDATE ; //-----------------------------------------------------------------------// oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho //oLbx:nClrText := {|| nRGB( 165, 42, 42 ) } // Cor do Fundo do Cabe‡alho oLbx:nClrText = { || IIF(datos2->genero="HOMBRE",SColor( 0), sColor(1)) } oLbx:nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ötem oLbx:nClrForeFocus := CLR_AMARELO // Cor da letra da barra ativa oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ; CLR_LGREEN, CLR_LGRAY ) } oLbx:nColAct := 2 // Onde o Cursor Vai Iniciar na coluna oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse oLbx:lCellStyle := .T. // Somente pinta a c‚lula em que o cursor esta no momento // Justifica o Cabe‡alho: .F. = Esquerda .T. = Centro oLbx:aJustify := { .T., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., ; .F., .F., .F., .F., .F., .F., .F., .F., .F. } oLbx:lMChange := .F. // Desabilita Mousemove - Movimentos do Mouse Congelam. oLbx:SetFocus() // Refocus on The Browse - Ativa o Foco na ListBox(Browse) oLbx:Refresh() // Estabiliza o Browse/Listbox - Refresca os Dados. // Pinta os Dados Novamente ACTIVATE DIALOG oWnd ON INIT oWnd:SetMenu( BuildMenu()) CENTERED //oTimer:End() RETURN NIL //--------------------------------------------------------------------------// FUNCTION BuildMenu() LOCAL oMenu MENU oMenu MENUITEM "&Tiempo real" MENU MENUITEM "&Activar" ACTION Timer1() SEPARATOR MENUITEM "&Salir" ACTION oWnd:End() ENDMENU ENDMENU RETURN oMenu //------------------------------------------------------------------------- FUNCTION Timer1() DEFINE TIMER oTimer interval 1000 ACTION lahora() ACTIVATE TIMER oTimer return nil //--------------------------------------------------------------------------// FUNCTION lahora() LOCAL x use datos shared new count to x for datos->puesto >= 1 if x > z index on datos->puesto to pue set index to pue set filter to datos->puesto >= 1 copy to datos2 use datos2 shared oLbx:refresh() go lastrec()-46 z=x endif close datos RETURN NIL //--------------------------------------------------------------------------// STATIC FUNCTION SColor( nNivel ) LOCAL nColor := CLR_BLACK do case case nNivel == 1 nColor = CLR_HRED case nNivel == 2 nColor = CLR_WHITE case nNivel == 3 nColor = CLR_HBLUE case nNivel == 4 nColor = CLR_RED case nNivel == 5 nColor = CLR_GREEN case nNivel == 6 nColor = CLR_BLUE case nNivel == 7 nColor = CLR_BLACK case nNivel == 8 nColor = CLR_YELLOW endcase RETURN( nColor ) //-> FIM DO PROGRAMA id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 01/04/2010 15:48:22 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 1, 2010 Report Share Posted April 1, 2010 Abra seu email.. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
syspel Posted April 5, 2010 Author Report Share Posted April 5, 2010 ola amigo ficou muito show de bola mais nao funciona a barra de rolagen eu uso @ say e vcs redifine e resource oque esta errado ? eu link compilo com bat fwh 10.1 xharb 1.2.1 bcc55 ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 5, 2010 Report Share Posted April 5, 2010 Bom Dia Ailton.. Ué ?? Mas O exemplo que te mandei está em @Say.. somente as imagens é que estão em RES. Voce consegui compilar o exemplo que te mandei ?? mesmo o meu exemplo compilado não mostra a barra de rolagem ??? Coloca uma imagem ai da sua dialog ou manda ela pra mim que coloco pra gente dar uma olhadinha Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Editado por - ico on 05/04/2010 10:02:35 Quote Link to comment Share on other sites More sharing options...
syspel Posted April 5, 2010 Author Report Share Posted April 5, 2010 sim nao aparece !!! o que fazer eu ja postei o exemplo anterior ok obrigado ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 5, 2010 Report Share Posted April 5, 2010 citação:sim nao aparece !!! o que fazer eu ja postei o exemplo anterior ok obrigado ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. id=quote>id=quote>Ailton. Por favor. de mais detalhes nas suas respostas, a gente tá com grande dificuldades de entender o que você tenta falar pra gente.. Não economize nas palavras pode soltar o verbo, este forum existe pra isso. Veja sua resposta: Sim Nao aparece.. fiquei sem saber se é do meu exemplo ou do seu que não aparece a barra.. Fiz o exemplo e te mandei funcionando com a barra de rolagem aparecendo. não é possÃvel que um EXE rodando em um micro mostra uma barra de rolagem e em outro micro não mostra a mesma a barra rodando no mesmo BD Veja a imagem e me diga se é destas barras cercadas de vermelho que vc. tá falando. No aguardo Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
syspel Posted April 5, 2010 Author Report Share Posted April 5, 2010 sim meu amigo esta barra de rolagem em vermelho que voce marcou na aparece no meu listbox porque? tem um exenplo nos topico anterior ailton fwh 10.1 xharb 1.2.1 bcc55 clipper 53b Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 5, 2010 Report Share Posted April 5, 2010 citação:sim meu amigo esta barra de rolagem em vermelho que voce marcou na aparece no meu listbox porque? tem um exenplo nos topico anterior ailton fwh 10.1 xharb 1.2.1 bcc55 clipper 53b Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. id=quote>id=quote>Faz o seguinte.. Me manda seu DBF que vou copiar o seu codigo ai de cima pra testae e te retorno... Abraços.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
syspel Posted April 6, 2010 Author Report Share Posted April 6, 2010 meu amigo luiz os seu emeio esta voltando ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 citação:meu amigo luiz os seu emeio esta voltando ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. id=quote>id=quote>Acabei de abri-lo e recebi 05 entradas(nem uma sua) e 12 spam mande como "responder" a partir daquele que te mandei.. o gmail é ilimitado e não problemas de caixa cheia. Posso estar errado mas o amigo não está colocando .com.br ? o correto é somente ico.corumba@gmail.com sem o .br Abraços.. No aguardo Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 6, 2010 Report Share Posted April 6, 2010 citação: citação:meu amigo luiz os seu emeio esta voltando ailton Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. id=quote>id=quote>Acabei de abri-lo e recebi 05 entradas(nem uma sua) e 12 spam mande como "responder" a partir daquele que te mandei.. o gmail é ilimitado e não problemas de caixa cheia. Posso estar errado mas o amigo não está colocando .com.br ? o correto é somente ico.corumba@gmail.com sem o .br Abraços.. No aguardo Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> id=quote>id=quote>O GMAIL, não é um que não se pode manda .EXE e outros bixo? tem-se que renomear tudo? Ailton, envie seu .DBF, que eu dou uma olhada. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 Kapiaba --> é isso mesmo.. o gmail não manda nem recebe arquivos executaveis.. é exactamente isso que pedi pra ele o DBF. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 6, 2010 Report Share Posted April 6, 2010 citação:Kapiaba --> é isso mesmo.. o gmail não manda nem recebe arquivos executaveis.. é exactamente isso que pedi pra ele o DBF. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> id=quote>id=quote>Porque não usas o email do POP ou do BOL, não tem frescura nenhuma. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 citação:Porque não usas o email do POP ou do BOL, não tem frescura nenhuma. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Terei que avisar 4 100 tas pessoas, fora instituições comerciais.. ficar com um monte de emails espalhados pelos provedores afora não é uma boa idéia. Experiencia própria Ailton -- acabei de Receber dois emails seus mais nem um contendo anexos com o DBF. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 6, 2010 Report Share Posted April 6, 2010 kkkkkkkkkkkkkk, esse Ailton, não existe!! não enviou os ANEXOS??? kkkkkkkkkkkkk. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 Recebido.. vou olhar aguarde.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 Ailton.. Voce montou um codigo ai em cima com um arquivo e me mandou outro No seu exemplo tá use fpemp000 e voce me mandou FPAG000.dbf que não tem os campos que estão no seu código.. por exemplo Nome Manda o mesmo DBF que vc. está tendo problema. Se eu montar pra vc. com este DBF que vc. mandou vamos continuar continuar sem soluação. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
syspel Posted April 6, 2010 Author Report Share Posted April 6, 2010 EU TE MANDEI O AQUVO FPEMP000.DBF OK OBRIGADO AILTON Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 Ailton.. acho que tem algun BUG na sua versão. veja, copiei o seu codigo ai do forum compilei e pus pra rodar sem alterar absolutamente nada. nem mesmo os botoões eu alterei. Só copiei e colei no meu editor. Se vc. quiser posso te mandar um exemplo usando xBrowse pra ver o que acontece.. No aguardo Abraços.. Pessoal que usa o TwBrowse Nativo com a versão igual a do Ailton por favor digam alguma coisa.. Obrigado.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Editado por - ico on 06/04/2010 17:32:32 Editado por - ico on 06/04/2010 17:34:12 Quote Link to comment Share on other sites More sharing options...
exata Posted April 6, 2010 Report Share Posted April 6, 2010 Boa tarde, Realmente existe um bug nesta versão do FW. Altere a classe TWBrowse conforme abaixo. +- linha 1378 inverta a posição do ::VSetRange() if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), WS_VSCROLL ) .or. ; GetClassName( ::hWnd ) == "ListBox" DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self ::nLen := Eval( ::bLogicLen, Self ) * exata 17/03/2010 - 19:08:30 ::VSetRange() ::oVScroll:SetPage( Min( ::nRowCount(), ::nLen - 1 ) ) endif Marnio Miranda Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 6, 2010 Report Share Posted April 6, 2010 Não esqueça, depois de fazer as alterações na classe vc. tem que compilar ela junto com seu projeto.. Luiz Arruda - Corumba(MS) FiveWin 904 [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICOid=blue> Quote Link to comment Share on other sites More sharing options...
syspel Posted April 7, 2010 Author Report Share Posted April 7, 2010 bom dia luiz eu nao tenho essa classe vc pode me nandar essa classe tambem gostaria de um exemplo xbrowse ok obrigado ailton fhw 10.1 xharb 1.2.1 bcc55 clip53 Syspel Informatica. FIVEWIN,XHARBOUR,DBF, PHP,SQL,VB. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 7, 2010 Report Share Posted April 7, 2010 c:\fwh..\source\classes\wbrowse.prg João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe 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.