Merged revisions 7335,7340-7341,7343,7345,7362 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r7335 | michael | 2007-05-14 21:43:02 +0200 (Mon, 14 May 2007) | 1 line
  
   Fixed bug #8875
........
  r7362 | michael | 2007-05-16 17:02:49 +0200 (Wed, 16 May 2007) | 1 line
  
   Published TnamedItem.Name as in Delphi
........

git-svn-id: branches/fixes_2_2@7725 -

packages/fcl-db/src/db.pas

@@ -141,9 +141,10 @@ type
   protected
     function GetDisplayName: string; override;
     procedure SetDisplayName(const AValue: string); override;
-  public
+  Public  
+    property DisplayName : string read GetDisplayName write SetDisplayName;
+  published
     property Name : string read FName write SetDisplayName;
-    property DisplayName : string read GetDisplayName;
   end;
 
   { TDefCollection }