FiveTech Software tech support forums

by **Silvio.Falconi** » Sat Jan 26, 2013 9:56 am

How create a small Meter ( Tprogress or Meterex) with time : I wish show the bar until 1 minute and then when it finish close the dialog

by **Marcelo Via Giglio** » Sat Jan 26, 2013 4:14 pm

Hi,

you can combine meter with TIMER or with sleep() or millisec() xHb function

saludos

Marcelo

by **Silvio.Falconi** » Tue Jan 29, 2013 9:14 am

can I have a minimal sample to test ?

by **armando.lagunas** » Wed Jan 30, 2013 6:17 pm

Silvio:

my function for show the bar until 30 seconds and then it closes the dialog

example for use:

msgflip("this is a fivewin...")

Code: Select all Expand view: //---------------------------------------------------------------------- STATIC FUNCTION TrayTimer( DlgT, nInterval, oMet ) LOCAL oTmr DEFINE TIMER oTmr OF DlgT INTERVAL 1 ACTION ( oMet:nPosition +=1, IIF(oMet:nPosition > nInterval, DlgT:End(), ) ) ACTIVATE TIMER oTmr RETURN nil //---------------------------------------------------------------------- FUNCTION MsgFlip( cMsg ) LOCAL aRct, oDlgAct, oMet DEFINE DIALOG oDlgAct RESOURCE 23 REDEFINE STSAY PROMPT cMsg ID 10 COLORS CLR_YELLOW OF oDlgAct FONT oApp:cFontMsg oMet := TProgress():Redefine( 13, oDlgAct ) ACTIVATE DIALOG oDlgAct CENTER ON PAINT ( aRct := GetClientRect( oDlgAct:hWnd ), GradColor( oDlgAct:hDC, aRct, CLR_GRAY, _CLRGRAY ) ) ; ON INIT ( oMet:SetRange(1,200),TrayTimer( oDlgAct, 250, oMet ) ) RETURN Nil //----------------------------------------------------------------------

Meter Time