fixed searching parent for new control

git-svn-id: trunk@6837 -

ide/customformeditor.pp

@@ -1782,6 +1782,7 @@ begin
         if (NewParent is TWinControl)
         and (csAcceptsControls in TWinControl(NewParent).ControlStyle) then
           break;
+        NewParent:=TControl(NewParent).Parent;
       end;
     end else begin
       // New TypeClass is not a TControl => Root component as parent
@@ -1790,7 +1791,8 @@ begin
         NewParent:=TComponent(Root);
     end;
   end;
-  Result:=FindComponent(NewParent);
+  if NewParent<>nil then
+    Result:=FindComponent(NewParent);
 end;
 
 function TCustomFormEditor.GetDefaultComponentPosition(

tools/install/create_fpc_tgz_from_local_dir.sh

@@ -37,9 +37,7 @@ TmpDir=$TmpBaseDir/fpc
 
 ppc386 -Fu../../lcl/units/i386/linux cvsexportlocal.pas
 echo "extracting FPC from local cvs ..."
-cd $TmpBaseDir
 rm -rf $TmpDir
-cd -
 ./cvsexportlocal $FPCSrcDir $TmpDir
 
 if [ $RenameSmart = "yes" ]; then

tools/install/create_lazarus_tgz_from_local_dir.sh

@@ -4,10 +4,10 @@ set -x
 set -e
 
 LazSrcDir=$1
-OutFile=lazarus-0.9.1-5.tgz
+OutputFile=$2
 
 if [ "x$LazSrcDir" = "x" ]; then
-  echo "Usage: $0 <lazarus_source_directory>"
+  echo "Usage: $0 <lazarus_source_directory> <output-file>"
   exit
 fi
 if [ ! -d $LazSrcDir/designer ]; then
@@ -15,18 +15,26 @@ if [ ! -d $LazSrcDir/designer ]; then
   exit
 fi
 
-echo "remove /tmp/lazarus ..."
-cd /tmp
-rm -rf /tmp/lazarus
-cd -
-sh create_clean_lazarus_directory.sh $LazSrcDir /tmp/lazarus
+if [ "x$OutputFile" = "x" ]; then
+  echo "Usage: $0 <lazarus_source_directory> <output-file>"
+  exit -1
+fi
+
+
+TmpBaseDir=/tmp
+TmpDir=$TmpBaseDir/lazarus
+
+ppc386 -Fu../../lcl/units/i386/linux cvsexportlocal.pas
+echo "extracting Lazarus from local cvs ..."
+rm -rf $TmpDir
+./cvsexportlocal $LazSrcDir $TmpDir
 
 # pack
 echo "packing ..."
-cd /tmp/
+cd /tmp
 tar cvzf lazarus.tgz lazarus
 cd -
-mv /tmp/lazarus.tgz $OutFile
+mv /tmp/lazarus.tgz $OutputFile
 rm -rf /tmp/lazarus
 
 echo ""