From 32a551d470f0c79f949daaa47ef6abca33ab5154 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 9 Sep 2019 07:17:39 +0000
Subject: [PATCH] * Make codepage property public in TFieldDef

git-svn-id: trunk@42965 -
---
 packages/fcl-db/src/base/db.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-db/src/base/db.pas b/packages/fcl-db/src/base/db.pas
index 5ab2f89122..a8bcc9e8ae 100644
--- a/packages/fcl-db/src/base/db.pas
+++ b/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;