Marcio de Oliveira

Bom dia gente, teriam como executar um programa dentro de uma janela ou dialog? se tiver como agradeco a Ajuda. Ex start imagem.... FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551+xDev+WinXP SP2.

Bom dia gente, teriam como executar um programa dentro de uma janela ou dialog? se tiver como agradeco a Ajuda. Ex start imagem.... FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551+xDev+WinXP SP2.

Valeu ai Kbelo, o Release oImage funfou. Obrigado! FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Boa tarde gente, estou com um problema estranho, eu abro uma dialog com uma imagem usando o IMAGE... ok, ela aparece normal, então essa dialog é fechada oDlg:End() eu tb coloco o oImage:End(), em seguinda eu criei outra dialog com a mesma imagem, só que ela não aparece! Cam:=Data->caminho DEFINE Dialog oWnd FROM 1,2 TO 31,98 TITLE "Dados do Banco" @ 1, 95 IMAGE oImage SIZE 280, 220 OF oWnd Pixel SCROLL oImage:LoadBmp( CAM ) oImage:Progress( .f. ) AjustaZoom(oImage,"S") @1,0 say " No. Banco: " @1,4 get oGet1 Var bc Picture "9999" Valid !Empty(bc) @1.9,0 Say " Agencia..: " @2,4 Get oGet2 Var Ag Picture "99999" Valid !Empty(Ag) @2.9,0 Say " Cidade...: " @3,4 Get oGet3 Var Cidade Picture "@!" Valid !Empty(Cidade) @3.7,0 Say " Estado...:" @4,4 Get oGet4 Var Est Picture "@!" Valid !Empty(Est) @2.9,10 Button "Ok" Size 18,13 Action(oWnd:End(),oImage:End()) ACTIVATE Dialog oWnd Center DEFINE Dialog oWnd FROM 1,2 TO 31,98 TITLE "Redigite os Dados do Banco" @ 1, 95 IMAGE oImage SIZE 280, 220 OF oWnd Pixel SCROLL oImage:LoadBmp( CAM ) oImage:Progress( .f. ) AjustaZoom(oImage,"S") @1,0 say " No. Banco: " @1,4 get oGet1 Var bc Picture "9999" Valid !Empty(bc) @1.9,0 Say " Agencia..: " @2,4 Get oGet2 Var Ag Picture "99999" Valid !Empty(Ag) @2.9,0 Say " Cidade...: " @3,4 Get oGet3 Var Cidade Picture "@!" Valid !Empty(Cidade) @3.7,0 Say " Estado...:" @4,4 Get oGet4 Var Est Picture "@!" Valid !Empty(Est) @2.9,10 Button "Ok" Size 18,13 Action oWnd:End() ACTIVATE Dialog oWnd Center Obs: Estou trabalhando com imagens BMP. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Boa tarde gente, estou com um problema estranho, eu abro uma dialog com uma imagem usando o IMAGE... ok, ela aparece normal, então essa dialog é fechada oDlg:End() eu tb coloco o oImage:End(), em seguinda eu criei outra dialog com a mesma imagem, só que ela não aparece! Cam:=Data->caminho DEFINE Dialog oWnd FROM 1,2 TO 31,98 TITLE "Dados do Banco" @ 1, 95 IMAGE oImage SIZE 280, 220 OF oWnd Pixel SCROLL oImage:LoadBmp( CAM ) oImage:Progress( .f. ) AjustaZoom(oImage,"S") @1,0 say " No. Banco: " @1,4 get oGet1 Var bc Picture "9999" Valid !Empty(bc) @1.9,0 Say " Agencia..: " @2,4 Get oGet2 Var Ag Picture "99999" Valid !Empty(Ag) @2.9,0 Say " Cidade...: " @3,4 Get oGet3 Var Cidade Picture "@!" Valid !Empty(Cidade) @3.7,0 Say " Estado...:" @4,4 Get oGet4 Var Est Picture "@!" Valid !Empty(Est) @2.9,10 Button "Ok" Size 18,13 Action(oWnd:End(),oImage:End()) ACTIVATE Dialog oWnd Center DEFINE Dialog oWnd FROM 1,2 TO 31,98 TITLE "Redigite os Dados do Banco" @ 1, 95 IMAGE oImage SIZE 280, 220 OF oWnd Pixel SCROLL oImage:LoadBmp( CAM ) oImage:Progress( .f. ) AjustaZoom(oImage,"S") @1,0 say " No. Banco: " @1,4 get oGet1 Var bc Picture "9999" Valid !Empty(bc) @1.9,0 Say " Agencia..: " @2,4 Get oGet2 Var Ag Picture "99999" Valid !Empty(Ag) @2.9,0 Say " Cidade...: " @3,4 Get oGet3 Var Cidade Picture "@!" Valid !Empty(Cidade) @3.7,0 Say " Estado...:" @4,4 Get oGet4 Var Est Picture "@!" Valid !Empty(Est) @2.9,10 Button "Ok" Size 18,13 Action oWnd:End() ACTIVATE Dialog oWnd Center Obs: Estou trabalhando com imagens BMP. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia gente, eu me lembro que no clipper tinha um comando pra nao aceitar em uma string espacamento duplo, tem como fazer isso no five. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia gente, eu me lembro que no clipper tinha um comando pra nao aceitar em uma string espacamento duplo, tem como fazer isso no five. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia, como faço para atribuir uma funcao a uma tecla, por ex: Tecla "-" Funcao Zoom, Sem que ela apareca no get. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia, como faço para atribuir uma funcao a uma tecla, por ex: Tecla "-" Funcao Zoom, Sem que ela apareca no get. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Valeu gente, resolvido desta forma: Function Conta(ct) local i,soma,peso,digito,numero,tamanho numero=alltrim(ct) tamanho=len(numero) soma=0 peso=2 for i = tamanho to 1 step -1 soma = soma + val(substr(numero,i,1))*peso peso=peso+1 if peso > 7 peso=2 endif next digito=mod(soma,11) digito = 11 - digito ??int(digito) return(int(digito),.t.) Lembrando que desta forma serve tanto pro Bradesco qto para CEF. Ok.. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Fiz como descrito acima, ele aparece o digito verificador na tela "?int(digito)", só que da um erro "Error BASE/1077 Argument Error: .NOT." Ct = Variavel que contem o numero da conta. Dv = Variavel para o digito Estou Fazendo Assim: Function Conta(Ct,dv) local i,soma,peso,digito,numero,tamanho numero=alltrim(ct) tamanho=len(numero) soma=0 peso=2 for i = tamanho to 1 step -1 soma = soma + val(substr(numero,i,1))*peso peso=peso+1 if peso > 7 peso=2 endif next digito=mod(soma,11) digito = 11 - digito dv:=Int(digito) return dv FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia Gente, alguem teria por acaso uma rotina pronta do Modulo 11 para banco? se tiver agradeço se puder me passar.Ok FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Bom dia Gente, alguem teria por acaso uma rotina pronta do Modulo 11 para banco? se tiver agradeço se puder me passar.Ok FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Assim funciona: DEFINE IMAGE oBmp FILE (caminho) OF oWnd oWnd:bPainted:={|hDC|PalBmpDraw(hDC,60,15,oBmp:hBitmap,700,500,650)} Só que qdo eu pulo um registro, ele deve mudar a imagem, e assumir a do novo caminho, ja tentei oBmp:Refresh() mas nao consegui ele fica sempre a primeira imagem na tela. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Coloquei as Dll´s no diretório, e #Include "Image.ch" no programa, mas nao funciona! FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Por favor gente me ajudem, estou fazendo da seguinte forma: DEFINE Dialog oDlg FROM 1,2 TO 43, 125 TITLE "Indexacao" @ 4, 1 IMAGE oBmp SIZE 450, 350 OF oDlg @ 0.25, 0.7 SAY "Ag" @ 1, 0.5 GET oGet VAR Agencia OF oDlg SIZE 20, 12 PICTURE "9999" @ 0.25,5.2 SAY "Conta" @ 1, 4 GET oGet VAR Conta OF oDlg SIZE 35, 12 Picture "99999999999" @ 0.25,12 SAY "Nome" OF oDlg Size 44,12 @ 1, 9 GET oGet VAR Nome OF oDlg SIZE 140, 12 Picture "@!" @ 0.25, 37 SAY "Valor" OF oDlg @ 1, 28 GET oGet VAR Valor OF oDlg SIZE 60, 12 PICTURE "@Z 99999999,99" ACTIVATE DIalog oDlg Center Return Só que a var oBmp ta definida com o caminho de uma imagem EX: "C:\IMAGEM\00000001.TIF", se eu coloco uma imagem em BMP,JPG etc.. ela aparece na Dialog, mas tiff eu nao to conseguindo, alguem pode me passar essa rotina com o FreeImage.dll, pq não sei como fazer... FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Por favor gente me ajudem, estou fazendo da seguinte forma: DEFINE Dialog oDlg FROM 1,2 TO 43, 125 TITLE "Indexacao" @ 4, 1 IMAGE oBmp SIZE 450, 350 OF oDlg @ 0.25, 0.7 SAY "Ag" @ 1, 0.5 GET oGet VAR Agencia OF oDlg SIZE 20, 12 PICTURE "9999" @ 0.25,5.2 SAY "Conta" @ 1, 4 GET oGet VAR Conta OF oDlg SIZE 35, 12 Picture "99999999999" @ 0.25,12 SAY "Nome" OF oDlg Size 44,12 @ 1, 9 GET oGet VAR Nome OF oDlg SIZE 140, 12 Picture "@!" @ 0.25, 37 SAY "Valor" OF oDlg @ 1, 28 GET oGet VAR Valor OF oDlg SIZE 60, 12 PICTURE "@Z 99999999,99" ACTIVATE DIalog oDlg Center Return Só que a var oBmp ta definida com o caminho de uma imagem EX: "C:\IMAGEM\00000001.TIF", se eu coloco uma imagem em BMP,JPG etc.. ela aparece na Dialog, mas tiff eu nao to conseguindo, alguem pode me passar essa rotina com o FreeImage.dll, pq não sei como fazer... FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Sim, exatamente como escrito acima, só que se vc colocar o SIZE, a imagem é salva de uma tamanho menor, eu gostaria de manter as propriedades da imagem. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Eu nao consigo colocar o texto na imagem TIFF, só na jpg ou bmp e ele nao salva a imagem no tamanho original. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Alguém sabe algum programa que insira texto na imagem via command line, tipo Advanced Batch Converter, eu tenho esse software, mas eu nao consigo usalo, ele tem a opcao que insere o texto na imagem, mas nao consigo a sintaxe correta! FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Desculpe, ai vai; function salvar(obmp) hBmp := WndBitmap( oBmp:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( "TESTE.TIF", hDib ) msginfo("a Imagem foi salva com sucesso !!") return .t. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Testei ambas e fucionaram, porem eu uso imagem no formato TIF, qdo mando salvar, ele sai do programa e nao grava nada! Esta neste formato; Static Function Visualiza(Caminho) LOCAL oBmp,oDlg, oBtn DEFINE DIALOG oDlg FROM 0,0 TO 24,80 TITLE (caminho) DEFINE IMAGE oBmp FILE (caminho) SIZE 100,100 OF oDlg Adjust @7,05 button obtn prompt "Salvar Imagem" size 100,25 Of oDlg Action Salvar(obmp) oDlg:bPainted:={|hDC|PalBmpDraw(hDC,0,0,oBmp:hBitmap,,,0)} oDlg:bPainted = { |hDC|PalBmpDraw(hDC,0,0,oBmp:hBitmap,,,0),TextOut( oDlg:hDC, 350,400, " MARCIO DE OLIVEIRA ") } ACTIVATE DIALOG oDlg CENTERED return NIL FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Valeu gente, vou testar ambas, depois posto aqui pra ver se deu certo, Muito obrigado a todos. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Boa noite a todos, gostaria de saber se existe um jeito de escrever um texto em cima de uma imagem, Ex: eu carrego a imagem na dialog e escrevo algum texto em cima dela, depois salvo a imagem com esse texto nela. é possível?, desde ja agradeco a atencao. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.

Boa noite a todos, gostaria de saber se existe um jeito de escrever um texto em cima de uma imagem, Ex: eu carrego a imagem na dialog e escrevo algum texto em cima dela, depois salvo a imagem com esse texto nela. é possível?, desde ja agradeco a atencao. FiveWin 2.6+Xharbour 0.99.4(Simplex)+Bcc551 WinXP SP2.