sig_gilberto Posted September 30, 2008 Report Share Posted September 30, 2008 Olá Amigos... Há alguma maneira de trocar a côr ou mesmo a fonte/tamanho das mensagem exibidas num, por exemplo, MSGSTOP() ? If !Found() MsgStop("atenção em verde","arquivo não encontrado em vermelho..") Endif ...e por ai vai e tenho dito!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted September 30, 2008 Author Report Share Posted September 30, 2008 Olá Amigos... Há alguma maneira de trocar a côr ou mesmo a fonte/tamanho das mensagem exibidas num, por exemplo, MSGSTOP() ? If !Found() MsgStop("atenção em verde","arquivo não encontrado em vermelho..") Endif ...e por ai vai e tenho dito!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 30, 2008 Report Share Posted September 30, 2008 Não lembro se troca a cor, mas é uma idéia: http://www.fivewin.com.br/exibedicas.asp?id=296 Outra, seria voce alterar o FONTE EM C:, ESTà NO DIRETORIO DO FIVE. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted September 30, 2008 Author Report Share Posted September 30, 2008 Não.....não resolveu...+Valeu!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 30, 2008 Report Share Posted September 30, 2008 C:\FWH\SOURCE\FUNCTION\MSG*.*, VEJA OS .C, Dà PARA ALTERAR A COR E INCORPORAR AO SEU PROJETO. PELO MENOS MSGTOOLS.C, tem definição de cores, nos demais, creio, falta definir... Basta pedir a alguem que manje de C. Saudações. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vagner Posted September 30, 2008 Report Share Posted September 30, 2008 Olá, O modo mais fácil de se fazer isso é criar sua própria função com o mesmo nome e parâmetros Func MsgStop(cpar1,cpar2) Define dialog ... ... Activate dialog ... Center Retu(Nil) id=code>id=code>Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted September 30, 2008 Report Share Posted September 30, 2008 citação:Olá Amigos... Há alguma maneira de trocar a côr ou mesmo a fonte/tamanho das mensagem exibidas num, por exemplo, MSGSTOP() ? If !Found() MsgStop("atenção em verde","arquivo não encontrado em vermelho..") Endif ...e por ai vai e tenho dito!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." id=quote>id=quote>A um tempo atraz também estava atraz dessa solução, ae para não perder tempo, criei uma dialog e fiz os tratamentos devidos ! ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\workshop\VSX Quote Link to comment Share on other sites More sharing options...
Theotokos Posted September 30, 2008 Report Share Posted September 30, 2008 citação: citação:Olá Amigos... Há alguma maneira de trocar a côr ou mesmo a fonte/tamanho das mensagem exibidas num, por exemplo, MSGSTOP() ? If !Found() MsgStop("atenção em verde","arquivo não encontrado em vermelho..") Endif ...e por ai vai e tenho dito!! ________________________ Gilberto Herminio Programador Pleno III Mogi das Cruzes-SP FWh8.05 + xHB 1.1.0-CVS + BBC 5.5.1 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." id=quote>id=quote>A um tempo atraz também estava atraz dessa solução, ae para não perder tempo, criei uma dialog e fiz os tratamentos devidos ! ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\workshop\VSX id=quote>id=quote>O Irmão, partilha conosco.... xHarbour + BCC55 + FiveWin + xDevStudio - Tentando Aprender com os Irmãos Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted September 30, 2008 Report Share Posted September 30, 2008 O que faço é o seguinte crio uma dialog e dentro dela coloco os controles (funções nos botões) No caso do msgYesNO() voce pode fazer _________________________________________ if My_msgYesNO()=.t. faça algo aqui endif *********************** func My_msgYesNO() vRet=.t. define dialog odlg redefine botomBMP obtn id 01; action ( ) redefine botomBMP obtn id 02; action ( ) activate dialog odlg return vRet id=code>id=code>Bom, descupem os erros pois acabei de bolar uma forma de substituir o msgYesno() ! ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\VSX Editado por - naruto uZumaki on 30/09/2008 23:45:47 Quote Link to comment Share on other sites More sharing options...
Guest johnson Posted September 30, 2008 Report Share Posted September 30, 2008 penso assim: nunca usar classe d terceiro, V.. SB.. tc. clase d terceiro soh uso a BmpGet #include "BmpGet.ch" mais logo quero atulizar fwh809 resolve isso Editado por - johnson on 30/09/2008 23:53:22 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 1, 2008 Report Share Posted October 1, 2008 citação: O que faço é o seguinte crio uma dialog e dentro dela coloco os controles (funções nos botões) No caso do msgYesNO() voce pode fazer _________________________________________ if My_msgYesNO()=.t. faça algo aqui endif *********************** func My_msgYesNO() vRet=.t. define dialog odlg redefine botomBMP obtn id 01; action ( ) redefine botomBMP obtn id 02; action ( ) activate dialog odlg return vRet id=code>id=code>Bom, descupem os erros pois acabei de bolar uma forma de substituir o msgYesno() ! ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com C:\Xharbour Free\fivewin 8.05\VSX Editado por - naruto uZumaki on 30/09/2008 23:45:47 id=quote>id=quote>Excelente Naruto. Boa idéia. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Yury Posted October 1, 2008 Report Share Posted October 1, 2008 olá, para criar ou alterar fontes, cores, bmps, icones para mensagem padrão dêem uma olhada na função: \SOURCE\FUNCTION\ALERT.PRG que vem junto com o FWH... utilizando o mesmo esquema desta função vc consegue criar do jeito que precisa... abraços Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 1, 2008 Report Share Posted October 1, 2008 Friend, não entendi??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Yury Posted October 1, 2008 Report Share Posted October 1, 2008 citação:Friend, não entendi??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>loira querida, (kkkkkkkkkk) a função ALERT.PRG na verdade cria um dialogo com mensagem, bitmap, botões, etc... do mesmo jeito que msgalert, msgyesno, msginfo... porém estas acima estão em C, e a alert está em FW, portanto em vez de vc alterar as funções que estão em C para mudar fonte, cor, etc... é mais fácil que vc faça uma função sua (como o Eder mostrou)... para fazer esta função sua, a função ALERT.PRG serve como uma boa base, visto que trata o dialogo para tamanhos de texto variáveis, ajustando o tamanho automaticamente... compreendeste, friend ? segue o código da função alert.prg #include "fivewin.ch" /* Standard icon resource IDs */ #define IDI_APPLICATION 32512 #define IDI_HAND 32513 #define IDI_QUESTION 32514 #define IDI_EXCLAMATION 32515 #define IDI_ASTERISK 32516 #define COLOR_BTNFACE 15 #ifdef __CLIPPER__ #define EM_SETSEL (WM_USER+1) #else #define EM_SETSEL 177 #endif #ifdef __CLIPPER__ #ifndef __C3__ function _Alert( cMsg, aOptions, cTitle, nDefault, xIcon ) #else function Alert( cMsg, aOptions, cTitle, nDefault, xIcon ) #endif #else function Alert( cMsg, aOptions, cTitle, nDefault, xIcon ) #endif Local oDlg, oFont DEFAULT cMsg := "Alert dialog box" ,; aOptions := {"&OK"} ,; cTitle := "Attention" ,; nDefault := 1 DEFINE FONT oFont NAME GetSysFont() SIZE NIL, -14 DEFINE DIALOG oDlg TITLE cTitle FONT oFont oDlg:Cargo := 0 oDlg:lHelpIcon := .f. ACTIVATE DIALOG oDlg ; ON INIT DlgInit(oDlg, oFont, cMsg, aOptions, cTitle, nDefault, xIcon) oFont:End() RETURN oDlg:Cargo //-----------------------------------------------------------------// STATIC FUNCTION DlgInit(oDlg, oFont, cMsg, aOptions, cTitle, nDefault, xIcon) Local oGet, oBtn, oIcon Local cSay, cLine Local nMaxWidth, nMaxHeight, nWidth, nHeight, nLines, nFor Local nBtnWidth, nBtnOffset, nBtnHeight, nBtnLength Local lHScroll, lVScroll if ValType( cMsg ) != "C" cMsg = cValToChar( cMsg ) endif cSay := "" nMaxWidth := 0 nMaxHeight := 0 nLines := MlCount(cMsg, 254) lHScroll := .f. lVScroll := .f. FOR nFor := 1 TO nLines cLine := Trim(Memoline(cMsg, 254, nFor)) cSay += cLine+CRLF nMaxHeight += oDlg:nGetChrHeight() nMaxWidth := Max(nMaxWidth, oDlg:GetWidth(cLine)+10) NEXT IF xIcon != Nil IF Valtype(xIcon) == "C" IF File(xIcon) @ 20/14, 18/8 ICON FILE xIcon OF oDlg ELSE @ 20/14, 18/8 ICON RESOURCE xIcon OF oDlg ENDIF ELSE @ 20/14, 18/8 ICON oIcon OF oDlg oIcon:hIcon := LoadIcon(0, xIcon) ENDIF ELSE @ 20/14, 18/8 ICON oIcon OF oDlg oIcon:hIcon := LoadIcon(0, IDI_EXCLAMATION) ENDIF nWidth := nMaxWidth nHeight := nMaxHeight if nHeight > 400 nHeight := 400 lVScroll := .t. endif if nWidth > 500 nWidth := 500 lHScroll := .t. lVScroll := .t. endif if lVScroll nHeight := Max(100, nHeight) endif DO CASE CASE lHScroll .and. lVScroll @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO; SIZE nWidth, nHeight PIXEL FONT oFont ; COLOR NIL, GetSysColor( COLOR_BTNFACE ) ; NOBORDER HSCROLL CASE lHScroll .and. !lVScroll @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO; SIZE nWidth, nHeight PIXEL FONT oFont ; COLOR NIL, GetSysColor( COLOR_BTNFACE ) ; NOBORDER HSCROLL NO VSCROLL CASE !lHScroll .and. lVScroll @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO; SIZE nWidth, nHeight PIXEL FONT oFont ; COLOR NIL, GetSysColor( COLOR_BTNFACE ) ; NOBORDER OTHERWISE @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO; SIZE nWidth, nHeight PIXEL FONT oFont ; COLOR NIL, GetSysColor( COLOR_BTNFACE ) ; NOBORDER NO VSCROLL END CASE oGet:bMMoved := {|| DestroyCaret()} oGet:bGotFocus := {|| PostMessage(oGet:hWnd, EM_SETSEL, 0, 0)} nMaxWidth := Max(nWidth + 80, oDlg:GetWidth(cTitle) + 80) nBtnWidth := 100 FOR nFor := 1 TO len(aOptions) nBtnWidth := Max(nBtnWidth, oDlg:GetWidth(aOptions[nFor])+50) NEXT nBtnHeight := Max(nHeight, 20) + 50 nMaxHeight := (oDlg:nGetChrHeight()*1.7) + nBtnHeight + 50 nBtnLength := (len(aOptions) * nBtnWidth) + ( (len(aOptions) + 2 ) * 7) if nBtnLength > nMaxWidth //nBtnWidth := (nMaxWidth - ((len(aOptions)+2)*7) ) / len(aOptions) nMaxWidth := nBtnLength + 10 endif nBtnOffset := (nMaxWidth - (len(aOptions)*nBtnWidth) - (len(aOptions)+2*7)) / 2 FOR nFor := 1 TO len(aOptions) @ nBtnHeight,; nBtnOffset + (nBtnWidth*(nFor-1)) + ((nFor-1)*7) ; BUTTON oBtn PROMPT aOptions[nFor] ; PIXEL SIZE nBtnWidth, oDlg:nGetChrHeight()*1.7 ; OF oDlg oBtn:bAction := GenBlock( oDlg, nFor) NEXT nFor if ++nDefault > len(oDlg:aControls) nDefault := 2 endif oDlg:bStart := {|| oDlg:aControls[nDefault]:SetFocus()} oDlg:Move(0,0,nMaxWidth, nMaxHeight) WndCenter(oDlg:hWnd) RETURN NIL //-----------------------------------------------------------------// STATIC FUNCTION GenBlock(oDlg, nElem); RETURN { || oDlg:Cargo := nElem, oDlg:End() } id=code>id=code>abraços Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 1, 2008 Report Share Posted October 1, 2008 Friend, Continuo Loira... hehehehehe. O que dizes, então, é que devo SUBSTITUIR UM MILHAO DE CODIGO QUE Jà ESTÃO COM os MsgInfo(), MsgStop(), MsgYesNo()POR MsgAlert()?? É isso, ou estou ficando, além de loira(JUMA), DOIDO??? Não me fez sentido... Explique!! Now(). Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Yury Posted October 1, 2008 Report Share Posted October 1, 2008 citação:O que dizes, então, é que devo SUBSTITUIR UM MILHAO DE CODIGO QUE Jà ESTÃO COM os MsgInfo(), MsgStop(), MsgYesNo()POR MsgAlert()?? É isso, ou estou ficando, além de loira(JUMA), DOIDO??? Não me fez sentido... Explique!! Now(). Abraços. id=quote>id=quote>não meu fio, oq quiz dizer é que quando quiseres uma mensagem diferenciada com outra cor de fonte, outro tamanho de fonte, outra bmp, etc, etc, etc, vc usuaria uma função feita por você mesmo, MsgKapiaba() por exemplo, em vez de usar as nativas... e para vc fazer esta função MsgKapiaba() vc usaria a função ALERT.PRG como base, veja bem, como base para desenvolver a sua função... captou ? desculpe se lhe confundi os (poucos) neurônios, huahuahuauahuah abraço Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 1, 2008 Report Share Posted October 1, 2008 citação: citação:O que dizes, então, é que devo SUBSTITUIR UM MILHAO DE CODIGO QUE Jà ESTÃO COM os MsgInfo(), MsgStop(), MsgYesNo()POR MsgAlert()?? É isso, ou estou ficando, além de loira(JUMA), DOIDO??? Não me fez sentido... Explique!! Now(). Abraços. id=quote>id=quote>não meu fio, oq quiz dizer é que quando quiseres uma mensagem diferenciada com outra cor de fonte, outro tamanho de fonte, outra bmp, etc, etc, etc, vc usuaria uma função feita por você mesmo, MsgKapiaba() por exemplo, em vez de usar as nativas... e para vc fazer esta função MsgKapiaba() vc usaria a função ALERT.PRG como base, veja bem, como base para desenvolver a sua função... captou ? desculpe se lhe confundi os (poucos) neurônios, huahuahuauahuah abraço Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say id=quote>id=quote>A TÃ... ENTENDI... VOU DEIXAR COMO ESTÃ, POIS ESTOU COM UMA PREGUIÇA DOS DIABOS... KKKKKKKKKKKKKK. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
vagner Posted October 1, 2008 Report Share Posted October 1, 2008 citação:Friend, Continuo Loira... hehehehehe. O que dizes, então, é que devo SUBSTITUIR UM MILHAO DE CODIGO QUE Jà ESTÃO COM os MsgInfo(), MsgStop(), MsgYesNo()POR MsgAlert()?? É isso, ou estou ficando, além de loira(JUMA), DOIDO??? Não me fez sentido... Explique!! Now(). Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Jão, Vc não precisa substituir no seu código, basta criar uma função, como essa do Alert.Prg, e colocar o nome de MSGSTOP() por exemplo, que irá substituir todos automaticamente , leia o post que eu coloquei mais acima Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
helio1361303486 Posted October 1, 2008 Report Share Posted October 1, 2008 No caso, se você desejar que todas as suas MsgInfo, msgAlert, Msgstop, sejam substituidas pelas que você fabricou, é só colocar no inicio das LIB no arquivo de compilação que o compilador pegará sempre o primeiro(suas novas msgs) e desprezará as originais. Dessa forma não será preciso alterar uma linha se quer nos fontes já feitos, quando não quiser mais as suas é só "quitar" as suas do arquivos de compilação. Hélio xHarbour/WS/PellesC Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 1, 2008 Report Share Posted October 1, 2008 citação: citação:Friend, Continuo Loira... hehehehehe. O que dizes, então, é que devo SUBSTITUIR UM MILHAO DE CODIGO QUE Jà ESTÃO COM os MsgInfo(), MsgStop(), MsgYesNo()POR MsgAlert()?? É isso, ou estou ficando, além de loira(JUMA), DOIDO??? Não me fez sentido... Explique!! Now(). Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Jão, Vc não precisa substituir no seu código, basta criar uma função, como essa do Alert.Prg, e colocar o nome de MSGSTOP() por exemplo, que irá substituir todos automaticamente , leia o post que eu coloquei mais acima Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>A TÃ... ENTENDI... VOU DEIXAR COMO ESTÃ, POIS ESTOU COM UMA PREGUIÇA DOS DIABOS... KKKKKKKKKKKKKK. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe 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.