Orlando FMC

Muito obrigado, Ariston. Funcionou certinho.

.

Senhores, Para abrir uma imagem ".bmp" ou ".jpg" estou usando a linha: WINEXEC("MsPaint " + "C:\Users\Orlando\Pictures\Engracados Interessantes\nome_do_arquivo.jpg")} Observem que existe um espaço no nome da pasta "Engracados Interessantes". É aí que está o problema: quando tem espaço no nome da pasta, não consigo abrir, e a mensagem vem assim: "C:\Users\Orlando\Pictures\Engracados.png não foi encontrado." Se eu retirar o espaço no nome da pasta ("EngracadosInteressantes"), e mudar a linha de programa para: WINEXEC("MsPaint " + "C:\Users\Orlando\Pictures\EngracadosInteressantes\nome_do_arquivo.jpg")} aí funciona normal. Obs.: O nome do arquivo também não pode conter espaços. Tem jeito de resolver isto sem retirar o espaço? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Estou usando uma função, com uma Dialog exclusiva para o Dynamic Say, para eliminar os borrões. Se alguém quiser e puder melhorar isto, será ótimo. // Teste da DYNAMIC SAY sem borrar // Orlando F Martins da Costa - Belo Horizonte/MG DEFINE DIALOG dCD NAME "teste" dCD:LHELPICON := .F. DEFINE FONT ofCalibri20b NAME "Calibri" SIZE 00,-20 bold // UNDERLINE ... ... ACTIVATE DIALOG dCD ON INIT(DYNAMIC_SAY(458, 714, 200, 30 ,"TEXTO ", "H" , "oFld:aDialogs[1]" , 98, 12, "ofCalibri20b","nRGB(000,000,255)","nRGB(212,208,200)" )) FUNCTION DYNAMIC_SAY(nY, nX, nComprWin, nAltWin, cTexto, cSentidoDeRolagem, cDialog, nComprTxt, nAltTxt, cFonte, cCor1, cCor2) DEFINE DIALOG dDynamicSay FROM nY ,nX TO nY+nAltWin , nX+nComprWin PIXEL OF &cDialog STYLE WS_POPUP // COLOR ("N/R") // color ("N/W") @ 000 ,000 to dDynamicSay:nHeight()/2-1, dDynamicSay:nWidth()/2-1 PIXEL // retangulo IF cSentidoDeRolagem="H" @ 03,01 DYNAMIC SAY OS1 VAR cTexto OF dDynamicSay HORIZONTAL SCROLL WRAP SHADED SIZE nComprTxt, nAltTxt PIXEL FONT &cFonte COLOR &cCor1, &cCor2 ELSE @ 03,01 DYNAMIC SAY OS1 VAR cTexto OF dDynamicSay VERTICAL SCROLL WRAP SHADED SIZE nComprTxt, nAltTxt PIXEL FONT &cFonte COLOR &cCor1, &cCor2 ENDIF ACTIVATE DIALOG dDynamicSay noWait Return .t. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 28/12/2012 12:20:51 Editado por - orlandof on 28/12/2012 14:49:26

Estou usando uma função, com uma Dialog exclusiva para o Dynamic Say, para eliminar os borrões. Se alguém quiser e puder melhorar isto, será ótimo. // Teste da DYNAMIC SAY sem borrar // Orlando F Martins da Costa - Belo Horizonte/MG DEFINE DIALOG dCD NAME "teste" dCD:LHELPICON := .F. DEFINE FONT ofCalibri20b NAME "Calibri" SIZE 00,-20 bold // UNDERLINE ... ... ACTIVATE DIALOG dCD ON INIT(DYNAMIC_SAY(458, 714, 200, 30 ,"TEXTO ", "H" , "oFld:aDialogs[1]" , 98, 12, "ofCalibri20b","nRGB(000,000,255)","nRGB(212,208,200)" )) FUNCTION DYNAMIC_SAY(nY, nX, nComprWin, nAltWin, cTexto, cSentidoDeRolagem, cDialog, nComprTxt, nAltTxt, cFonte, cCor1, cCor2) DEFINE DIALOG dDynamicSay FROM nY ,nX TO nY+nAltWin , nX+nComprWin PIXEL OF &cDialog STYLE WS_POPUP // COLOR ("N/R") // color ("N/W") @ 000 ,000 to dDynamicSay:nHeight()/2-1, dDynamicSay:nWidth()/2-1 PIXEL // retangulo IF cSentidoDeRolagem="H" @ 03,01 DYNAMIC SAY OS1 VAR cTexto OF dDynamicSay HORIZONTAL SCROLL WRAP SHADED SIZE nComprTxt, nAltTxt PIXEL FONT &cFonte COLOR &cCor1, &cCor2 ELSE @ 03,01 DYNAMIC SAY OS1 VAR cTexto OF dDynamicSay VERTICAL SCROLL WRAP SHADED SIZE nComprTxt, nAltTxt PIXEL FONT &cFonte COLOR &cCor1, &cCor2 ENDIF ACTIVATE DIALOG dDynamicSay noWait Return .t. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 28/12/2012 12:20:51 Editado por - orlandof on 28/12/2012 14:49:26

