DiskCollection

Hello Sparrow

Thanks for this disk management project.
I added a piece of code from Derek to colorize the artists and their albums:

procedure Form1_TreeView1_OnChange(Sender: TObject);
var vi: integer;
begin
   Form1.TreeView1.Columns[1].Visible := false;
   for vi := 0 to form1.treeview1.RowCount-1 do
     begin
       if Form1.Treeview1.Cells[1,vi] < '1' then Form1.Treeview1.Cell[0,vi].TextColor := clRed;
       if Form1.Treeview1.Cells[1,vi] = '1' then Form1.Treeview1.Cell[0,vi].TextColor := clBlue;
       if Form1.Treeview1.Cells[1,vi] < '1' then Form1.Treeview1.Cell[0,vi].FontStyle := fsBold;
       if Form1.Treeview1.Cells[1,vi] = '1' then Form1.Treeview1.Cell[0,vi].FontStyle := fsBold;
     end;
     Form1.TreeView1.Columns[0].Footer.Caption := SQLExecute('Select Count(distinct ParentID) from Musicians');
     Form1.TreeView1.Columns[0].Footer.Color := $002C8BBA;
end;

As part of managing my classical music records, I am going to add a few additional combo boxes
(Name of performer, director, soloists, etc.).
To be continued :
Creation of a grid grouping all these items to carry out more comprehensive searches, individual or global states,
different types of import-export, pies....
Finally, possibility of retrieving information from the Internet (but this is not a given). I had tried in another project, but
too many error messages and HTTP is difficult to handle.
But I'm still going to try.
Cordially
JB

I'm sorry it doesn't work in MVD 5.6....