Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 2014
-
8 mars 2008 à 20:37
Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 2014
-
9 mars 2008 à 11:55
Bonjour,
Pour finir un programme en delphi, j'aimerais savoir : Existe-t-il une fonction équivalente à GetLastSubNode de Lazarus.
En effet, cette commande permet de donner le dernier TTreeNode Ajouté à un TTreenode.
C'est pour faire le remplissage par un systéme récurssif d'un Treeview pour parcourir un répertoire à partir d'un point de départ et remplir ce Treeview du nom des images et des sous répertoires de ce point de départ.
Voila le code de l'unité qui me pose probléme :
procedure TFDetails.Scan( NomDossier : string );
var
hFound : Integer;
sFileData : TSearchRec;
tree,tree1 : TTreeNode;
texte : string;
begin
tree:=FDetails.TreeView1.Items.GetLastSubNode;// On récupére le dernier Noeud ajouté dans le Treeview. C'est ca que je ne sais pas faire.
if ( FindFirst( NomDossier + '*.*', faAnyFile, sFileData) = 0 ) then
begin
repeat
if ( ( sFileData.Name <> '.' ) and ( sFileData.Name <> '..' ) ) then
begin
if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then
begin
// Ici Traitement Fichier( sFileData, NomDossier )
texte:=uppercase(ExtractFileExt(sFileData.Name));
if (texte='.BMP')
or (texte='.JPG')
or (texte='.JPEG') then
begin
tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
tree1.ImageIndex:=1;
end;
end else
begin
tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
tree1.ImageIndex:=0;
Scan( NomDossier +sFileData.Name+ '\' ); // Recursivité
end;
end;
until ( FindNext( sFileData ) <> 0 );
end;
FindClose( sFileData );
end;
procedure TFDetails.init(nom_Dossier: string);
var tree : TTreeNode;
texte : string;
begin
FDetails.GroupBox2.Visible:=false;
FDetails.Splitter1.Visible:=false;
FDetails.B_Sauver.Visible:=false;
FDetails.B_Commentaire.Visible:=true;
Fdetails.Caption:=Nom_Dossier;
FDetails.TreeView1.Items.Clear;
Fdetails.Scan(nom_dossier); // Remplissage de l'arbre
FDetails.GroupBox1.Visible:=True;
if FDetails.TreeView1.Items.Count=1 then
begin
// il n'y a qu'un document
Tree:=Fdetails.TreeView1.Items.GetFirstNode;
texte:=uppercase(ExtractFileExt(Tree.Text));
if (texte='.BMP')
or (texte='.JPG')
or (texte='.JPEG') then
begin
FDetails.GroupBox1.Visible:=False;
FDetails.TreeView1.Selected:=tree;
FDetails.TreeView1Click(nil);
end;// interrogation de présence d'image
end;
end;
Il ne me reste que ce probléme à résoudre pour pouvoir finir mon soft de cartographie. Le soft fonctionne bien sous Lazarus, mais j'aimerais le faire fonctionner sous delphi car j'aimerais faire profiter la communauté des fonctions qu'il intégre.
Et la, ca fait vraiment un long moment que j'essaye de comprendre comment Lazarus fait pour réaliser cette fonction mais je ne comprend pas.
En tout cas, merci aux personnes qui auront l'amabilité de me répondre...
Oniria
Messages postés292Date d'inscriptiondimanche 14 mars 2004StatutMembreDernière intervention18 décembre 20143 9 mars 2008 à 11:55
Ca y est, j'ai trouvé une petite source sur le sujet et j'ai trouvé, c'est simple, il suffisait de mettre dans la function scan, le TTreeNode de référence au lieu de chercher une fonction qui le donne. Ca marche niquel, je modifie quelques petits points et je le poste.
Pour ceux que ca interresse, le code est devenu :
procedure TFDetails.Scan( NomDossier : string; tree : TTreeNode );
var
hFound : Integer;
sFileData : TSearchRec;
tree1 : TTreeNode;
texte : string;
begin
//tree:=FDetails.TreeView1.Items.GetLastSubNode;// Supprimé car cette fonction n'hexiste pas sous delphi
if ( FindFirst( NomDossier + '*.*', faAnyFile, sFileData) = 0 ) then
begin
repeat
if ( ( sFileData.Name <> '.' ) and ( sFileData.Name <> '..' ) ) then
begin
if ( ( sFileData.Attr and faDirectory ) <> faDirectory ) then
begin
// Ici Traitement Fichier( sFileData, NomDossier )
texte:=uppercase(ExtractFileExt(sFileData.Name));
if (texte='.BMP')
or (texte='.JPG')
or (texte='.JPEG') then
begin
tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
tree1.ImageIndex:=1;
end;
end else
begin
tree1:=FDetails.TreeView1.Items.AddChild(tree,sFileData.Name);
tree1.ImageIndex:=0;
Scan( NomDossier +sFileData.Name+ '\' ,Tree1); // Recursivité, On transmet le noeud qu'il va falloir remplir (un répertoire)
end;
end;
until ( FindNext( sFileData ) <> 0 );
end;
FindClose( sFileData );
end;
procedure TFDetails.init(nom_Dossier: string);
var tree : TTreeNode;
texte : string;
begin
FDetails.GroupBox2.Visible:=false;
FDetails.Splitter1.Visible:=false;
FDetails.B_Sauver.Visible:=false;
FDetails.B_Commentaire.Visible:=true;
Fdetails.Caption:=Nom_Dossier;
FDetails.TreeView1.Items.Clear;
Fdetails.Scan(nom_dossier,nil); // Remplissage de l'arbre, la référence est nil car on doit démarrer au début de l'arbre
FDetails.GroupBox1.Visible:=True;
if FDetails.TreeView1.Items.Count=1 then
begin
// il n'y a qu'un document
Tree:=Fdetails.TreeView1.Items.GetFirstNode;
texte:=uppercase(ExtractFileExt(Tree.Text));
if (texte='.BMP')
or (texte='.JPG')
or (texte='.JPEG') then
begin
FDetails.GroupBox1.Visible:=False;
FDetails.TreeView1.Selected:=tree;
FDetails.TreeView1Click(nil);
end;// interrogation de présence d'image
end;
end;
Comme quoi des fois, on cherche compliqué alors que la solution est sous nos yeux.