ProgressBar showing text
lazarus / 31-LCL

----------------------------------------------------------------------
DL4OCE · 2013-04-17 15:34

Hi,

is there any way to use a ProgressBar in Lazarus that shows some
freely configurable text?

----------------------------------------------------------------------
Leledumbo · 2013-04-17 16:33

I don't know whether the standard progressbar supports ownerdraw, but
I use this one instead.

Note: website seems down, if you can't reach it in a few days, contact
me to send my latest version.

----------------------------------------------------------------------
DL4OCE · 2013-04-17 18:46

This seems to be exactly what I need.

Thank you very much!!

But I have problems installing the package because Lazarus cannot be
compiled, so I simply took the colorprogress.pas and .lrs and copied
them into my pas-files directory and included the unit ColorProgress.

Now I have to manually add the item:

Code: [Select]procedure TForm1.FormCreate(Sender: TObject);
begin
...
     TXProgressBar:= TColorProgress.Create(Self);
     TXProgressBar.Left:= 110;
     TXProgressBar.Top:= 120;
     TXProgressBar.Width:= 100;
     TXProgressBar.Height:= 16;
     TXProgressBar.Kind:= ckHorizontalBar;
     TXProgressBar.BackColor:= clSilver;
     TXProgressBar.Color:= clBlue;
     TXProgressBar.ForeStyle:= bsHorizontal;
     TXProgressBar.Font.Color:= clWhite;
     TXProgressBar.Progress:= 20;
     TXProgressBar.Caption:= '21';
     TXProgressBar.Visible:= true;
     TXProgressBar.Refresh;  
...
end;
But it simply does not show up when running the program. As you can
see, I've already set a lot properties.

What am I doing wrong?

----------------------------------------------------------------------
taazz · 2013-04-17 18:48

add the following after setting visible := true and remove the refresh
call.
Code: [Select]TXProgressBar.Parent := self;

----------------------------------------------------------------------
DL4OCE · 2013-04-17 18:55

It's absolutely unbelievable how quickly you've answered and solved my
problem

Thank you!!