neto_23

aImpre := GetPrinters(.t.) aXItems:={} for I = 1 to len(aImpre) aadd(aXItems,aImpre[i,1]) next v_dupprom1:SetItems(aXItems) v_dupprom = v_dupproma v_dupprom1:Refresh() id=code>id=code>esse codigo adiciona no combobox as impressoras instaladas... É selelcionada a impressora e gravo no arquivo ini mais quando entro na tela o combobox volta em branco como se não tivesse selecionado... gostaria que quando selecionado ao volta a tela parece o item selecionado fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

aImpre := GetPrinters(.t.) aXItems:={} for I = 1 to len(aImpre) aadd(aXItems,aImpre[i,1]) next v_dupprom1:SetItems(aXItems) v_dupprom = v_dupproma v_dupprom1:Refresh() id=code>id=code>esse codigo adiciona no combobox as impressoras instaladas... É selelcionada a impressora e gravo no arquivo ini mais quando entro na tela o combobox volta em branco como se não tivesse selecionado... gostaria que quando selecionado ao volta a tela parece o item selecionado fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de saber como colocar imagem lado a lado em fundo de tela? fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de saber como colocar imagem lado a lado em fundo de tela? fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de saber como trocar em execução a imagem do fundo da tela... ACTIVATE WINDOW oWnd ON INIT(oWnd:Maximize(), aRec:=GetWndRect(oWnd:hWnd)) On Paint Fundo(oWnd, hDC, oImgFundo, oImgLogo ) FUNCTION FUNDO( oWndMain, hDC, oImg, oImg1) LOCAL nTop := (oWndMain:nHeight()-oImg:nHeight) / 0 LOCAL nLeft := (oWndMain:nWidth()-oImg:nWidth ) / 2 oWndMain:oWndClient:bPainted := { | hDC | PalBmpDraw( hDC, 110, nLeft, ; oImg:hBitmap, ; oImg:hPalette,,)} /* maximizado ; oWndMain:oWndClient:nWidth, ; oWndMain:oWndClient:nHeight ) } */ * DrawMasked( hDC, oImg1:hBitmap, nTop, nLeft) RETURN NIL id=code>id=code>baseando nesse assunto ai como faço para trocar o arquivo de iimagem do fundo em tempo de execução fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

