Orlando FMC Posted December 28, 2012 Report Share Posted December 28, 2012 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 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted December 28, 2012 Author Report Share Posted December 28, 2012 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 Quote Link to comment Share on other sites More sharing options...
Eroni Posted December 29, 2012 Report Share Posted December 29, 2012 Amigo, seu fonte está muito incompleto, ou entao faltando arquivo de cabecalho especifico, assim nao tem nem como testar. (48) 3045-1575 xHarbour, FWH & MySql Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted December 31, 2012 Report Share Posted December 31, 2012 Boa tarde.. tb. nao entendi mas vai uma dica.. tente alterar o Size do controle .. Abraços Feliz ano Novo...id=size4>id=blue> 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...
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.