no se cierra el dialogo de un meter que hago mal

[AIDA]

Hola

otra vez de nuez aqui molestando con una preguntita

tengo una cajita de meter para indexar pero al terminar no se cierra que me falta.

aaah y se puede cambiar el color de la barrita del meter que es azul a otro color

Saluditos

Aida



LOCAL oDlg, oMtr

LOCAL nPos

USE sos

DEFINE DIALOG oDlg

@ 1, 1 METER oMtr VAR nPos TOTAL LASTREC();
SIZE 100, 20

* @ 3, 1 BUTTON "Start";
* ACTION STARTINDEX( oMtr )

ACTIVATE DIALOG oDlg CENTER ON INIT STARTINDEX( oMtr )

CLOSE

RETURN NIL


STATIC FUNCTION STARTINDEX( oMtr )

INDEX ON sos->clave TO sos EVAL ( oMtr:Set( RECNO() ), oMtr:Refresh(), .T. )


RETURN nil

[mmercado]

tengo una cajita de meter para indexar pero al terminar no se cierra que me falta.aaah y se puede cambiar el color de la barrita del meter que es azul a otro color

Hola Aida:

Prueba así:

Code: Select all  Expand view  RUN

LOCAL oDlg, oMtr

LOCAL nPos

USE sos

DEFINE DIALOG oDlg

@ 1, 1 METER oMtr VAR nPos TOTAL LASTREC();
SIZE 100, 20 BARCOLOR nRGB( 255,0,255), CLR_WHITE

ACTIVATE DIALOG oDlg CENTER ON INIT ( STARTINDEX( oMtr ), oDlg:End() )

RETURN NIL


Saludos.

Manuel Mercado

[AIDA]

U´PS solo me falta eso

huy que pena

Gracias que amable

Saludos

Aida

[AIDA]

Una ultima preguntita de los meters

se podra hacer un meter vertical

Gracias

Aida

[mmercado]

se podra hacer un meter vertical

Un Meter no pero una Progress Bar sí, chécate Progres1.prg en \FWH\Samples.

Saludos.

Manuel Mercado

[AIDA]

Tenquius Manuel lo buscare ese no lo conocia

Gracias

Que tengas una bonita semana

Aida

[AIDA]

Ya vi el ejemplo del Progress Bar si se ven bonitos y de color verde

no le entiendo como usarlos para indexar

me pondre hacer mis mescolancias con el Progress Bar a ver que me sale.


Gracias Manuel

Aida