Obrigado Capiaba. Funcionou "certim"!!! Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Alguém se habilita? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Alguém pode me mandar este arquivo (DSay.ch)? O Ronaldo Marins ja arranjou p/ o Kleyton. Obrigado Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 18/12/2012 17:01:17 Editado por - orlandof on 18/12/2012 21:25:27 Editado por - orlandof on 18/12/2012 21:26:02 Editado por - orlandof on 18/12/2012 21:26:25 Editado por - orlandof on 23/12/2012 10:48:22

Alguém pode me mandar este arquivo (DSay.ch)? O Ronaldo Marins ja arranjou p/ o Kleyton. Obrigado Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 18/12/2012 17:01:17 Editado por - orlandof on 18/12/2012 21:25:27 Editado por - orlandof on 18/12/2012 21:26:02 Editado por - orlandof on 18/12/2012 21:26:25 Editado por - orlandof on 23/12/2012 10:48:22

Eu utilizo o .ini intensamente, sem problemas. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

IF AT("@",cEmail)<>0 ? "ok" ELSE ? "Inválido" ENDIF Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 03/08/2012 09:24:04 Editado por - orlandof on 03/08/2012 09:25:38 Editado por - orlandof on 03/08/2012 10:58:56

citação:Orlando É só você alterar a classe FGET da pasta source\classes E adicionar a classe ao seu projeto. PS.: O Gilmer não recomenda essas alterações nas classes nativas da FiveWim e sim criar uma extensão da classe. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql id=quote>id=quote>Desculpe João, mas como "criar uma extensão da classe"? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, Usando a FGet, menu popup, acionado pelo botão direito do mouse, opção PRINT: Tem jeito de pré-estabelecer margem esquerda/direita para o texto a ser impresso? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, Usando a FGet, menu popup, acionado pelo botão direito do mouse, opção PRINT: Tem jeito de pré-estabelecer margem esquerda/direita para o texto a ser impresso? Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação: cnTexto := GtfToTxt(Ptexto)

Mestres, Estou usando pela primeira vez a FGET: REDEFINE FORMAT GET oFget VAR _07_TEXTO_____ ID 4002 OF oFld:aDialogs[7] ; VALID((RLOCK() , TEXTOS->TEXTO_____:=oFget:cText , UNLOCK()), .t. ) É possivel extrair, para uma variável, o conteúdo de oFget (_07_TEXTO_____), excluindo-se os caracteres de controle? Os caracteres de controle são necessários (fontes, cores, etc) dentro do FGet, mas, preciso fazer uma pesquisa de caracteres numéricos dentro do texto, e os caracteres de controle estão atrapalhando. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 01/08/2012 08:34:01 Editado por - orlandof on 01/08/2012 08:34:35

Mestres, Estou usando pela primeira vez a FGET: REDEFINE FORMAT GET oFget VAR _07_TEXTO_____ ID 4002 OF oFld:aDialogs[7] ; VALID((RLOCK() , TEXTOS->TEXTO_____:=oFget:cText , UNLOCK()), .t. ) É possivel extrair, para uma variável, o conteúdo de oFget (_07_TEXTO_____), excluindo-se os caracteres de controle? Os caracteres de controle são necessários (fontes, cores, etc) dentro do FGet, mas, preciso fazer uma pesquisa de caracteres numéricos dentro do texto, e os caracteres de controle estão atrapalhando. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 01/08/2012 08:34:01 Editado por - orlandof on 01/08/2012 08:34:35

