• Registered: 2014-02-17
  • Posts: 365

Topic: Example Add ProgressBar In TableGrid(Not Real progressbar)

progressbar is text character

I try use than  real progressbar for show process
For MVD Community  Happy! Happy!

https://i.ibb.co/2WY4tZh/2019-04-02-003.png

Note Code Keyword !
can change font Or change scale Bar 1:20 To 1:10 Or 1:1

            IF Round(records/(MaxRow-1)*100.00) = 0   Then bar := '□□□□□□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 5   Then bar := '■□□□□□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 10  Then bar := '■■□□□□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 15  Then bar := '■■■□□□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 20  Then bar := '■■■■□□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 25  Then bar := '■■■■■□□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 30  Then bar := '■■■■■■□□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 35  Then bar := '■■■■■■■□□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 40  Then bar := '■■■■■■■■□□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 45  Then bar := '■■■■■■■■■□□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 50  Then bar := '■■■■■■■■■■□□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 55  Then bar := '■■■■■■■■■■■□□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 60  Then bar := '■■■■■■■■■■■■□□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 65  Then bar := '■■■■■■■■■■■■■□□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 70  Then bar := '■■■■■■■■■■■■■■□□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 75  Then bar := '■■■■■■■■■■■■■■■□□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 80  Then bar := '■■■■■■■■■■■■■■■■□□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 85  Then bar := '■■■■■■■■■■■■■■■■■□□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 90  Then bar := '■■■■■■■■■■■■■■■■■■□□' ;
            IF Round(records/(MaxRow-1)*100.00) = 95  Then bar := '■■■■■■■■■■■■■■■■■■■□' ;
            IF Round(records/(MaxRow-1)*100.00) = 100 Then bar := '■■■■■■■■■■■■■■■■■■■■' ;
Post's attachments

Attachment icon GridTextBar.zip 538.86 kb, 411 downloads since 2019-04-02 

My Visual Database : I Love You
Easy For Beginner Student For Me
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Example Add ProgressBar In TableGrid(Not Real progressbar)

super!  thanks for a great example, prahousefamily