Fixed possible exceptions that occurred whith no views defined. (Issue #53)

Author: Joachim Marder

Designer/FViews.pas

@@ -1561,6 +1561,8 @@ procedure TFrameViews.Activate;
 var
   Command: TRibbonCommand;
 begin
+  if TreeViewRibbon.Items.Count = 0 then
+    exit;// Nothing to do here
   ActionDelete.ShortCut := ShortCut(VK_DELETE, [ssCtrl]);
   ActionMoveUp.ShortCut := ShortCut(VK_UP, [ssCtrl]);
   ActionMoveDown.ShortCut := ShortCut(VK_DOWN, [ssCtrl]);;

Designer/FXmlSource.pas

@@ -55,7 +55,7 @@ procedure TFrameXmlSource.Activate;
   TreeViewXmlSource.Items.BeginUpdate;
   try
     TreeViewXmlSource.Items.Clear;
-    if FileExists(FDocument.Filename) then
+    if Assigned(FDocument) and FileExists(FDocument.Filename) then
     begin
       FXmlDoc.LoadFromFile(FDocument.Filename);
       LineNum := 2;