* Merging revisions 42965 from trunk:

    ------------------------------------------------------------------------
    r42965 | michael | 2019-09-09 09:17:39 +0200 (Mon, 09 Sep 2019) | 1 line
    
    * Make codepage property public in TFieldDef
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43236 -

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

@@ -192,6 +192,7 @@ type
     property CharSize: Word read GetCharSize;
     property InternalCalcField: Boolean read FInternalCalcField write FInternalCalcField;
     property Required: Boolean read FRequired write SetRequired;
+    Property Codepage : TSystemCodePage Read FCodePage;
   Published
     property Attributes: TFieldAttributes read FAttributes write SetAttributes default [];
     property DataType: TFieldType read FDataType write SetDataType;