1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Idhttp et tlistwiew

Signaler
Messages postés
104
Date d'inscription
samedi 23 décembre 2000
Statut
Membre
Dernière intervention
9 mai 2013
 -
Messages postés
4718
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
14 janvier 2021
 -
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;

//Téléchargement
procedure TFormMain.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
                                          const AWorkCount: Integer);
var
 alistItem  : tlistItem;


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;

coordialement
Afficher la suite

1 réponse

Réponse 1 / 1
Messages postés
4718
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
14 janvier 2021
 14
bonjour,

Tu effectues des .Add, il est donc normal que les informations défilent dans ta ListView...

Merci de préciser exactement ce que tu souhaites obtenir...

cantador
Répondre Posez votre question