TListView

eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 20 oct. 2010 à 18:20
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 3 nov. 2010 à 15:27
Bonjours


Ce ci est un bout de code de mon programme

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
var
userResponse:integer;
S,t: String;
TotalTime: TDateTime;
// RemainingTime: TDateTime;
H, M, Sec, MS: Word;
DLTime: Double;
begin
TotalTime := Now - STime;
DecodeTime(TotalTime, H, M, Sec, MS);
Sec := Sec + M * 60 + H * 3600;
DLTime := Sec + MS / 1000;
if DLTime > 0 then
AverageSpeed := {(AverageSpeed + }(AWorkCount / 1024) / DLTime{) / 2};

if AverageSpeed > 0 then begin
Sec := Trunc(((ProgressBar1.Max - AWorkCount) / 1024) / AverageSpeed);

S := Format('%2d:%2d:%2d', [Sec div 3600, (Sec div 60) mod 60, Sec mod 60]);


end
else S := '';

t := FormatFloat('0.00 KB/s', AverageSpeed);
case AWorkMode of
wmRead: begin

Label8.Caption := savedialog1.Files.Text; //ExtractFileName(sr.Name);
Label9.Caption := BytesToStr(AWorkcount);
ListView1.items.Add.Caption:= 'Downloading';


Et bien la liste view ahjoute a chaque fois une nouvel ligne

Comment faire pour quelle reste fix et en ajoutant d'autre colone dans ma 1ére ligne
en y inluant des chiffres qui défile

Je debute dans les listview

Cordialement

1 réponse

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
3 nov. 2010 à 15:27
Bonjour,

question confuse ->>> pas de réponse...

cantador
Rejoignez-nous