Zitat von
Crazy Ivan:
der standartwert für progressbar.step ist (jedenfalls bei meinem delphi) 10. das heißt du müsstest den entsprechend der anzahl der bilder umstellen
Das habe ich auch schon gedacht, das geht aber nicht, weil das scheinbar nicht abhängig von der Anzahl der Bilder ist, sondern von der Größe...
Zitat von
Die Muhkuh:
Hi,
Du solltest vor der For-Schleife die Position des Progressbar auf 0 setzen sowie die Property Max auf den Maximalwert einstellen:
Delphi-Quellcode:
procedure TForm1.AusDatei1Click(Sender: TObject);
var I : Integer;
begin
L:=imagescount;
if OpenpictureDialog1.Execute then
begin
Form13.ProgressBar1.Position := 0;
Form13.ProgressBar1.Max := OpenPictureDialog1.Files.Count;
for I:=L to L+OpenpictureDialog1.Files.Count-1 do
if ImagesCount<100 then
begin
[...]
end;
end;
form13.Visible:=true;
end;
Ich hab das mal ausprobiert, hat aber nicht funktioniert. Jetzt ist die Progressbar immer schon auf 100% wenn das Formular erscheint...