FiveTech Software tech support forums

... only with ITASKBARLIST_RELEASE -> METHOD EndProgressMode() i don´t know "where" to call it as CLASS TProgress have no "Destroy" ? --- i use a copy of CLASS TProgress and add some CODE #IFDEF Use_iTasklistBar you will find all what i did in ...

hi Antonio,

sorry if i have confuse you
those Xbase++ CODE are Part of CLASS ProgressBar and need "msctls_progress32"

so i have to enhance (copy of) CLASS TProgress with these Method
have made 1st. Step and got HB_FUNC() working

... => TMSGITEM:MSGNOTFOUND( 0 ) Called from: ../../../tobject.prg => TMSGITEM:HWND( 0 ) Called from: .\source\classes\TPROGRES.PRG => TPROGRESS:NEW( 122 ) before it run ok on Msgbar with @ 02, 11 PROGRESS oApp:oProgressDlg POSITION 1 of oApp:oWndMain:oMsgBar; *SIZE 200,18 pixel How ...

Can anyone explain to me what "cMsg" is for in the TProgress class: this variable is not inserted in the execution of the control.

sample
oProgress := TProgress():New( 2.8, 2, oDlgProgress, , , , .f.,, 150, 15, "cmsg is useless", .f., .f. )

you can do it
as you do it with tProgress class it is the same ( change only the geometric figure)


DEFINE TIMER oTimer INTERVAL 50 ACTION (oMeter:SetPos(++nPos), iif(nPos>500,oTimer:End(), yourfunction_sound_here)) OF oDlg
ACTIVATE TIMER oTimer

... optional a wav-file during a selected process. I will add this option. regards Uwe :D I don't understand what it is for? we have done a circular TProgress / TMeter class are necessary for other procedures. I can use the tprogress to index an archive or an array. the indefinite command could be ...

If I have a fw_arratoDbf()

sample

oArchivio:fw_arraytodbf(adata)


can insert a refer to a TProgress, and how ?


and if I have an Aeval function can insert the position of the tprogress ?

...  CLR_HRED  ;       BACKCOLOR   CLR_BLUE  ;       PIXEL   ;       TEXT   NORMAL_TEXT  ;       TEXTCOLOR  CLR_GREEN does it work like the TProgress class, do you have never used this class to index archives? oProgress:setrange(0,500)oProgress:npos....INDEX ON FIRST TAG FIRST EVAL ...

... the errors and then I started from an example of NagesWarao that I found on the Forum, so I'm not a Maestro of Fwh...and then I copied the Tprogress :) No hice todo lo que me ayudaron, alguien corrigió los errores y luego comencé con un ejemplo de NagesWarao que encontré en el Foro, así ...

... lo que se encuentra en la ventana se empieza a hundir y también me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID 101 OF oDlg ...

... lo que se encuentra en la ventana se empieza a hundir y también me paso con este código: DEFINE DIALOG oDlg RESOURCE "PROGRESO" oMeter = TProgress():Redefine(101,oDlg) //REDEFINE METER oMeter VAR nActual TOTAL 100 ID 101 OF oDlg //UPDATE //REDEFINE METER oMeter VAR nActual ID 101 OF oDlg ...

... 3D style * New: function FW_YMDLAPSED( dDate1, [dDate2] ) --> { Y, M, D } Difference between two dates in years, months and days * Fix: Class TProgress now supports animations properly: http://forums.fivetechsupport.com/viewtopic.php?p=208412#p208412 many thanks to AntoninoP * Enhancement: ...

About TProgress:New First thing the nStyle shoud has PSB_MARQUEE not PBM_SETMARQUEE:   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE,;                      If( lDesign, WS_CLIPSIBLINGS, 0 ),;                      If( ...

Antonino,

Already implemented for next FWH build, many thanks

> then change the TProgress:new in the same way...

I don't understand what you mean exactly

Another thing, I would change the SetMarquee in this way:

Code: Select all  Expand view

METHOD SetMarquee( lOnOff )  CLASS TProgress
   ::WinStyle(PBS_MARQUEE, lOnOff)
   SendMessage(::hWnd,PBM_SETMARQUEE,iif(lOnOff,1,0),0)
return nil

then change the TProgress:new in the same way...