pasim Posted April 19, 2005 Report Share Posted April 19, 2005 include "fivewin.ch" /*----------------------------------------------------------*/ ***** function main() local oDlg DEFINE DIALOG oDlg TITLE "Controles em uma Dialog" COLOR "N/W*" ACTIVATE DIALOG oDlg CENTERED ON INIT BuildControls( oDlg ) return( 0 ) /*-----------------------------------------------------------*/ static func BuildControls( oDlg ) local oMenu, oBar MENU oMenu MENUITEM "&Opcões" MENU MENUITEM "&Info" MENU MENUITEM "&Informação..." ACTION MsgAbout() ENDMENU SEPARATOR MENUITEM "&Sair" ACTION oDlg:End() ENDMENU ENDMENU oDlg:SetMenu( oMenu ) DEFINE BUTTONBAR oBar OF oDlg 3D DEFINE BUTTON OF oBar PROMPT " Info " ACTION MsgAbout() ; FONT oDlg:oFont NOBORDER DEFINE BUTTON OF oBar PROMPT " Sair " ACTION oDlg:End() ; FONT oDlg:oFont NOBORDER DEFINE MESSAGE OF oDlg PROMPT "Menu, Bar e Barra de mensagem em Dialog" return( 0 ) ******* USEI ESTE EXEMPLO(http://www.fivewin.com.br/exibedicas.asp?id=135) PRA COLOCAR UM MENU NUMA DIALOG. CONSEGUI SÓ QUE ME DEPAREI COM UM PROBLEMA QUANDO COLOCO O NUMERO DO DOCUMENTO E DOU ENTER NÃO ACONTECE NADA NÃO SAI DO GET. ALGUÉM PODE ME AJUDAR Tem uma maneira mais fácil de colocar menu na dialog. usando WORKSHOP? Se tiver por favor me digam. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Editado por - pasim on 19/04/2005 18:17:55 Quote Link to comment Share on other sites More sharing options...
eajunior Posted April 20, 2005 Report Share Posted April 20, 2005 Ola Pasmim, tirando o menu o get funciona normal? Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
pasim Posted April 20, 2005 Author Report Share Posted April 20, 2005 Funciona sim Elias. Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 20, 2005 Report Share Posted April 20, 2005 Coloque o Menu na ListBox ou em um Botao... Nao na DIALOG. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
pasim Posted April 20, 2005 Author Report Share Posted April 20, 2005 Olá Kapiaba bom dia! Podes me dizer como faço isso... Paulo Clipper 5.3b/FW2.4/WS pasimplicio@yahoo.com.br MSN: pasimplicio@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 20, 2005 Report Share Posted April 20, 2005 fw..\samples\account veja tsbutton e dbuttons nas DICAS. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 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.