vmolina Posted January 13, 2012 Report Share Posted January 13, 2012 Boa tarde a todos, Gostaria de saber como faço para inserir uma imagem dentro da Window? Att ____________________________________________________________ Boa tarde pessoal. Sou iniciante no FiveWin e gostaria de saber como faço para a opção 1, 2,3 acionar uma janela com uma caixa de dialogo com alguns campos para preenchimento de dados? Segue código. #include "FiveWin.ch" Static oWnd Function Main() Local oWnd Set Date British MENU oMenu MENUITEM "OPCAO1" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window1") MENUITEM "OPCAO2" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window2") MENUITEM "OPCAO3" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window3") MENUITEM "FECHAR" ACTION oWnd:End() ENDMENU DEFINE WINDOW oWnd TITLE "MEU PRIMEIRO PROGRAMA" MDI MENU oMenu COLOR "W/BG" SET MESSAGE OF oWnd TO "SOFTWARE PARA AUTOMAÇÃO" CLOCK DATE CENTERED ACTIVATE WINDOW oWnd MAXIMIZED VALID MsgYesNo( "Deseja sair ?" ) return nil Desde já agradeço a todos id=red> Editado por - vmolina on 18/01/2012 17:41:19 Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 13, 2012 Author Report Share Posted January 13, 2012 Boa tarde a todos, Gostaria de saber como faço para inserir uma imagem dentro da Window? Att ____________________________________________________________ Boa tarde pessoal. Sou iniciante no FiveWin e gostaria de saber como faço para a opção 1, 2,3 acionar uma janela com uma caixa de dialogo com alguns campos para preenchimento de dados? Segue código. #include "FiveWin.ch" Static oWnd Function Main() Local oWnd Set Date British MENU oMenu MENUITEM "OPCAO1" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window1") MENUITEM "OPCAO2" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window2") MENUITEM "OPCAO3" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window3") MENUITEM "FECHAR" ACTION oWnd:End() ENDMENU DEFINE WINDOW oWnd TITLE "MEU PRIMEIRO PROGRAMA" MDI MENU oMenu COLOR "W/BG" SET MESSAGE OF oWnd TO "SOFTWARE PARA AUTOMAÇÃO" CLOCK DATE CENTERED ACTIVATE WINDOW oWnd MAXIMIZED VALID MsgYesNo( "Deseja sair ?" ) return nil Desde já agradeço a todos id=red> Editado por - vmolina on 18/01/2012 17:41:19 Quote Link to comment Share on other sites More sharing options...
Ale SB Posted January 13, 2012 Report Share Posted January 13, 2012 Acredito q este exemplo possa te ajudar..dê uma estudada nele...no samples do FW tb tem otimos Exemplos: http://www.fivewin.com.br/exibedicas.asp?id=358 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Quote Link to comment Share on other sites More sharing options...
Luisão Posted January 13, 2012 Report Share Posted January 13, 2012 Cada Menuitem deve disparar uma função e cada função seria uma tela, basicamente. MENUITEM "OPCAO2" ACTION AbreTela2() MENUITEM "OPCAO3" ACTION AbreTela3() ... FUNCTION AbreTela1() DEFINE Window oTela1 OF oWnd SIZE 100,100 TITLE "Tela 1" ACTIVATE Window oTela1 RETURN FUNCTION AbreTela2() DEFINE Window oTela2 OF oWnd SIZE 100,100 TITLE "Tela 2" ACTIVATE Window oTela2 RETURN FUNCTION AbreTela3() DEFINE Window oTela3 OF oWnd SIZE 100,100 TITLE "Tela 3" ACTIVATE Window oTela3 RETURNid=code>id=code>Luis Fernando Jr. (Luisão) -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY luis.fernando.majr@gmail.com juninho_luisao@hotmail.com (msn) Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 13, 2012 Author Report Share Posted January 13, 2012 Valeu Ale, já baixei o programa e vou estudar. Luisão desculpe a minha ignorância mas tentei utilizar o código que vc me passou porém da erro na hora que vou compilar. O que será quer houve? Valeu obrigado Quote Link to comment Share on other sites More sharing options...
Luisão Posted January 13, 2012 Report Share Posted January 13, 2012 Na verdade o meu código é para incrementar o seu. Troque os MENUITEM do seu código pelos MENUITEM do código que eu postei e adicione as 3 funções AbreTela no seu PRG. Isso é só um exemplo para você ver como se faz na prática =) Luis Fernando Jr. (Luisão) -- FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY luis.fernando.majr@gmail.com juninho_luisao@hotmail.com (msn) Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 16, 2012 Report Share Posted January 16, 2012 Seja Bem vindo ao Forum.. Veja esse exemplinho ProceDure Meumenu() Local oMenu Menu oMenu 2007 MenuItem "Opção A" Menu MenuItem "Opçao A1" FileName "Alert.bmp" Action Opcao1(1) MenuItem "Opção A2" FileName "Bottom2.bmp" Action Opcao1(2) EndMenu MenuItem "Opção B" Menu MenuItem "Opçao B1" FileName "Calc.bmp" Action Opcao3() MenuItem "Opção B2" FileName "Computer.bmp" Action Opcao4() EndMenu MenuItem "Saida" Action oWnd:end() EndMenu Return(oMenu) Func Opcao1(oop) If oop == 1 MsgInfo("Estou na Opção 1 do Menu A","Opçao A") ElseIf oop == 2 MsgInfo("Estou na Opção 2 do Menu A","Opçao A") endif Return(.t.) Func Opcao3() MsgInfo("Estou na Opção 1 do Menu B","Opcao B") Return(.t.) Func Opcao4() MsgInfo("Estou na Opção 2 do Menu B","Opcao B") Return(.t.)id=code>id=code>Vou mandar o EXE pra você ver.. confira seu email ; vitormolina@gmail.com Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Editado por - ico on 16/01/2012 17:01:12 Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 17, 2012 Author Report Share Posted January 17, 2012 Valeu, muito obrigado Luiz, estava precisando aprender mesmo como fazer uma buttonbar. Obrigado Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 17, 2012 Author Report Share Posted January 17, 2012 Luis, só mais uma dúvida como faço para trabalhar as fontes do meu programa, por exemplo: Mudar cor da fonte, tamanho? Valeu obrigado Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted January 18, 2012 Report Share Posted January 18, 2012 Para cada controle/objeto você poderá definir a cor e a fonte desejada. O ideal é você definir as fontes e cores em variáveis, e utilizá-las no seu sistema. Exemplo: - Para um objeto GET, você definirá a fonte e a cor dessa maneira: // Aqui você declara as variáveis públicas para as cores e a fonte PUBLIC cor_texto:=nRGB(255,255,215) Public cor_fundo:=nRGB(242,101,85) DEFINE FONT oFontGet NAME "Arial" SIZE 7,21 BOLD // Aqui você declara um controle GET, usando RESOURCE.id=blue> REDEFINE GET oGetNome VAR cNome ID 101 OF oDlg COLOR cor_texto,cor_fundo FONT oFontGet id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 18, 2012 Report Share Posted January 18, 2012 citação:Para cada controle/objeto você poderá definir a cor e a fonte desejada. O ideal é você definir as fontes e cores em variáveis, e utilizá-las no seu sistema. Exemplo: - Para um objeto GET, você definirá a fonte e a cor dessa maneira: // Aqui você declara as variáveis públicas para as cores e a fonte PUBLIC cor_texto:=nRGB(255,255,215) Public cor_fundo:=nRGB(242,101,85) DEFINE FONT oFontGet NAME "Arial" SIZE 7,21 BOLD // Aqui você declara um controle GET, usando RESOURCE.id=blue>REDEFINE GET oGetNome VAR cNome ID 101 OF oDlg COLOR cor_texto,cor_fundo FONT oFontGet id=red> Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 | SQLLIB | PAF-ECF | TEF | NF-e | SPED Fiscal | PBM´s | Biometria id=quote>id=quote>Deve-se sempre evitar ao máximo o uso exagerado de VARIAVEIS PÚBLICAS, preferindo sempre LOCAL, PRIVATE OU MEMVAR, em alguns casos, o uso de STATIC é super recomendável. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 18, 2012 Author Report Share Posted January 18, 2012 Obrigado Marciano, valeu pela ajuda, deu certo aqui no sistema. Obrigado Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 18, 2012 Author Report Share Posted January 18, 2012 Boa tarde a todos, Gostaria de saber como faço para inserir uma imagem dentro da Window? Att Vitor Molina Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted January 18, 2012 Report Share Posted January 18, 2012 Veja se isso ajuda: LOCAL cIMGFundo:='c:\imagem.bmp' CRIOU WINDOW AKI, ABAIXO COLOQUE: @ 0,0 BITMAP oBmp FILE cIMGFundo noBORDER OF oTELA size oTELA:nRIGHT(),oTELA:nBOTTOM() ADJUST id=code>id=code>Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Editado por - eco_fw on 18/01/2012 17:46:33 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted January 18, 2012 Report Share Posted January 18, 2012 Boa Tarde.. Voce pode fazer assim Local oBrush, oBmp Define Brush oBrush File("Imagem.BMP") que pode ser JPG tb. Define Window oWnd .... Brush oBrush Ou assim Fundo = endereço da imagem em um DBF @03,03 IMAGE OIMAGE FILE("&cFundo") OF OWND SIZE 1000,619 ADJUST NOBORDER Ou ainda @03,03 Bitmap OIMAGE FILE("&cFundo") OF OWND SIZE 1000,619 ADJUST NOBORDER id=code>id=code>PS:Quando voce for perguntar, crie um tópico especifico para o problema... por exempo, este aqui era para saber sobre MENU.. Voce ainda pode fazer uma busca na pagina principal colocando o assundo em "busca" que vai chover de exemplos.. Clique no link ai de baixo e digite "plano de fundo" na caixa.. http://www.fivewin.com.br/forum/search.asp PS2:= este link ai está na pagina principal lá em cima no canto direito "busca" Se não conseguir nada na busca ou não conseguir entender os exemplos pode perguntar aqui.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc Quote Link to comment Share on other sites More sharing options...
vmolina Posted January 18, 2012 Author Report Share Posted January 18, 2012 Valeu Luis, fiz a pergunta nesse tópico pois ja estou sem jeito de ficar fazendo tantas perguntas? Mais uma vez muito obrigado, vc ta me dando uma força imensa. Vitor Molina vitormolina@gmail.com FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82 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.