Virtualstringtree

eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 13 nov. 2011 à 20:07
eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 15 nov. 2011 à 17:40
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

1 réponse

eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013
15 nov. 2011 à 17:40
Personne pour une petite aide je galaire a trouver une reponse
0