• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 214
  • Last Modified:

Delphi4 - progress bar usage

Hi

I am using a progressbar while loading treeview from paradox table.
but my problem is that the progress of the bar is not moving with the load operation.meaning that it finishes loading the bar and then loading the tree.
My code is :
try
with progressbar1 do begin
stepit;
BuildTree; // i am callling procedure to load the tree from the table
finally
free
end

so how can i make it move together so when the progress of the bar finishes i will load the tree immidealty not wait for more time and the bar is at the max position

thanks a lot
0
ibrobar
Asked:
ibrobar
  • 2
1 Solution
 
xr1140Commented:

1. query the number of record you have to load from the DB

2. set the progressbar max property to that value

3. as soon as each node is loaded, update your progressbar position
0
 
xr1140Commented:
i almost forgot ... insert an Application.ProcessMessages; in your loop to allow your form to respond to paint message.
0
 
mikelittlewoodCommented:
var
   i, loopVal: integer;
begin
   try
      // open the query
      ADOQuery1.Open;
      // turn off treeview update
      TreeView1.Items.BeginUpdate;
      try
         // get max loop value and max progress bar position
         loopVal := ADOQuery1.RecordCount;
         // set the max of the progress bar
         ProgressBar1.Max := loopVal;
         for i := 1 to loopVal do
         begin
            // add treenode

            // update progress bar
            ProgressBar1.Position := i;
            // let the system catch up
            Application.ProcessMessages;
         end;
      finally
         // turn on treeview
         TreeView1.Items.EndUpdate;
      end;
   except
      // handle exception

   end;
end;
0
 
ibrobarAuthor Commented:
Hi All

Sorry for the delay , I will get back to you in couple of days

regards
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now