procedure TForm1.vr1RootChanging(Sender: TCustomVirtualExplorerTree;
  const NewValue: TRootFolder; const CurrentNamespace,
  Namespace: TNamespace; var Allow: Boolean);
begin try
if (IncludeTrailingBackslash(vc1.Path)+Namespace.NameAddressbar)=(IncludeTrailingBackslash(get_prj_info(Label1.Caption).path_)+'My Notes') then
begin
   Allow:=false;
   load_notes1.Enabled := true;
   exit;
end;
ProgressBar1.Max := 0;
T := GetTickCount;
StatusBar1.Panels[3].Text := ' Search for Image Files...';
StatusBar1.Panels[2].Text := ' Elapsed Time: ...';
except end;End;