From 9675c3955ddeb4b5a7f26ca0557c68bb8471c003 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 10 May 2019 23:07:59 +0000
Subject: [PATCH] TParadoxDataset: Show InputEncoding in Object Inspector only
 when dataset is active.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6906 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tparadoxdataset/paradoxds.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/tparadoxdataset/paradoxds.pas b/components/tparadoxdataset/paradoxds.pas
index 21995812a..56eeef679 100644
--- a/components/tparadoxdataset/paradoxds.pas
+++ b/components/tparadoxdataset/paradoxds.pas
@@ -552,6 +552,7 @@ end;
 
 procedure TParadoxDataset.InternalClose;
 begin
+  FInputEncoding := '';
   BindFields(FALSE);
   if DefaultFields then // Destroy the TField
     DestroyFields;
@@ -678,7 +679,7 @@ begin
    else begin
      FFieldInfoPtr := @FHeader^.FieldInfo;
      cp := FHeader^.DosCodePage;
-     FInputEncoding := 'cp' + IntToStr(cp);
+     FInputEncoding := 'CP' + IntToStr(cp);
    end;
 
   if Encrypted then