From cd71d115c1186e215ce609480fd604334c52d97f Mon Sep 17 00:00:00 2001
From: dsiders <dsiders@lazarus-ide.org>
Date: Thu, 11 Nov 2021 18:41:16 +0000
Subject: [PATCH] Docs: LCL. Removes duplicated content and links to updated
 original.

(cherry picked from commit f506e095e4b719679e5e5bad8b4f786ff6f0fc9c)
---
 docs/xml/lcl/dbctrls.xml  | 18 ++----------------
 docs/xml/lcl/stdctrls.xml | 36 ++++++++++++++++++++++++++++--------
 2 files changed, 30 insertions(+), 24 deletions(-)

diff --git a/docs/xml/lcl/dbctrls.xml b/docs/xml/lcl/dbctrls.xml
index ad9d387521..243cc53217 100644
--- a/docs/xml/lcl/dbctrls.xml
+++ b/docs/xml/lcl/dbctrls.xml
@@ -1486,21 +1486,7 @@
       <element link="#lcl.controls.TControl.BiDiMode" name="TDBEdit.BiDiMode"/>
       <element link="#lcl.controls.TControl.BorderSpacing" name="TDBEdit.BorderSpacing"/>
       <element name="TDBEdit.BorderStyle" link="#lcl.controls.TWinControl.BorderStyle"/>
-      <element name="TDBEdit.CharCase">
-        <descr>
-          <p>Indicates how text is displayed in a text editing control in the following ways:
-          </p>
-          <ul>
-            <li>Normal case letters</li>
-            <li>Upper case letters</li>
-            <li>Lower case letters</li>
-          </ul>
-          <p>The rules can be overridden by use of the Shift key.</p>
-        </descr>
-        <seealso>
-          <link id="#lcl.stdctrls.TCustomEdit.CharCase">TCustomEdit.CharCase</link>
-        </seealso>
-      </element>
+      <element name="TDBEdit.CharCase" link="#lcl.stdctrls.TCustomEdit.CharCase"/>
       <element link="#lcl.controls.TControl.Color" name="TDBEdit.Color"/>
       <element link="#lcl.controls.TControl.Constraints" name="TDBEdit.Constraints"/>
       <element link="#lcl.controls.TWinControl.DoubleBuffered" name="TDBEdit.DoubleBuffered"/>
@@ -7675,7 +7661,7 @@
       </element>
       <element link="#lcl.controls.TControl.GetControlClassDefaultSize" name="TDBCustomNavigator.GetControlClassDefaultSize"/>
       <element name="TDBCustomNavigator.GetControlClassDefaultSize.Result">
-        <short/>
+        <short>Default size for new instances of the class.</short>
       </element>
       <element name="TDBCustomNavigator.BeginUpdateButtons">
         <short>
diff --git a/docs/xml/lcl/stdctrls.xml b/docs/xml/lcl/stdctrls.xml
index 6b2388470f..4b95cd9c7b 100644
--- a/docs/xml/lcl/stdctrls.xml
+++ b/docs/xml/lcl/stdctrls.xml
@@ -6204,16 +6204,36 @@
       </element>
 
       <element name="TCustomEdit.CharCase">
-        <short>Allows to force the text into all upper or lower case.</short>
+        <short>Controls the character case applied to values entered in the control.</short>
         <descr>
-          <p>The following conversions can be specified:</p>
-          <ul>
-            <li>Unchanged</li>
-            <li>All upper case letters</li>
-            <li>All lower case letters</li>
-          </ul>
-          <remark>Conversions apply to the entire text, and <b>cannot</b> be reverted.</remark>
+          <p>
+            CharCase is a TEditCharCase property which indicates how values in Text are converted and displayed in the control.
+          </p>
+          <dl>
+            <dt>ecNormal</dt>
+            <dd>
+              Normal letter case is applied; no conversion is applied. Use the Shift key to change the case for a character entered in the control.
+            </dd>
+            <dt>ecUpperCase</dt>
+            <dd>
+              Values in Text are converted to uppercase letters. Shift key state is ignored.
+            </dd>
+            <dt>ecLowerCase</dt>
+            <dd>
+              Values in Text are converted to lowercase letters. Shift key state is ignored.
+            </dd>
+          </dl>
+          <p>
+            The default value for the property is ecNormal. Changing the value for the property causes the existing values in Text to be converted to the case indicated in the new property value.
+          </p>
+          <remark>
+            Conversions apply to the entire value in Text, and <b>cannot</b> be reverted.
+          </remark>
         </descr>
+        <seealso>
+          <link id="#lcl.controls.TControl.Text">TControl.Text</link>
+          <link id="#lcl.stdctrls.TEditCharCase"/>
+        </seealso>
       </element>
 
       <element name="TCustomEdit.EchoMode">