[android] resize component runtime

[danten]

Hi, I need to resize all TRectangle in TFlowLayout on android.
It doesn't work for me.

Delphi-Quellcode:

procedure TfrmMain.FormResize(Sender: TObject);
var
  i: integer;
begin
  FlowLayout1.BeginUpdate;
  for I := 0 to FlowLayout1.ComponentCount -1 do
  begin
    if Components[i] is TRectangle then
    begin
      TRectangle(Components[i]).BeginUpdate;
      TRectangle(Components[i]).Width := (FlowLayout1.Width / 3) -10;
      TRectangle(Components[i]).EndUpdate;
    end;
  end;
  FlowLayout1.EndUpdate;
end;

Thank you

[TurboMagic]

Two things:

1. What does happen for you? "It doesn't work" is a bit generic as a "failure message"
2. You are sure you want to öpost in English in the German branch of Delphipraxiy?

Regards
TurboMagic

[danten]

Zitat von TurboMagic:

Two things:

1. What does happen for you? "It doesn't work" is a bit generic as a "failure message"
2. You are sure you want to öpost in English in the German branch of Delphipraxiy?

Regards
TurboMagic

And you program in German or English?
I'm not German or American.
Delphipraxis is a good forum, only some users can not advise, but only spam.
I've already advised someone on the forum and I expect someone to advise me too!

Delphi-Quellcode:

var
  i: integer;
  Item : TControl;
begin

    for I := FlowLayout1.ControlsCount -1 downto 0 do
    begin
      Item := FlowLayout1.Controls[i];
      Item.Width := (FlowLayout1.Width / 3) -10;
      Item.Height := Item.Width;
    end;

[tggmx]

If you change your for loop from FlowLayout1.ComponentCount to FlowLayout1.ControlsCount then it should work.

[QuickAndDirty]

Zitat von tggmx:

If you change your for loop from FlowLayout1.ComponentCount to FlowLayout1.ControlsCount then it should work.

I support this .

[Rollo62]

Sometimes UI changes not always trigger a repaint for me.
An explicit .Repaint; might help to clarify.

[TurboMagic]

Zitat von danten:

And you program in German or English?
I'm not German or American.
Delphipraxis is a good forum, only some users can not advise, but only spam.
I've already advised someone on the forum and I expect someone to advise me too!

I program in Delphi
And I usually do advise. But since there is an English speaking Delphipraxis
branch available I see not much reason to post in English in the German one.

I'm quite sure you would have gotten similar advice as you got here over there.
There's simply no use having German forums when everybody starts talking in English
there even when English ones do exist!