From dbcda8ed24d79e8f5f7fc504f49b5a77573def8b Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Tue, 12 Nov 2002 16:18:46 +0000
Subject: [PATCH] MG fixed hidden component page

git-svn-id: trunk@3626 -
---
 ide/compreg.pp             | 3 ++-
 ide/exttooldialog.pas      | 5 ++++-
 lcl/include/customform.inc | 5 ++++-
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ide/compreg.pp b/ide/compreg.pp
index 3d033680e7..10dc97b40a 100644
--- a/ide/compreg.pp
+++ b/ide/compreg.pp
@@ -255,8 +255,9 @@ var NewPage:TRegisteredComponentPage;
   a:integer;
   NewComp:TRegisteredComponent;
 begin
+  // the hidden page is the empty ''
   if (High(ComponentClasses)-Low(ComponentClasses)<0)
-  or (Page='') or (UnitName='') then exit;
+  or (UnitName='') then exit;
   if not IsValidIdent(UnitName) then begin
     raise EComponentError.Create(
       'RegisterComponents: Invalid unitname "'+UnitName+'"');
diff --git a/ide/exttooldialog.pas b/ide/exttooldialog.pas
index 2bd7d89b83..1ebdacd005 100644
--- a/ide/exttooldialog.pas
+++ b/ide/exttooldialog.pas
@@ -317,8 +317,11 @@ writeln('[TExternalToolList.Run] ',CmdLine);
             Result:=mrOk;
           except
             on e: EOutputFilterError do begin
+              writeln('TExternalToolList.Run ',E.Message);
               ErrorOccurred:=true;
-            end;
+            end
+            else
+              raise
           end;
         finally
           if Assigned(OnFreeOutputFilter) then
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index ec090e2f90..c1bd06600c 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -232,7 +232,7 @@ end;
 {------------------------------------------------------------------------------}
 Procedure TCustomForm.SetVisible(Value : boolean);
 Begin
-//writeln('[TCustomForm.SetVisible] START ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
+//writeln('[TCustomForm.SetVisible] START2 ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
   if Value then
     Include(FFormState, fsVisible)
   else
@@ -1200,6 +1200,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.71  2002/11/12 16:18:46  lazarus
+  MG fixed hidden component page
+
   Revision 1.70  2002/11/09 18:13:33  lazarus
   MG: fixed gdkwindow checks