Kbelo Posted May 18, 2012 Report Share Posted May 18, 2012 Ola amigos. Como faço um xbrowse sem Bordas e que inicie de baixo para cima. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 18, 2012 Author Report Share Posted May 18, 2012 Ola amigos. Como faço um xbrowse sem Bordas e que inicie de baixo para cima. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
miragerr Posted May 18, 2012 Report Share Posted May 18, 2012 Ola amigos Sem bordas é fácil... agora de BAIXO P/ CIMA ai complicou Jackson Douglas Boa Vista FWH 12.02 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100% email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 18, 2012 Report Share Posted May 18, 2012 citação:inicie de baixo para cima. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. id=quote>id=quote>Ola Marcelo veja se é isto que vc quer... antes de abrir a browse... KEYBD_EVENT(33,,,0) KEYBD_EVENT(35,,,0) fazer esta declaração no prg principal... DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll" id=code>id=code>Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 18, 2012 Author Report Share Posted May 18, 2012 citação:Ola amigos Sem bordas é fácil... agora de BAIXO P/ CIMA ai complicou Jackson Douglas Boa Vista FWH 12.02 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100% email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr id=quote>id=quote>Como faz sem Bordas? Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 18, 2012 Author Report Share Posted May 18, 2012 citação: citação:inicie de baixo para cima. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. id=quote>id=quote>Ola Marcelo veja se é isto que vc quer... antes de abrir a browse... KEYBD_EVENT(33,,,0) KEYBD_EVENT(35,,,0) fazer esta declaração no prg principal... DLL32 FUNCTION keybd_event(bVk as _INT,bScan as _INT,dwFlags ; as LONG,dwExtraInfo as LONG) AS LONG PASCAL LIB "user32.dll" id=code>id=code>Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 id=quote>id=quote>Não entendi sua postagem mas fiz o teste mesmo assim Não funcionou. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 18, 2012 Author Report Share Posted May 18, 2012 Resumindo o que quero. Tenho uma tela de PDV e quero um espelho do cupom na tela. Vai subir um cupom por isso um browse sem bordas e se possivel de baixo para cima. Essa tela tera uma imagem de fundo para poder personalizar para cada cliente assim o Desenho do cupom ja vem do brush da tela. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 18, 2012 Report Share Posted May 18, 2012 Marcelo ententi o que vc quer , o comando acima é para funcionar sim... tipo neste exemplo tenho uma tela com uma browse, aonde executa uma funcao externa para atualizar um registro a mais nela function taltal() // atualizando informações da browse // " " // " " * aqui ele ira atualiza a browse e posicionar no ultimo registro visivel na tela... oBrw:refresh() KEYBD_EVENT(33,,,0) KEYBD_EVENT(35,,,0) return .t. id=code>id=code>Obs: desta forma ira dar a impressão de rolamento para cima... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Editado por - empresoft on 18/05/2012 15:44:26 Quote Link to comment Share on other sites More sharing options...
CTOAS Posted May 18, 2012 Report Share Posted May 18, 2012 Browse sem borda com TXBrowse Windows Styles: 0x50010000 Acho que colocar o Ãndice em descendente resolveria a ordem dos dados no browse, mas iniciar no rodapé do browse não sei. Editado por - ctoas on 18/05/2012 16:04:26 Editado por - ctoas on 18/05/2012 16:11:27 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 18, 2012 Report Share Posted May 18, 2012 ententi errado, tipo a browse ter apenas um registro e aparecer na ultima linha, dai não tem nada a ver com o comando acima, realmente desconheço tb como fazer isto... Obs: como a browse não vai ter bordas imagino que tb não ira ter linhas para dar a impressão de uma fita, o que poderia fazer é criar registros em branco enquando o numero de itens for menor que os que irao caber na tela, dai junto com o comando acima iria dar certo... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Editado por - empresoft on 18/05/2012 16:16:27 Quote Link to comment Share on other sites More sharing options...
CTOAS Posted May 18, 2012 Report Share Posted May 18, 2012 http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14244 Quote Link to comment Share on other sites More sharing options...
aferra Posted May 18, 2012 Report Share Posted May 18, 2012 Boa tarde. BORDAS Não sei como fazer ir para ultima linha do browse oBrw:GoBottom() Um grande Abraço Alessandroid=blue> FW9.07 + xHb121 + CDX Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red> Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted May 18, 2012 Report Share Posted May 18, 2012 Presumindo que esteja usando XBROWSE, tanto a dica do Alessandro(aferra), como a abaixo funciona. ITEM->(OrdSetFocus("SEQ")) ; ITEM->(DBGoBottom()) ; oBrw:Refresh() Observe que foi criado um indice para a sequencia de itens, para ficar espelho do cupom. Tambem poderia fazer com um Skip -x que seria a qde de lionhas do seu browse Dimob / SPED(pis/cofins) ..:: Este post é uma opnião pessoal, NAO DEVE SER ENCARADO COMO VERDADE ABSOLUTA ::.. Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 18, 2012 Report Share Posted May 18, 2012 Com a resposta do Sergio e do Aferra não consegui entender como o registro ira aparecer por baixo qdo tiver um ou dois registro, no exemplo do Sergio se tiver dois itens ira aparecer la em cima ficando toda parte de baixa vazia... Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
Theotokos Posted May 18, 2012 Report Share Posted May 18, 2012 Não sei se daria certo e tmb não sei como vc esta utilizando o xbrowse, se com DBF, SQL, ARRAY... mas vai ai uma idéia... Criar um Array : aFita[500,4], ai vc vai alimentando este array de 500 à 1, e utiliza o gobottom() no xbrowse... 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.