FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New TprogressWheel
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

New TprogressWheel

Posted: Mon Sep 09, 2019 07:41 PM
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM

Re: New TprogressWheel

Posted: Mon Sep 09, 2019 08:17 PM

Fantástic :D

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 12:45 AM

Silvio:

Wow.

Regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 09:22 AM

very nice

great work Silvio!

You are a FWH master already ;-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 11:27 AM

I didn't do everything I was helped, someone corrected 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í que no soy un maestro de..... y luego copié el Tprogress :)

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 11:36 AM
Silvio,

I'm working on a solution complete different to the circles :
Fading in a image ( resized / rounded ) with a centered percent-display.
The image transparent-level can change with the percent-value.

maybe a interesting solution as well.





regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 01:06 PM
How about this way?
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 01:14 PM
AntoninoP wrote:How about this way?


It look great!

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 03:54 PM

thanks Antonino for your apportation

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 04:49 PM

Silvio,

I have a few questions:

1). "When you buy the new release" suggests you will be offering this control for sale. Is that correct ? If so, what is the pricing and availability ?

2). Could you provide an example of implementing the progress wheel in an application ?

3). Does this have any performance issues ( speed degradation for the process it is measuring ) ? Though slight, the progress bar, if not set to sample at a proper interval, can reduce the speed of operation.

Massimo, you also presented a control, but it would not be usable by those of us who use Visual Studio / Harbour since it is clearly for Borland development tools. Thank you, however, for sharing there is an option.

Antonio: Will you be including any progress wheel with the FWH libraries ? It might not be as grand as these, but Windows does tend to use the wheels now rather than bars.

Thanks to all for your continuing contributions.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 05:38 PM
TimStone wrote:Silvio,

I have a few questions:

1). "When you buy the new release" suggests you will be offering this control for sale. Is that correct ? If so, what is the pricing and availability ?

2). Could you provide an example of implementing the progress wheel in an application ?

3). Does this have any performance issues ( speed degradation for the process it is measuring ) ? Though slight, the progress bar, if not set to sample at a proper interval, can reduce the speed of operation.

Massimo, you also presented a control, but it would not be usable by those of us who use Visual Studio / Harbour since it is clearly for Borland development tools. Thank you, however, for sharing there is an option.

Antonio: Will you be including any progress wheel with the FWH libraries ? It might not be as grand as these, but Windows does tend to use the wheels now rather than bars.

Thanks to all for your continuing contributions.




1. The price is what Antonio does for the new version of the new fwh package, I don't think he'll decide to sell the class separately

2.I have created 3 examples I think are enough to make people understand how it works

sample :

Code (fw): Select all Collapse
 @ 5,10 WHEELMETER oProgress OF oDlg   ;
       INNERCOLOR  CLR_WHITE ;
       ANIMACOLOR  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?

Code (fw): Select all Collapse
oProgress:setrange(0,500)
oProgress:npos
....
INDEX ON FIRST TAG FIRST EVAL (oProgress:SetPos(nProgress++), Sysrefresh()) EVERY 1     FOR ! deleted()



3.There are no performance problems I tried on a dialog with 13 meters

4.Massimo published a class in delphi he tried to put me in a bad light. He usually does that against me. I'll never understand why. and I haven't seen his work yet, but only criticisms against me. Antonio is patient and has stopped him several times

I copied the dialog of that Delphi class

I tried to do it again in harbor and with our class TProgressWheel to see precisely if there were any performance problems by entering as many as 13 controls that operated continuously. However the Demo.prg will not be released for the moment.

5. Antonio is working on mod_harbour. He told me he will put the control in the new release of fwh
The idea of making this class came from Mr. Loren in the Spanish forum, Cristobal accepted the idea even though he said there were compilations, a long time ago I created a class for circular bar codes together with a friend S.P. so I had already worked with the Pie and elipse, but the idea came from an example created many years ago by Nagewarao to make statistical graphs.
Antonino Perrcone has modified the class by inserting the gradient and the image type texture



maybe I copied some scripts from the Delphi class, but the implementation came before I saw that class in delphi, there is nothing Delphi or third parties, it was created entirely in the source code of Harbor and fivewin, I I used for an archive of 6500 records and 57 fields and it works great
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 3022
Joined: Fri Oct 07, 2005 01:45 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 06:20 PM

Silvio,

Thank you.

I understand it is to be included in the FWH libraries. I have a subscription with Antonio so I look forward to check it out when it is released.

Yes, I do use Progress Bar with all indexing, and with other processing tasks ( like constructing data for complicated reports, etc ). I have for many years. However, progress bars are generally not being used in newer Microsoft applications. They have all moved to the wheel so this is a nice addition to our options.

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 07:54 PM
New release - with texture Image



Tim as you can see here I use 13 Progress wheel and I not seeing problem of Performance or problem of velocity
I tried it with a dbf with 6500 records and 57 field for 4/5 index and never it stop
we are using GDIPLUS function
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New TprogressWheel

Posted: Tue Sep 10, 2019 07:57 PM

Massimo and Compuin banned for one week

Sorry guys. Time to relax...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: New TprogressWheel

Posted: Wed Sep 11, 2019 09:36 AM
New Relase With gradient ( on betatest)

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com