How Can I Reverse D2007 ProgressBar ?

[Andrew Hill]

Hi to All

I am trying to reverse a D2007 horizontal progress bar direction from Left
To Right to Right to Left ?

Please advise

Thanks in advance

Andy

[Remy Lebeau (TeamB)]

"Andrew Hill" <andy...@axfite.com.au> wrote in message
news:481b9a4c$1...@newsgroups.borland.com...

> I am trying to reverse a D2007 horizontal progress bar
> direction from Left To Right to Right to Left ?

TProgressBar is just a thin wrapper around the Win32 API progressbar
control, which does not support what you are asking for. You will have to
find a third-party progress bar that does custom drawing, or else make your
own.

Gambit

[MikeR]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
progressbar1.Min := 0;
progressbar1.Max := 500;
progressbar1.Position := 500;
for i := 500 downto 0 do
begin
sleep(20);
if i mod 10 <= 0 then
progressbar1.Position := i;
end;
end;

end.
Mike

[Andrew Hill]

Thanks Mike,

This looks like we start out with 100% and dilate down to zero percent - Yes
? If so it still paints from left to right.

"MikeR" <nf4lN...@pobox.com> wrote in message
news:481c...@newsgroups.borland.com...

[MikeR]

Andrew Hill wrote:
> Thanks Mike,
>
> This looks like we start out with 100% and dilate down to zero percent -
> Yes ? If so it still paints from left to right.

Sorry, Andrew -
Durn! It works on my box (D7) <g>. I don't know about later versions. Wonder who
fixed what?

[Remy Lebeau (TeamB)]

"Andrew Hill" <andy...@axfite.com.au> wrote in message

news:481cf16f$1...@newsgroups.borland.com...

> This looks like we start out with 100% and dilate down
> to zero percent - Yes ?

Yes, that is exactly what it does.

Gambit