|
|
@@ -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
|
Martijn Laan