Add Anchors support.

Components/BidiUtils.pas

@@ -2,13 +2,11 @@ unit BidiUtils;
 
 {
   Inno Setup
-  Copyright (C) 1997-2007 Jordan Russell
+  Copyright (C) 1997-2018 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
   Bidi utility functions
-
-  $jrsoftware: issrc/Components/BidiUtils.pas,v 1.2 2007/11/27 04:52:53 jr Exp $
 }
 
 interface
@@ -75,6 +73,10 @@ begin
     ParentWidth := AParentCtl.ClientWidth;
     for I := 0 to AParentCtl.ControlCount-1 do begin
       Ctl := AParentCtl.Controls[I];
+      if (akLeft in Ctl.Anchors) and not (akRight in Ctl.Anchors) then
+        Ctl.Anchors := Ctl.Anchors - [akLeft] + [akRight]
+      else if not (akLeft in Ctl.Anchors) and (akRight in Ctl.Anchors) then
+        Ctl.Anchors := Ctl.Anchors - [akRight] + [akLeft];
       Ctl.Left := ParentWidth - Ctl.Width - Ctl.Left;
     end;
   finally