eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013
-
31 mai 2009 à 13:35
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
4 juin 2009 à 09:40
bonjours
voila losque je telecharge un fichier chaque ligne de ma listview defile or jvoudrais qu'elle reste fix avec les chifres
voici mon code :
//Début du téléchargement
procedure TFormMain.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkMode = wmRead then
begin
ProgressBarDownload.Max := AWorkCountMax;
ProgressBarDownload.Position := 0 ;
end;
end;
begin
if AWorkMode = wmRead then
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:=EditDestination.Text;
aListItem.SubItems.Add(IntToStr(AWorkCount));
aListItem.SubItems.Add(IntToStr(ProgressBarDownload.Max));
aListItem.SubItems.Add(IntToStr(ProgressBarDownload.Position));
ProgressBarDownload.Position := AWorkCount ;
end;
end;
procedure TFormMain.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
//Fin du téléchargement
begin
if AWorkMode = wmRead then
begin
LabelTailleTelecharge.Caption := RS_Fin;
ProgressBarDownload.Position := ProgressBarDownload.Max;
end;
end;