como fazer o METER, feito no Pellec C, com % ?

[gibaf]

ola a todos...

 

tenho um dialog feito no Pelles C, nesse dialog tem um Meter, mas nao esta mostrando a % ao ser executado...

 

ja usei o oMeter:lPercentage tanto pra .T. quanto pra .F. mas nao aparece o %

 

alguem poderia me ajudar, por favor ????

 

desde ja agradeco: MUITO OBRIGADO !!!

 

att

Gilberto

[Arthur Silvestre]

Eu uso assim: 

PROCEDURE CRIADBFF
   PUBLIC TTOTAL:=12
	PUBLIC OMETER
	PUBLIC TINDICE:=0
        TTEXT:=""
	DEFINE BRUSH  OBRUSH FILE CBMP+"\SLIDE2.BMP" ADJUST
	DEFINE DIALOG ODLGABRMETER RESOURCE "DLG_METER" BRUSH  OBRUSH 
		REDEFINE PROGRESS oMeter ID 4003 OF ODLGABRMETER UPDATE
		REDEFINE SAY OTEXT VAR TTEXT ID 4004 OF ODLGABRMETER TRANSPARENT
		
	ACTIVATE DIALOG ODLGABRMETER CENTERED NOWAIT 
	oMeter:SetRange( 0,TTOTAL )
        oMeter:SetStep( 1 ) 
        oMeter:SetPos( TINDICE )
	TINDICE++;oMeter:SetPos(TINDICE);oMeter:Refresh()
	CRIA_ARQ1( OMETER, OTEXT, ODLGABRMETER )
RETURN

 

e no meio do caminhoa vc vai repetindo o 'TINDICE++;oMeter:SetPos(TINDICE);oMeter:Refresh()'

[gibaf]

obrigado  por responder...

 

a regua do meu meter processa, soh nao aparece o % do processamento... tenho outros meter tambem na app, mas feito por @, esse q estou precisando ajuda eh feito no pelles, pensei q fosse por alguma coisa nesse sentido...

 

mas, aparentemente, esta como o seu, soh q nao aparece o % do processamento (a regua avanca, mas sem o % do processamento)

 

se alguem mais puder me ajudar, fico agradecido

 

att

Gilberto

[MatheusFarias]

Como voce usa seu meter ? atraves do msgmeter , redefine , ou com @ ? uma dica é voce debugar o ? oMeter:lPercentage porque assim voce vai consegui ver a situação que está. na classe tmeter no \fwh\sources\classes\meter.prg contem o lPercentage sendo default .f. 

[kapiaba]

Eu faço assim e funciona normal:

 

// ARQUIVO.RC

 

REINDEXAR DIALOG 107, 53, 270, 217

STYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME

CAPTION "Reindexar/Organizar Bancos de Dados-Obrigatório Desativar os Terminais."

FONT 10, "MS Serif"

 

{

 CONTROL "TMeter", 50, "TMeter", WS_CHILD | WS_VISIBLE, 69, 26, 190, 10

 CONTROL "TMeter", 51, "TMeter", WS_CHILD | WS_VISIBLE, 69, 37, 190, 10

 CONTROL "TMeter", 52, "TMeter", WS_CHILD | WS_VISIBLE, 69, 48, 190, 10

 CONTROL "TMeter", 53, "TMeter", WS_CHILD | WS_VISIBLE, 69, 59, 190, 10

 CONTROL "TMeter", 54, "TMeter", WS_CHILD | WS_VISIBLE, 69, 70, 190, 10

 CONTROL "TMeter", 55, "TMeter", WS_CHILD | WS_VISIBLE, 69, 81, 190, 10

 PUSHBUTTON "&Indexar", 701, 94, 198, 40, 14

 PUSHBUTTON "&Saida", 702, 136, 198, 40, 14

 GROUPBOX "Indexação Geral dos Bancos de Dados - Retire Todos da Rede", 501, 5, 15, 260, 79, BS_GROUPBOX | BS_LEFTTEXT

 CONTROL "", 502, "BorShade", BSS_GROUP | BSS_CENTER | WS_CHILD | WS_VISIBLE | WS_GROUP, 5, 100, 260, 32

 CONTROL "", 503, "BorShade", BSS_GROUP | BSS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 5, 137, 260, 57

 AUTOCHECKBOX " Reindexar: Reorganizar Arquivos", 20, 26, 104, 217, 12, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP

 AUTOCHECKBOX " Compactar: Optimizar Tamanho dos Arquivos", 21, 26, 118, 217, 12, BS_AUTOCHECKBOX | WS_GROUP | WS_TABSTOP

 CONTROL "TBitMap", 23, "TBitMap", WS_CHILD | WS_VISIBLE, 51, 145, 176, 41

 CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 7, 197, 50, 14

 CONTROL "", 801, "TDSay", 0 | WS_CHILD | WS_VISIBLE, -2, 3, 273, 10

 RTEXT "Clientes:", 401, 10, 26, 56, 10, SS_RIGHT | NOT WS_GROUP

 RTEXT "Bancos:", 402, 10, 37, 56, 10, SS_RIGHT | NOT WS_GROUP

 RTEXT "Ct. Pagar:", 403, 10, 48, 56, 10, SS_RIGHT | NOT WS_GROUP

 RTEXT "Ct. Receber:", 404, 10, 59, 56, 10, SS_RIGHT | NOT WS_GROUP

 RTEXT "Faturamento:", 405, 10, 70, 56, 10, SS_RIGHT | NOT WS_GROUP

 RTEXT "Estoque: ", 406, 10, 81, 56, 10, SS_RIGHT | NOT WS_GROUP

 CONTROL "TBitMap", 110, "TBitMap", WS_CHILD | WS_VISIBLE, 17, 150, 18, 20

 CONTROL "TBitMap", 24, "TBitMap", WS_CHILD | WS_VISIBLE, 229, 150, 23, 32

}

 

 

    REDEFINE BUTTON oAceitar ID 701 OF oDlg                                  ;

             ACTION( ReIndPack( lPack, oMeter1, oMeter2, oMeter3,            ;

                                       oMeter4, oMeter5, oMeter6 )

 

FUNCTION ReIndPack( lPack, oMeter1, oMeter2, oMeter3, oMeter4, oMeter5, oMeter6 )

 

        SELECT CADTRANS

 

        oMeter1:nTotal = RecCount()

 

        oMeter1:cText   := OemToAnsi( "Indexando CADTRANS, Por CODIGO:     " )

        oMeter1:nClrBar := CLR_WHITE

 

        INDEX ON TRANSCOD   TAG 01 TO ITRANS                                 ;

              EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() )    ;

              EVERY 10

 

 

RETURN NIL