Index: checklst.pas
===================================================================
--- checklst.pas	(revision 43521)
+++ checklst.pas	(working copy)
@@ -185,8 +185,12 @@
 
 procedure TCustomCheckListBox.DrawItem(AIndex: Integer; ARect: TRect; State: TOwnerDrawState);
 begin
-  if not Header[AIndex] then
-    Inc(ARect.Left, GetCheckWidth);
+  if not Header[AIndex] then begin
+    if UseRightToLeftAlignment then
+      Dec(ARect.Right, GetCheckWidth)
+    else
+      Inc(ARect.Left, GetCheckWidth);
+  end;
   inherited;
 end;
 
Index: extctrls.pp
===================================================================
--- extctrls.pp	(revision 43521)
+++ extctrls.pp	(working copy)
@@ -639,6 +639,7 @@
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
     function CanModify: boolean; virtual;
+    procedure FlipChildren(AllLevels: Boolean); override;
     function Rows: integer;
   public
     property AutoFill: Boolean read FAutoFill write SetAutoFill;
@@ -750,6 +751,7 @@
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
+    procedure FlipChildren(AllLevels: Boolean); override;
     function Rows: integer;
   public
     property AutoFill: boolean read FAutoFill write SetAutoFill;
Index: include/customcheckgroup.inc
===================================================================
--- include/customcheckgroup.inc	(revision 43521)
+++ include/customcheckgroup.inc	(working copy)
@@ -341,5 +341,10 @@
     Result:=0;
 end;
 
+procedure TCustomCheckGroup.FlipChildren(AllLevels: Boolean);
+begin
+  // no flipping
+end;
+
 // included by extctrls.pp
 
Index: include/radiogroup.inc
===================================================================
--- include/radiogroup.inc	(revision 43521)
+++ include/radiogroup.inc	(working copy)
@@ -13,7 +13,6 @@
   Delphi compatibility:
 
    - the interface is almost like in delphi 5
-   - FlipChildren procedure is missing
 }
 
 
@@ -562,6 +561,11 @@
   UpdateControlsPerLine;
 end;
 
+procedure TCustomRadioGroup.FlipChildren(AllLevels: Boolean);
+begin
+  // no flipping
+end;
+
 {------------------------------------------------------------------------------
   procedure TCustomRadioGroup.UpdateRadioButtonStates;
   
Index: interfaces/win32/win32wschecklst.pp
===================================================================
--- interfaces/win32/win32wschecklst.pp	(revision 43521)
+++ interfaces/win32/win32wschecklst.pp	(working copy)
@@ -74,7 +74,10 @@
     for I := 0 to Windows.SendMessage(Window, LB_GETCOUNT, 0, 0) - 1 do
     begin
       Windows.SendMessage(Window, LB_GETITEMRECT, I, PtrInt(@ItemRect));
-      ItemRect.Right := ItemRect.Left + ItemRect.Bottom - ItemRect.Top;
+      if TCheckListbox(WindowInfo^.WinControl).UseRightToLeftAlignment then
+        ItemRect.Left := ItemRect.Right - ItemRect.Bottom + ItemRect.Top
+      else
+        ItemRect.Right := ItemRect.Left + ItemRect.Bottom - ItemRect.Top;
       if Windows.PtInRect(ItemRect, MousePos) then
       begin
         // item clicked: toggle
@@ -178,6 +181,7 @@
     Enabled, Selected: Boolean;
     ARect, TextRect: Windows.Rect;
     Details: TThemedElementDetails;
+    TextFlags: DWord;
     OldColor: COLORREF;
     OldBkMode: Integer;
   {$ifdef WindowsUnicodeSupport}
@@ -190,7 +194,10 @@
 
     ARect := Data^.rcItem;
     TextRect := ARect;
-    TextRect.Left := TextRect.Left + TextRect.Bottom - TextRect.Top + 4;
+    if CheckListBox.UseRightToLeftAlignment then
+      TextRect.Right := TextRect.Right - TextRect.Bottom + TextRect.Top - 4
+    else
+      TextRect.Left := TextRect.Left + TextRect.Bottom - TextRect.Top + 4;
 
     // fill the background
     if Selected then
@@ -202,13 +209,23 @@
       Windows.FillRect(Data^._HDC, ARect, CheckListBox.Brush.Reference.Handle);
 
     // draw checkbox
-    ARect.Right := ARect.Left + ARect.Bottom - ARect.Top;
+    if CheckListBox.UseRightToLeftAlignment then
+      ARect.Left := ARect.Right - ARect.Bottom + ARect.Top
+    else
+      ARect.Right := ARect.Left + ARect.Bottom - ARect.Top;
 
     Details := ThemeServices.GetElementDetails(ThemeStateMap[CheckListBox.State[Data^.ItemID], Enabled]);
     ThemeServices.DrawElement(Data^._HDC, Details, ARect);
 
     // draw text
-    TextRect.Left := TextRect.Left + 2;
+    if CheckListBox.UseRightToLeftAlignment then begin
+      TextRect.Right := TextRect.Right - 2;
+      TextFlags := DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX or DT_RIGHT;
+    end
+    else begin
+      TextRect.Left := TextRect.Left + 2;
+      TextFlags := DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX;
+    end;
     OldBkMode := Windows.SetBkMode(Data^._HDC, TRANSPARENT);
     if not Enabled then
       OldColor := Windows.SetTextColor(Data^._HDC, Windows.GetSysColor(COLOR_GRAYTEXT))
@@ -227,17 +244,17 @@
     begin
       WideBuffer := UTF8ToUTF16(CheckListBox.Items[Data^.ItemID]);
       Windows.DrawTextW(Data^._HDC, PWideChar(WideBuffer), -1,
-       TextRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
+       TextRect, TextFlags);
     end
     else
     begin
       AnsiBuffer := Utf8ToAnsi(CheckListBox.Items[Data^.ItemID]);
       Windows.DrawText(Data^._HDC, PChar(AnsiBuffer), -1,
-       TextRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
+       TextRect, TextFlags);
     end;
   {$else}
     Windows.DrawText(Data^._HDC, PChar(CheckListBox.Items[Data^.ItemID]), -1,
-      TextRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);
+      TextRect, TextFlags);
   {$endif}
     // restore old colors
     Windows.SetTextColor(Data^._HDC, OldColor);
@@ -244,7 +261,10 @@
     Windows.SetBkMode(Data^._HDC, OldBkMode);
     if Enabled and ((Data^.itemState and ODS_FOCUS) > 0) and CheckListBox.Focused then
     begin
-      TextRect.Left := TextRect.Left - 2;
+      if CheckListBox.UseRightToLeftAlignment then
+        TextRect.Right := TextRect.Right + 2
+      else
+        TextRect.Left := TextRect.Left - 2;
       Windows.DrawFocusRect(Data^._HDC, TextRect);
     end;
   end;