procedure TForm1.vr1Change(Sender: TBaseVirtualTree; Node: PVirtualNode);
var s1:Boolean;
begin try
if vr1.SelectedCount>0 then begin
   if vr1.SelectedCount = vr1.RootNode.ChildCount then
      StatusBar1.Panels[0].Text :=' All '+inttostr(vr1.SelectedCount)+' items have been selected !'
   else
      StatusBar1.Panels[0].Text :=' '+Inttostr(vr1.SelectedCount)+' Item(s) are selected, out of '+Inttostr(vr1.RootNode.ChildCount)+' items.';
end else begin
   StatusBar1.Panels[0].Text :=' '+Inttostr(vr1.RootNode.ChildCount)+' Files and Folders in this Research Project';
end;
s1:=false;
oxGraphicButton8.Enabled:= (vr1.SelectedFiles.Count>0);
if vr1.SelectedFiles.Count = 1 then begin
   if fileexists(vr1.SelectedPath) then begin
      s1:=true;
      Label6.Caption := 'Custome Details of '+vr1.SelectedFile;
      VrLed1.Active := false;
      VrLed2.Active := false;
      VrLed3.Active := false;
      VrLed4.Active := false;
      VrLed5.Active := false;
      case get_proy_level(Label1.Caption,vr1.SelectedFile) of
         0: VrLed1.Active := true;
         1: VrLed2.Active := true;
         2: VrLed3.Active := true;
         3: VrLed4.Active := true;
         4: VrLed5.Active := true;
      end;
      get_finfo_tango;
   end;
end;
GroupBox1.Enabled := s1;
if not s1 then begin
   Label6.Caption := 'File Details';
   VrLed1.Active := false;
   VrLed2.Active := false;
   VrLed3.Active := false;
   VrLed4.Active := false;
   VrLed5.Active := false;
end;
except end;End;