From bfa315459c7f5c1208e3bb441950fe4ca49ffb11 Mon Sep 17 00:00:00 2001
From: bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Wed, 14 Oct 2015 21:49:11 +0000
Subject: [PATCH] LCL: Publish TRadioButton.Alignment (Issue #0028853).

git-svn-id: trunk@50061 -
---
 lcl/interfaces/gtk2/issues.xml | 15 ++++++++++-----
 lcl/interfaces/qt/issues.xml   |  5 +++++
 lcl/stdctrls.pp                |  1 +
 3 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/lcl/interfaces/gtk2/issues.xml b/lcl/interfaces/gtk2/issues.xml
index 7abc3f2b2c..cb3a42fb25 100644
--- a/lcl/interfaces/gtk2/issues.xml
+++ b/lcl/interfaces/gtk2/issues.xml
@@ -3,17 +3,22 @@
 	<widgetset name="gtk2">
 		<issue name="TCheckBox.Alignment">
 			<short>CheckBox Alignment property is not supported</short>
+			<descr>Use BiDiMode = bdRightToLeft as a workaround</descr>
 		</issue>
-		<issue name="TComboBox.DropDownCount">
+		<issue name="TRadioButton.Alignment">
+			<short>RadioButton Alignment property is not supported</short>
+			<descr>Use BiDiMode = bdRightToLeft as a workaround</descr>
+		</issue>
+        <issue name="TComboBox.DropDownCount">
 			<short>Combo box DropDownCount property is not supported</short>
 		</issue>
 		<issue name="TEdit.HideSelection">
 			<short>HideSelection property is not supported</short>
 		</issue>
-	        <issue name="TForm.BorderStyle">
-	        	<short>Not supported for nested Forms</short>
-	        	<descr>If you put a form onto another it will have no window borders or title</descr>
-	        </issue>
+		<issue name="TForm.BorderStyle">
+			<short>Not supported for nested Forms</short>
+			<descr>If you put a form onto another it will have no window borders or title</descr>
+		</issue>
 		<issue name="TMemo.HideSelection">
 			<short>HideSelection property is not supported</short>
 		</issue>
diff --git a/lcl/interfaces/qt/issues.xml b/lcl/interfaces/qt/issues.xml
index 803b1166c8..d7166bfb6d 100644
--- a/lcl/interfaces/qt/issues.xml
+++ b/lcl/interfaces/qt/issues.xml
@@ -3,6 +3,11 @@
 	<widgetset name="qt">
 		<issue name="TCheckBox.Alignment">
 			<short>CheckBox Alignment property is not supported</short>
+			<descr>Use BiDiMode = bdRightToLeft as a workaround</descr>
+		</issue>
+		<issue name="TRadioButton.Alignment">
+			<short>RadioButton Alignment property is not supported</short>
+			<descr>Use BiDiMode = bdRightToLeft as a workaround</descr>
 		</issue>
 		<issue name="TEdit.HideSelection">
 			<short>HideSelection property is not supported</short>
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index d1c123292e..111752c36a 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -1399,6 +1399,7 @@ type
     constructor Create(TheOwner: TComponent); override;
   published
     property Align;
+    property Alignment;
     property Anchors;
     property AutoSize default True;
     property BidiMode;