gostaria de saber como trocar em execução a imagem do fundo da tela... ACTIVATE WINDOW oWnd ON INIT(oWnd:Maximize(), aRec:=GetWndRect(oWnd:hWnd)) On Paint Fundo(oWnd, hDC, oImgFundo, oImgLogo ) FUNCTION FUNDO( oWndMain, hDC, oImg, oImg1) LOCAL nTop := (oWndMain:nHeight()-oImg:nHeight) / 0 LOCAL nLeft := (oWndMain:nWidth()-oImg:nWidth ) / 2 oWndMain:oWndClient:bPainted := { | hDC | PalBmpDraw( hDC, 110, nLeft, ; oImg:hBitmap, ; oImg:hPalette,,)} /* maximizado ; oWndMain:oWndClient:nWidth, ; oWndMain:oWndClient:nHeight ) } */ * DrawMasked( hDC, oImg1:hBitmap, nTop, nLeft) RETURN NIL id=code>id=code>baseando nesse assunto ai como faço para trocar o arquivo de iimagem do fundo em tempo de execução fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Ao dar enter num botão ele executa a instrução mais não vai para o campo do xsetfocus(v_nome1) ou mesmos para o v_nome1 : setfocus() mas se for pressionada a barra de espaço ele executa se for clickado tambem lembrando que o botão esta selecionado.... fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Ao dar enter num botão ele executa a instrução mais não vai para o campo do xsetfocus(v_nome1) ou mesmos para o v_nome1 : setfocus() mas se for pressionada a barra de espaço ele executa se for clickado tambem lembrando que o botão esta selecionado.... fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Gostaria de saber se tem possibilidade de texto deslizante na ribbonbar.... Se não tem um texto simples com capacidade fonte maior meu exemplo aqui DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Menu Bar"; HEIGHT 130 TOPMARGIN 25 // Vendas ADD GROUP oGr01 RIBBON oRBar TO OPTION 1 PROMPT "Cadastro" width 480 BITMAP "metal.bmp" @ 10, 10 ADD BUTTON oBtn01 GROUP oGr01 BITMAP "print.BMP" ; prompt "Arquivos"; POPUP MENU BuildArquivo(); SIZE 85, 62; message "Menu de cadastro!" @ 10, 102 ADD BUTTON oBtn02 GROUP oGr01 BITMAP "print.BMP" ; prompt "Movimentação"; POPUP MENU BuildMovimento(); SIZE 85, 62; message "Menu de movimento!" @ 10, 192 ADD BUTTON oBtn03 GROUP oGr01 BITMAP "print.BMP" ; prompt "Contas"; POPUP MENU BuildContas(); SIZE 85, 62; message "Menu de contas!" @ 10, 282 ADD BUTTON oBtn04 GROUP oGr01 BITMAP "print.BMP" ; prompt "Financeiro"; POPUP MENU BuildFinanceiro(); SIZE 85, 62; message "Menu do financeiro!" @ 10, 372 ADD BUTTON oBtn05 GROUP oGr01 BITMAP "print.BMP" ; prompt "Esporádicos"; POPUP MENU BuildEsporadico(); SIZE 85, 62; message "Menu Esporádico!" ADD GROUP oGr02 RIBBON oRBar TO OPTION 1 PROMPT "Acesso Rápido" WIDTH 200 BITMAP "iron.bmp" @ 10, 10 ADD BUTTON oBtn51 GROUP oGr02 BITMAP "coin.BMP" ; SIZE 85, 62 PROMPT "Clientes" ; message "Cadastro de Clientes"; action( ent_abada() ) @ 10, 102 ADD BUTTON oBtn07 GROUP oGr02 BITMAP "print.BMP" ; prompt "Movimentos"; POPUP MENU BuildMoviment(); SIZE 85, 62; message "Menu Movimentos!" ADD GROUP oGr03 RIBBON oRBar TO OPTION 1 PROMPT "Sair" width 100 // BITMAP "..\bitmap\fivetech.bmp" @ 10, 10 ADD BUTTON oBtn08 GROUP oGr03 BITMAP "quit.BMP" ; SIZE 85,62 action( oWnd:End()) ADD GROUP oGr04 RIBBON oRBar TO OPTION 1 width 563 // BITMAP "..\bitmap\fivetech.bmp" @ 10, 10 ADD BUTTON oBtn09 GROUP oGr04; SIZE 300, 62 PROMPT n_filia n_filial é uma variavel texto mais nao esta aparecendo id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Gostaria de saber se tem possibilidade de texto deslizante na ribbonbar.... Se não tem um texto simples com capacidade fonte maior meu exemplo aqui DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Menu Bar"; HEIGHT 130 TOPMARGIN 25 // Vendas ADD GROUP oGr01 RIBBON oRBar TO OPTION 1 PROMPT "Cadastro" width 480 BITMAP "metal.bmp" @ 10, 10 ADD BUTTON oBtn01 GROUP oGr01 BITMAP "print.BMP" ; prompt "Arquivos"; POPUP MENU BuildArquivo(); SIZE 85, 62; message "Menu de cadastro!" @ 10, 102 ADD BUTTON oBtn02 GROUP oGr01 BITMAP "print.BMP" ; prompt "Movimentação"; POPUP MENU BuildMovimento(); SIZE 85, 62; message "Menu de movimento!" @ 10, 192 ADD BUTTON oBtn03 GROUP oGr01 BITMAP "print.BMP" ; prompt "Contas"; POPUP MENU BuildContas(); SIZE 85, 62; message "Menu de contas!" @ 10, 282 ADD BUTTON oBtn04 GROUP oGr01 BITMAP "print.BMP" ; prompt "Financeiro"; POPUP MENU BuildFinanceiro(); SIZE 85, 62; message "Menu do financeiro!" @ 10, 372 ADD BUTTON oBtn05 GROUP oGr01 BITMAP "print.BMP" ; prompt "Esporádicos"; POPUP MENU BuildEsporadico(); SIZE 85, 62; message "Menu Esporádico!" ADD GROUP oGr02 RIBBON oRBar TO OPTION 1 PROMPT "Acesso Rápido" WIDTH 200 BITMAP "iron.bmp" @ 10, 10 ADD BUTTON oBtn51 GROUP oGr02 BITMAP "coin.BMP" ; SIZE 85, 62 PROMPT "Clientes" ; message "Cadastro de Clientes"; action( ent_abada() ) @ 10, 102 ADD BUTTON oBtn07 GROUP oGr02 BITMAP "print.BMP" ; prompt "Movimentos"; POPUP MENU BuildMoviment(); SIZE 85, 62; message "Menu Movimentos!" ADD GROUP oGr03 RIBBON oRBar TO OPTION 1 PROMPT "Sair" width 100 // BITMAP "..\bitmap\fivetech.bmp" @ 10, 10 ADD BUTTON oBtn08 GROUP oGr03 BITMAP "quit.BMP" ; SIZE 85,62 action( oWnd:End()) ADD GROUP oGr04 RIBBON oRBar TO OPTION 1 width 563 // BITMAP "..\bitmap\fivetech.bmp" @ 10, 10 ADD BUTTON oBtn09 GROUP oGr04; SIZE 300, 62 PROMPT n_filia n_filial é uma variavel texto mais nao esta aparecendo id=code>id=code>fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Deu certo... o Erro era que tinha colocado a variavel ownd como local e nao estava levando a propriedade para a função separada.... Estou conseguindo mudar a cor do fundo normalmente! mas tenho uma imagem.bmp que tambem modifica junto com a cor distorcendo a imagem.... fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

