From 91b64942bf1d11c59edc7347d9e74c0cfc61487c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 21 May 2005 15:03:37 +0000
Subject: [PATCH] fixed creating new package unit without used unit

git-svn-id: trunk@7188 -
---
 packager/addtopackagedlg.pas | 4 ++++
 packager/pkgmanager.pas      | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/packager/addtopackagedlg.pas b/packager/addtopackagedlg.pas
index e22daf4ed2..fa08c376ab 100644
--- a/packager/addtopackagedlg.pas
+++ b/packager/addtopackagedlg.pas
@@ -1420,6 +1420,8 @@ begin
     Parent:=NewComponentPage;
     Caption:='...';
     OnClick:=@ComponentUnitFileBrowseButtonClick;
+    ShowHint:=true;
+    Hint:='Open file dialog';
   end;
 
   ComponentUnitFileShortenButton:=TButton.Create(Self);
@@ -1428,6 +1430,8 @@ begin
     Parent:=NewComponentPage;
     Caption:='<>';
     OnClick:=@ComponentUnitFileShortenButtonClick;
+    ShowHint:=true;
+    Hint:='Shorten or expand filename';
   end;
 
   ComponentUnitNameLabel:=TLabel.Create(Self);
diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas
index fb00a77f7d..002191e66d 100644
--- a/packager/pkgmanager.pas
+++ b/packager/pkgmanager.pas
@@ -495,7 +495,8 @@ begin
   // create sourcecode
   LE:=LineEnding;
   UsesLine:='Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs';
-  if System.Pos(Params.UsedUnitname,UsesLine)<1 then
+  if (System.Pos(Params.UsedUnitname,UsesLine)<1)
+  and (Params.UsedUnitname<>'') then
     UsesLine:=UsesLine+', '+Params.UsedUnitname;
   NewSource:=
      'unit '+Params.UnitName+';'+LE