FiveTech Support Forums

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

AIDA wrote: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

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

U´PS solo me falta eso

huy que pena

Gracias que amable

Saludos

Aida

Una ultima preguntita de los meters

se podra hacer un meter vertical

Gracias

Aida

AIDA wrote:se podra hacer un meter vertical

Tenquius Manuel lo buscare ese no lo conocia

Gracias

Que tengas una bonita semana

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