meu codigo ai para ser analisado: DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10 // BOLD DEFINE CURSOR oCursor HAND DEFINE BRUSH oBrush1 COLOR nRGB(210,210,255) //nRGB(210,210,255) // ,nRGB(255,255,255) DEFINE WINDOW oWnd; TITLE "Empresa:"+ IIF(!EMPTY(nEmp)," - "+ALLTRIM(nEmp),"") ; + " - " + FWVERSION from 1,1 to 600,600; pixel MDI MENU oMenu brush oBrush1 DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Menu Bar"; HEIGHT 130 TOPMARGIN 25 rotina para alterar o fundo da cor da tela principal function SelColor() //local oBrush private nCor := 0 obrush1:End() nCor:= ChooseColor(nCor) DEFINE BRUSH oBrush1 COLOR nRGB(nRgbRed(nCor),nRgbGreen(nCor),nRgbBlue(nCor)) RgbRed(nCor),nRgbGreen(nCor),nRgbBlue(nCor) ) oWnd:oWndClient:SetBrush(oBrush1) return nil e continua dando erro de propriedade nao exite fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

sim kapiaba mais da tela principal o fundo da tela principal; a window janela principal fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

continua erro method NCLRTEXT no exported! não conseguir mudar a cor do fundo ainda estou usando o menu ribbonbar fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

è um exemplo! Mais ta dando erro! e não conseguir! Obrigado pela postagem voou testar agora fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

function SelColor() //local oBrush private nCor := 0 obrush1:End() nCor:= ChooseColor(nCor) DEFINE BRUSH oBrush1 COLOR nRGB(nRgbRed(nCor),nRgbGreen(nCor),nRgbBlue(nCor)) //oWnd:oBrush := obrush1 //oWnd:Refresh() //DEFINE BRUSH oBrush1 COLOR nRGB(255,255,255) /* if Upper( oWnd:ClassName() ) == "TWINDOW" oWnd:SetBrush( oBrush ) else oWnd:SetBrush( oBrush1 ) // dar erro tambem endif */ //oWnd:SetColor( oBrush1 ) //RELEASE BRUSH oBrush1 //oWnd:Refresh() //SET BRUSH OF oWnd TO oBrush1 essa propriedade dar erro return nil fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

function SelColor() //local oBrush private nCor := 0 obrush1:End() nCor:= ChooseColor(nCor) DEFINE BRUSH oBrush1 COLOR nRGB(nRgbRed(nCor),nRgbGreen(nCor),nRgbBlue(nCor)) //oWnd:oBrush := obrush1 //oWnd:Refresh() //DEFINE BRUSH oBrush1 COLOR nRGB(255,255,255) /* if Upper( oWnd:ClassName() ) == "TWINDOW" oWnd:SetBrush( oBrush ) else oWnd:SetBrush( oBrush1 ) // dar erro tambem endif */ //oWnd:SetColor( oBrush1 ) //RELEASE BRUSH oBrush1 //oWnd:Refresh() //SET BRUSH OF oWnd TO oBrush1 essa propriedade dar erro return nil fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Gostaria de participar da cooperativa... Lembrando que toda cooperativa tem ata, cnpj, eleição da diretoria; Para cada cooperador uma taxa mensal para poder usufruir do que ela oferece; Um software multi para atender várias ramificações? Se Deus permitir estarei dentro; fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

informar para mim o email do JCleoner fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

informar para mim o email do JCleoner fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

eu coloque a banda master details e depois a banda detailis eu coloquei a quantidade de registro em 38 tava 0 e ai apareceu ... agora surgiu uma duvida... precisa realmente informar a quantidade de registro para a banda details ou mestre ... ou isso é por pagina fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Já esta assim setado; mais não aparece o detailis fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Estou criando pela primeira vez um relatorio fast report coloco a banda Master Data; E coloco os campos da tabela ao visualizar o relatorio não aparece os dados somente o titulo e o rodape o detailhe não aparece? fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Estou criando pela primeira vez um relatorio fast report coloco a banda Master Data; E coloco os campos da tabela ao visualizar o relatorio não aparece os dados somente o titulo e o rodape o detailhe não aparece? fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;

Quero parabenizar ao Vitor e aos demais organizadores pelo congresso, mesmo pela dificuldade que se foi percebido neste forum, foi realizado com sucesso! Sentir a falta da presença de Kleber Derick de São Luis do Ma. Kapiaba, mas tudo bem... Sobre as palestras gostaria de saber o endereço eletronico da pagina que o gilme falou de acesso remoto pois eu filmei a palestra e infelizmente a fimaldora deu pau hoje . Sobre a palestra de Ze Carlos sobre a fiveweb otima e essa semana quero adquirir ela e com o gilme o fast report parabens pela organização... fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles programadorcp80@hotmail.com.br ;