Bonjour
Voila en fessant ce code
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
var
Node: PVirtualNode;
Data: PLogData;
s: string;// Exctract FileName of url
begin
if AWorkMode = wmRead then //uniquement quand le composant recoit des données
begin
s := ExtractUrlFileName(JvEdit1.Text);
vst.BeginUpdate;
Node := vst.AddChild(vst.RootNode);
Data := vst.GetNodeData(Node);
Data^.Nom := s;
Data^.Taill := formatsize(AWorkCountMax);
Data^.Vitesse := '0,00ko/s';
Data^.Pourcentage := 50;
vst.EndUpdate;
end;
end;
et dans
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
var
Node: PVirtualNode;
Data: PLogData;
s: string;// Exctract FileName of url
begin
if AWorkMode=wmRead then //Uniquement pendant la réception de données
s := ExtractUrlFileName(JvEdit1.Text);
vst.BeginUpdate;
Data^.Nom := s;
Data^.Taill := Format('',[FormatFloat('0',AWorkCount)]); //MAJ Label AWorkCount;
Data^.Vitesse := '0,00ko/s';
Data^.Pourcentage := 50;
vst.EndUpdate;
end;
Le virtualstringtree ne reste pas fixe sur une ligne mais en fait plein et j'aimerais qu'il soit que sur une seule ligne
Comment faire je bloque