Bug in PosRelativeToAnchor

[ADiV]

Hi, I am trying to execute this code, which modifies the properties of "PosRelativeToAnchor" at runtime and does not work:

Code: Pascal  [Select][+][-]

1. procedure TAndroidModule1.btTestClick(Sender: TObject);
2. begin
3.  lbTest2.Anchor := btTest;
4.  lbTest2.PosRelativeToParent:=[rpCenterHorizontal];
5.  lbTest2.PosRelativeToAnchor:=[raBelow];
6.  lbTest2.ResetAllRules();
7.  lbTest2.UpdateLayout();
8. end;

I think I know why, if we modify these lines, it would work correctly, I've tried it and it works (in "androidwidget.pas"):

Code: Pascal  [Select][+][-]

1. procedure jVisualControl.UpdateLayout();
2. begin
3.     if Self.Anchor <> nil then
4.      Self.AnchorId:= Self.Anchor.Id
5.     else
6.      Self.AnchorId:= -1;
7. end;

Attached example of the test performed, I assume that in other components will have the same problem.

[jmpessoa]

I will commit your fix!

Thank you!!!