New TprogressWheel

User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

New TprogressWheel

Post by Silvio.Falconi »

Image
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: New TprogressWheel

Post by MGA »

Fantástic :D
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Re: New TprogressWheel

Post by Armando »

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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: New TprogressWheel

Post by Antonio Linares »

very nice

great work Silvio!

You are a FWH master already ;-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: New TprogressWheel

Post by Silvio.Falconi »

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 :)
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: New TprogressWheel

Post by ukoenig »

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.

Image

Image

regards
Uwe :?:
Last edited by ukoenig on Tue Sep 10, 2019 12:28 pm, edited 7 times in total.
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.
AntoninoP
Posts: 347
Joined: Tue Feb 10, 2015 9:48 am
Location: Albenga, Italy
Contact:

Re: New TprogressWheel

Post by AntoninoP »

How about this way?
Image
Compuin
Posts: 1017
Joined: Tue Dec 28, 2010 1:29 pm

Re: New TprogressWheel

Post by Compuin »

AntoninoP wrote:How about this way?
Image
It look great!
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: New TprogressWheel

Post by Silvio.Falconi »

thanks Antonino for your apportation
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
TimStone
Posts: 2536
Joined: Fri Oct 07, 2005 1:45 pm
Location: Trabuco Canyon, CA USA
Contact:

Re: New TprogressWheel

Post by TimStone »

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
timstone@masterlinksoftware.com
Using: FWH 19.06 with Harbour 3.2.0 / Microsoft Visual Studio Community 2019
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: New TprogressWheel

Post by Silvio.Falconi »

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: Select all

 @ 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: Select all

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
Last edited by Silvio.Falconi on Tue Sep 10, 2019 5:48 pm, edited 1 time in total.
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
TimStone
Posts: 2536
Joined: Fri Oct 07, 2005 1:45 pm
Location: Trabuco Canyon, CA USA
Contact:

Re: New TprogressWheel

Post by TimStone »

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
timstone@masterlinksoftware.com
Using: FWH 19.06 with Harbour 3.2.0 / Microsoft Visual Studio Community 2019
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: New TprogressWheel

Post by Silvio.Falconi »

New release - with texture Image

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
Last edited by Silvio.Falconi on Tue Sep 10, 2019 8:25 pm, edited 2 times in total.
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: New TprogressWheel

Post by Antonio Linares »

Massimo and Compuin banned for one week

Sorry guys. Time to relax...
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: New TprogressWheel

Post by Silvio.Falconi »

New Relase With gradient ( on betatest)

Image
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
Post Reply