Cor MsgMeter()

[betovsp]

Olá Pessoal,

tem como colocar, ou mudar as cores desta função???

Abraços.

Beto

betovsp@hotmail.com

Ribeirão Preto/SP

[karinha]

// FiveWin MsgMeter() Funcao Simples - Original de TESTMMT.PRG \fw..\samples

// Alterado por: João Santos em: 04/06/2004 - karinhannah@ubbi.com.br

// Veja, que eu troquei a Variável oText, por cText... Assim funciona.

#Include "FiveWin.ch"

//----------------------------------------------------------------------------//

Function Main()

SET _3DLOOK ON

USE Customer // Está em: \FW..\SAMPLES

MsgMeter( { | oMeter, cText, oDlg, lEnd | ;

BuildIndex( oMeter, cText, oDlg, @lEnd ) },;

"Construindo o Indice..." )

USE

Return Nil

//----------------------------------------------------------------------------//

Function BuildIndex( oMeter, cText, oDlg, lEnd )

FIELD Last

oMeter:nTotal = RecCount()

oMeter:cText := ( OemToAnsi( "Executando Indexa‡Æo " ) )

oMeter:nClrBar := CLR_HRED // Aqui Troca a cor...

INDEX ON Last TO CustLast ;

EVAL ( oMeter:Set( RecNo() ), SysRefresh(), ! lEnd )

Return Nil

//----------------------------------------------------------------------------//

/*

Outra solução, será copiar a função MSGMETER.PRG de: \FW..\SOURCE\FUNCTION\MSGMETER.PRG

Altere-a a gosto, e incorpore ao seu *.RMK e *.LNK - Recompile, Ficará um Show().

Abraços. Dudas, tamos ae!

*/

// PRESTIGIE O SEGUNDO ENCONTRO DE FIVEWINNERS NO BRASIL - Breve, Neste CHANNEL!

// Maiores informações com: Vagner Wirts - vwirts@ig.com.br ou

// com o Sr. Gilmer (Virtual Objects) - gilmer@fivewin.com.br

I LOVE FIVEWIN .AND. WORKSHOP.EXE The Best of World! O melhor Mesmo! Os dois... hehehe.

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[betovsp]

Valeu João. Tudo ok.

Eu não participei do primeiro encontro, mas acho que deve ser feito e aprovado os dois dias.

Abraços.

Beto.

betovsp@hotmail.com

Ribeirão Preto/SP