* Set the default alignment of TNumericFields to taRightJustify. (Patch from Jesus Reyes, bug #9456)

git-svn-id: trunk@10346 -

packages/fcl-db/src/base/db.pas

@@ -501,6 +501,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
   published
+    property Alignment default taRightJustify;
     property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;
     property EditFormat: string read FEditFormat write SetEditFormat;
   end;