Objekte auf ScollView platzieren

[Crocotronic]

Guten Abend,
ich bin gerade auf folgendes Problem gestoßen: in einer Schleife platziere ich ein paar Views auf einem ScrollView. Die Content-Höhe wächst dynamisch mit (ScrollView.setContentSize(CGSizeMake(FWidth,FLastY)) ). Wenn jetzt aber der Y-Wert unter dem sichtbaren Bereich liegt, dann wird das Objekt einfach bei (0|0) angezeigt.

So erstell ich den ganzen Kram:

Delphi-Quellcode:

Row:= TTMSFMXNativeUIView.Create(FContainer);  
with Row do
  begin
   Parent:= FContainer;
   Width:= ROW_WIDTH;
   Height:= ROW_HEIGHT;
   Position.X:= START_X;
   Position.Y:= FLastY;
  end;

  with TTMSFMXNativeUILabel.Create(Row) do
  begin
   Parent:= Row;
   Align:= TAlignLayout.alMostLeft;
   Alignment:= TTextAlign.taCenter;
   Width:= 20;
   Text:= 'Test';
   Font.Size:= 14;
  end;
{usw...}

Jemand eine Idee wie ich das lösen kann?

Viele Grüße
Croco

[Perlsau]

Bei solchen Angelegenheiten verwende ich gerne ein TPanel (Panel.top := 0; Panel.Left := 0), das sich in der Breite dem Scrollview anpaßt (Panel.Width := ScrollView.ClientWidth; Panel.Anchors := [akLeft,akTop,akRight]) und in der Höhe der Anzahl der zu platzierenden Komponenten. Dabei werden die Komponenten, die bei dir Views heißen, jedesmal neu platziert, wenn sich die Größe des TPanels ändert (OnResize). Dazu ist natürlich etwas Rechenarbeit erforderlich, aber so funktioniert es einwandfrei.

[Crocotronic]

Zitat von Perlsau:

die bei dir Views heißen

Da liegt das Probleme: es sind Views und keine Panels
Im Anhang habe ich mal ein Testprojekt rein gepackt, dass 10 Buttons auf einem View erstellt, das Ergebnis seht ihr auch unten.

Der Code:

Delphi-Quellcode:

procedure TForm1.TMSFMXNativeUIButton1Click(Sender: TObject);
var n: Integer;
    Y: Integer;
begin
 Y:=0;
 for n:= 0 to 9 do
 begin
  with TTMSFMXNativeUIButton.Create(View1) do
  begin
   Parent:= View1;
   Position.Y:= Y;
   Position.X:= 50;
   Text:= 'Button Nr.'+n.ToString();
  end;
  Inc(Y,40);
 end;
end;

Viele Grüße
Croco

[Darlo]

Das weiß ich

Abgesehen davon dass du keine ScrollView auf dem Form hast fehlt das Initialize;

Delphi-Quellcode:

procedure TForm1.TMSFMXNativeUIButton1Click(Sender: TObject);
var n: Integer;
    Y: Integer;
    orgHeight: double;
begin
 Y:=0;
 orgHeight := scrollView1.Height;
 for n:= 0 to 9 do
  begin
    View1.Height := (n+1)*40;
    View1.Initialize;
    scrollView1.Height := (n+1)*40;
    scrollView1.Initialize;
    with TTMSFMXNativeUIButton.Create(View1) do
      begin
       Parent:= View1;
       Position.Y:= Y;
       Position.X:= 50;
       Text:= 'Button Nr.'+n.ToString();
       Initialize;
      end;
    Inc(Y,40);
  end;
  scrollView1.Height := orgHeight;
end;

Habs Dir auch mal hochgeladen.

[Crocotronic]

Ahaaa, das muss man auch noch machen
Vielen Dank!!!