DÃºvidas de Iniciante.

vmolina · 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

vmolina · 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

Ale SB · 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>

LuisÃ£o · 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

RETURN

id=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)

vmolina · 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

LuisÃ£o · 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)

Luiz Arruda (ICO) · 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

vmolina · January 17, 2012

Valeu, muito obrigado Luiz, estava precisando aprender mesmo como fazer uma buttonbar.

Obrigado

vmolina · 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

ecmsoft · 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

kapiaba · 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

vmolina · 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

vmolina · January 18, 2012

Boa tarde a todos,

Gostaria de saber como faÃ§o para inserir uma imagem dentro da Window?

Att

Vitor Molina

vitormolina@gmail.com

FW 10.12 + xHarbour 1.2.1 (6717) | BCC 5.82

Erciley Junior · 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

Luiz Arruda (ICO) · 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

vmolina · 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

DÃºvidas de Iniciante.

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation