Kbelo Posted May 27, 2008 Report Share Posted May 27, 2008 Amigos Bom Dia. Tenho uma Tela de Recebimento. Esta tera uma area com Um Browse onde fica as parcelas. Quando escolher o tipo de pagamento de cada parcela("Cheque", "cartão", etc...) ira aparece os dados de cada tipo para Preencher. Bom isso ficaria muito facil se eu fizesse em telas separadas e cada vez que escolho cartão abrisse uma telinha com os dados do cartão para Preencher. mas que o seguinte Dentro da Tela de Recebimento ter tipo um folder. Este Sem mostrar abas e sóp mostraria a aba que eu escolhesse o restante fica Invisivel. Tem como? Ou to viajando na maionese? Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 27, 2008 Author Report Share Posted May 27, 2008 Amigos Bom Dia. Tenho uma Tela de Recebimento. Esta tera uma area com Um Browse onde fica as parcelas. Quando escolher o tipo de pagamento de cada parcela("Cheque", "cartão", etc...) ira aparece os dados de cada tipo para Preencher. Bom isso ficaria muito facil se eu fizesse em telas separadas e cada vez que escolho cartão abrisse uma telinha com os dados do cartão para Preencher. mas que o seguinte Dentro da Tela de Recebimento ter tipo um folder. Este Sem mostrar abas e sóp mostraria a aba que eu escolhesse o restante fica Invisivel. Tem como? Ou to viajando na maionese? Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
giovanyvecchi Posted May 27, 2008 Report Share Posted May 27, 2008 Voce pode fazer isto com TABS Veja em SAMPLES TESTTAB.PRG ou TESTTAB2.PRG Giovany Vecchi - Jales - SP FWH 2.8 /Clipper 5.3b /Blinker 5.0 / Harbour 0.99 / xHarbour 99.71/ Bcc 5.6 / Ads 7.1 /PellesC Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 27, 2008 Author Report Share Posted May 27, 2008 Isso ta igual folders. a Eu quero Sumir com as Abas. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 27, 2008 Report Share Posted May 27, 2008 Olá Marcelo, blz? e se vc usa-se hide() e show(), não daria certo? Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> Quote Link to comment Share on other sites More sharing options...
kleyber Posted May 27, 2008 Report Share Posted May 27, 2008 citação:Isso ta igual folders. a Eu quero Sumir com as Abas. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. id=quote>id=quote>Fala Marcelo, blz? Eu faço isso em meus sistemas, e no Fivewin for Clipper as abas ficavam como que desativadas, só ativando dependendo da opção ou das opções desejadas, usando folder mesmo. Agora sem mostrar as abas, nunca tentei. Abraços, Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
toya Posted May 27, 2008 Report Share Posted May 27, 2008 Tente o PAGES 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... Editado por - toya on 27/05/2008 14:54:06 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 27, 2008 Author Report Share Posted May 27, 2008 citação:Tente o PAGE 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... id=quote>id=quote>Como? Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 27, 2008 Report Share Posted May 27, 2008 NAO SERIA POR AQUI??? //----------------------------------------------------------------------------// METHOD DelItem() CLASS TFolder local nLen, n if Len( ::aPrompts ) > 0 ::aPrompts = ADel( ::aPrompts, ::nOption ) ::aPrompts = ASize( ::aPrompts, Len( ::aPrompts ) - 1 ) ::aDialogs[ ::nOption ]:bValid = { || .t. } ::aDialogs[ ::nOption ]:End() ::aDialogs = ADel( ::aDialogs, ::nOption ) ::aDialogs = ASize( ::aDialogs, Len( ::aDialogs ) - 1 ) endif ::nOption = Min( ::nOption, Len( ::aPrompts ) ) if ( nLen := Len( ::aPrompts ) ) > 0 if ::lAllWidth ::nTabSize = int( ::nWidth / nLen ) else ::nTabSize := 0 for n = 1 to nLen ::nTabSize = Max( ::nTabSize, ; int( GetTextWidth( 0, ::aPrompts[n], ; ::oFont:hFont ) + FD_TABMARGIN ) ) next n ::nTabSize = Min( ::nTabSize, int( ::nWidth / nLen ) ) endif else ::nTabSize = ::nWidth + 1 endif ::Refresh() ::SetPrompts( ::aPrompts ) return nil id=code>id=code>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...
Kbelo Posted May 27, 2008 Author Report Share Posted May 27, 2008 citação:NAO SERIA POR AQUI??? //----------------------------------------------------------------------------// METHOD DelItem() CLASS TFolder local nLen, n if Len( ::aPrompts ) > 0 ::aPrompts = ADel( ::aPrompts, ::nOption ) ::aPrompts = ASize( ::aPrompts, Len( ::aPrompts ) - 1 ) ::aDialogs[ ::nOption ]:bValid = { || .t. } ::aDialogs[ ::nOption ]:End() ::aDialogs = ADel( ::aDialogs, ::nOption ) ::aDialogs = ASize( ::aDialogs, Len( ::aDialogs ) - 1 ) endif ::nOption = Min( ::nOption, Len( ::aPrompts ) ) if ( nLen := Len( ::aPrompts ) ) > 0 if ::lAllWidth ::nTabSize = int( ::nWidth / nLen ) else ::nTabSize := 0 for n = 1 to nLen ::nTabSize = Max( ::nTabSize, ; int( GetTextWidth( 0, ::aPrompts[n], ; ::oFont:hFont ) + FD_TABMARGIN ) ) next n ::nTabSize = Min( ::nTabSize, int( ::nWidth / nLen ) ) endif else ::nTabSize = ::nWidth + 1 endif ::Refresh() ::SetPrompts( ::aPrompts ) return nil id=code>id=code>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 id=quote>id=quote>Quase isso mas neste caso é mais facil deixar a Aba invisivel do que Deletar. Bom pra explicar melhor que que meu folder funciona como um Painel Terei 4 abas e 3 ficarão Invisiveis assim somente uma das abas ira aparecer ai que que suma a Aba acima e fique somente um painel. Hoje Fica Assim |---------| |Minha Aba| |---------|-----------------------| | | | | | | | | | | | | |---------------------------------| Quero que Fique Assim |---------------------------------| | | | | | | | | | | | | |---------------------------------| id=code>id=code>Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
Gasperin Posted May 28, 2008 Report Share Posted May 28, 2008 Desculpem minha falta de conhecimento, mas porque brigar com as abas do Folder? Não seria mais fácil criar as dialogs para uma mesma posição em uma Window e executar Activate()/Destroy(), para cada troca de tipo de documento, trocando a Dialog? Alguém tem usado TMdiFrame()? Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 28, 2008 Author Report Share Posted May 28, 2008 citação:Desculpem minha falta de conhecimento, mas porque brigar com as abas do Folder? Não seria mais fácil criar as dialogs para uma mesma posição em uma Window e executar Activate()/Destroy(), para cada troca de tipo de documento, trocando a Dialog? Alguém tem usado TMdiFrame()? Delair José Gaperin ------------------------------------- Harbour 1.1-1 - FW 8.02 - WorkShop id=quote>id=quote>Certo mas isso eu estou fazendo dentro de uma outra janela. Tenho 80% da janela com outros dados e quero alterar somente a area do folder que é 20% desta tela. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 28, 2008 Report Share Posted May 28, 2008 Olá Marcelo, concordo com o Delair, acho melhor vc trabalhar com dialog ou com lhe disse antes crie os objetos e depois conforme as condições vc usa show() e hide() nos objetos... Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 28, 2008 Author Report Share Posted May 28, 2008 Amigos Achei a Solução para meu problema. Comecei a Estudar como é Motado o Folder e vi que ele nada mais é do que vario Defines Dialogs. Onde fica algumas ativa e outras inativas. Com isso cheguei a conclusão que se ele pode abrir essa telase tb posso. Fiz o Seguinte tenho a Tela padrão do recebimento. Escolhi uma Opção ex: cheque ai vai me abrir os dados do Cheque. Montei minha Dialog no WS com nome "CHEQUE" coloquei como NO Border System menu System Modal visible Pronto ate ao blz ficou show de bola. Sem barra de Titulos e com foco só para os Gets que quero. Quando abro essa Telinha no On Init faço On Init (Odlg:Move(oDlgRece:nTop + 300,oDlgRece:nLeft + 430)) para Mover a Dialog para a Posição certa. Bom problema é que o nTop e nLeft são sempre os Originais. Assim se mover a tela oDlgRece com mouse não abre a tela no lugar certo. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Quote Link to comment Share on other sites More sharing options...
aferra Posted May 28, 2008 Report Share Posted May 28, 2008 Olá Marcelo Tente colocando assim: On paint (Odlg:Move(oDlgRece:nTop + 300,oDlgRece:nLeft + 430)) Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Nós nos transformamos naquilo que praticamos com freqüência. A perfeição, portanto, não é um ato isolado e sim um hábito". id=red> Quote Link to comment Share on other sites More sharing options...
Kbelo Posted May 29, 2008 Author Report Share Posted May 29, 2008 Só mudei de ON INIT para ON Paint deu um uns erro meio loco. mas pela Logica acho que não faz muito sentido se paint ou ini pq veja bem. Meu problema não é nessa janela e sim no nTop e nLeft da Janela Anterior que nao atualiza. Marcelo Michels marcelo@infototal.com.br celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. 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.