citação:Orlando oWnd:bKeyDown:={|nKey| iif(nKey=VK_F2, MsgInfo("teste"),)} Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD UltraEdit xDev MySql MS-Sql id=quote>id=quote>João, Preciso que o conteudo da informação seja introduzido no campo memo. Isso eu consegui, porém não com os caracteres especiais: < > & $ , etc. Porém, acabei de encontrar a solução. Testei e funcionou assim: oGet:Paste( " ! # $ % & ( ) * + - . / : ; < = > ? @ ^ _ { | } ~ ó ú ½ " ) Mesmo assim, obrigado João. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, No código abaixo, TESTKEY.PRG do samples, por que os caracteres especiais " < > | * = - ", após a expressão "Hello" não são apresentados no campo GET, ao pressionar o BUTTON "&SendKeys"? Tem alguma outra forma de usar estes caracteres numa função como esta? Preciso introduzir num campo texto (FGET - FORMAT GET) algo assim: "", atravez do pressionamento de uma tecla de função, para que depois, esta sequencia seja substituida pelo conteudo campo NOME do registro do arquivo em uso. // TESTKEY.PRG do samples // Testing Keyboard management #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oGet local cName := "This is a test" SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } ) DEFINE WINDOW oWnd TITLE "Testing Keys" @ 3, 2 GET oGet VAR cName SIZE 120, 25 OF oWnd // READONLY // try READONLY @ 1, 2 SAY "Press 'F2' key, please" SIZE 150, 22 OF oWnd @ 6, 4 BUTTON "&SendKeys" SIZE 90, 15 ; ACTION ( oGet:SetFocus(), __Keyboard( "Hello < > | * = - " ),; MsgInfo( LastKey() ) ) ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 30/07/2012 12:08:07 Editado por - orlandof on 30/07/2012 12:28:28

Mestres, No código abaixo, TESTKEY.PRG do samples, por que os caracteres especiais " < > | * = - ", após a expressão "Hello" não são apresentados no campo GET, ao pressionar o BUTTON "&SendKeys"? Tem alguma outra forma de usar estes caracteres numa função como esta? Preciso introduzir num campo texto (FGET - FORMAT GET) algo assim: "", atravez do pressionamento de uma tecla de função, para que depois, esta sequencia seja substituida pelo conteudo campo NOME do registro do arquivo em uso. // TESTKEY.PRG do samples // Testing Keyboard management #include "FiveWin.ch" static oWnd //----------------------------------------------------------------------------// function Main() local oGet local cName := "This is a test" SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } ) DEFINE WINDOW oWnd TITLE "Testing Keys" @ 3, 2 GET oGet VAR cName SIZE 120, 25 OF oWnd // READONLY // try READONLY @ 1, 2 SAY "Press 'F2' key, please" SIZE 150, 22 OF oWnd @ 6, 4 BUTTON "&SendKeys" SIZE 90, 15 ; ACTION ( oGet:SetFocus(), __Keyboard( "Hello < > | * = - " ),; MsgInfo( LastKey() ) ) ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------// Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG Editado por - orlandof on 30/07/2012 12:08:07 Editado por - orlandof on 30/07/2012 12:28:28

Arthur, Na pasta SAMPLES, tem muita coisa para aprender. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, Ao tentar usar o SENSITIVE SAY, ocorreu o seguinte erro ao rodar o programa: "C:\ToLib\SSay.c' was compiled into version 4. This version of xHarbour expects version 10" Estou usando as libs: SSAY32H.LIB de 19/05/2003 e SSAY32X.LIB de 19/05/2003 Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

Mestres, Ao tentar usar o SENSITIVE SAY, ocorreu o seguinte erro ao rodar o programa: "C:\ToLib\SSay.c' was compiled into version 4. This version of xHarbour expects version 10" Estou usando as libs: SSAY32H.LIB de 19/05/2003 e SSAY32X.LIB de 19/05/2003 Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

citação:São recursos da classe do proprio FiveWin, no caso essa tela eu fiz por RESOURCE, ai tem a opção no PELLES de Alignment ( Alinhamento ). Att. Lailton Fernando Mariano http://www.lailton.com.br | Mail/Msn: xHarbour 1.2.1 | Harbour 3.2.0 | Fivewin 12.4 | HwGui | Borland 5.8.2 | FiveWeb | MySQL id=quote>id=quote>Ok, Lailton. Obrigado mais uma vez. Tópico resolvido para mim... Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG

E como faço para fazer esses arranjos que você colocou aí? usando bmp e posicionando o texto nos 4 cantos. Orlando F Martins da Costa Windows 7 - FW [x]Harbour 11.10 - WorkShop 4.5 - PellesC orlandofmc@yahoo.com.br Belo Horizonte - MG