22. oktober 2000 - 18:17Der er
6 kommentarer og 1 løsning
TreeView liste ?
Jeg har lavet følgende kode til at søge igennem biblioteker. Lige nu skriver funktionen alle filer ud i en listbox, men jeg vil gerne have dem ud i en treeview - placeret i korrekte biblioteker sføli - er der nogen som kan hjælpe ? evt rette vedlagte kode til ?
procedure TForm1.doDirList(path : string); var SRec : TSearchRec; begin if FindFirst(path+\'\\*.*\',faAnyFile,SRec) = 0 then begin repeat
if (SRec.Attr and $10 <> $10) and (ExtractFileExt(SRec.Name)=\'.mp3\') then LBResult.Items.Add(path+\'\\\'+SRec.Name); if (SRec.Attr and $10 = $10) and (SRec.Name <> \'.\') and (SRec.Name <> \'..\') then doDirList(path+\'\\\'+SRec.Name); until FindNext(SRec) <> 0; end; end;
Jeg har hentet et komponent, med source, på DSp til D2 men det virker også under D3, 4 og 5. Indledningen er følgende:
//******************************************************* //* TFolderTree Component for Delphi 2.0 * //* version 2.0 Nov. 18, 1999 * //* by Elliott Shevin, Oak Park, Mich. USA * //* email: shevine@aol.com * //* * //* A visual component that displays a folder * //* tree similar to the left pane of Windows * //* Explorer. There are many of these for later * //* versions of Delphi, but for D2 I had to roll * //* my own. * //* I have no idea how well this will work with * //* later versions, and recommend you try one of * //* the several fine freeware components for the * //* same purpose that you can find where you got * //* this. * //* * //* This component is freeware. Use it in good * //* health, no restrictions, but I will * //* appreciate an acknowledgment. I, in turn, * //* thank Tom Deprez, from whose CDEvents compo- * //* nent some of this code was adapted. * //* * //* This release (2.0) allows access to Network * //* Neighborhood and the Recycle Bin, and shows * //* appropriate overlays for shared folders and * //* shortcuts. And, it works under Windows NT. * //*******************************************************
Komponentet hedder TFolderTree og findes som en zippet fil kaldet FTree.zip.
Hvis du er interesseret kan jeg sende dig den i en mail. Den kan alt det du vil, + mere til. Om ikke anden kan du jo se hvordan det kan gøres, og derfra udvikle din egen version.
Hvis der er andre der evt. er interesseret så sig lige til. Jeg kan desværre ikke lige lægge den op til offentlig download, men er villig til at maile den til hvem der har lyst. Den består af forskellige filer og fylder derfor for meget til at vise som et indlæg.
Vil du ikke være sød at skrive url\'en her på siden, eller sende den til: mt.clemmensen@vip.cybercity.dk Tak, Mikkel.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
