Probleme mit Jedi ProgressBar

[Alois]

Hi,

wenn ich bei Jedi TJvGradientProgressBar oder TJvXPProgressBar benutze so zeigen beide Komponenten ein merkwürdiges Verhalten.
Sobald ich die Breite größer mache als den Default-Wert, kommt es vor das die ProgressBar nicht bis zum Ende durchläuft
sondern (anscheinend) nur bis zur Default Breite.

Ich habe zum Debuggen mal die TProgessBar parallel zu den anderen beiden mit gleichen Eingangsparamteren zum laufen gebracht und siehe da, die TProgressBar läuft bis zum Ende durch und die anderen nicht.

Gibt es hier etwas spezielles bei Jedi zu beachten?

Gruss Alois ;)

[barf00s]

du könntest dich damit an die jeweilige jedi newsgroup wenden und dort diesen "offensichtlichen" bug melden.

[Alois]

Hi @barf00s,
Ok werde ich machen.

[Sharky]

Hai Alois,

ich kann das bei mir nicht nachvolziehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : integer;
begin
  for ndx := 0 to 100 do
  begin
    JvProgressBar1.Position := ndx;
    JvGradientProgressBar1.Position := ndx;
    ProgressBar1.Position := ndx;
  end;
end;

Alle drei "ProgressBars" habe ich auf die volle breite der Form gezogen und alle drei laufen bis zum ende durch.

[Kidix]

bei mir funktionierts auch ohne probleme!

[Alois]

Ich konnte den Fehler weiter einkreisen können.

Ich lade eine Datei und die Dateigrösse bestimmt die Maximalgrösse der Progressbar. In meinem Beispiel
lade ich eine Datei von ProgressBar.Max = 12857537
Die Progressbar.Position geht bis irgendwo über 7000000. Bei 8000000 wird nichts mehr dargestellt.

Bei der Standard TProgressBar funktioniert das noch, bei Jedi's ProgressBar nicht.

Gruss Alois ;)

[jbg]

Klingt nach einem Interger-Üblerlauf beim Multiplizieren. Muss ich mir mal anschauen.

[jbg]

Ändere mal in der Zeile 226 (in TJvBaseProgressBar.Paint) die Zeile in

Delphi-Quellcode:

ASize := MulDiv(GetMaxBarSize, (APos - Min), (Max - Min));

um. Und probiere es dann nochmal aus.

[Alois]

Hi Andreas,

Zitat:

Zitat von jbg

Ändere mal in der Zeile 226 (in TJvBaseProgressBar.Paint) die Zeile in

Delphi-Quellcode:

ASize := MulDiv(GetMaxBarSize, (APos - Min), (Max - Min));

um. Und probiere es dann nochmal aus.

Ja, jetzt läuft's

Gruss Alois ;)