Foros Club Delphi - Problemas al intentar pasar codigo Delphi a c++ builder

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- FireMonkey (https://www.clubdelphi.com/foros/forumdisplay.php?f=50)

- - Problemas al intentar pasar codigo Delphi a c++ builder (https://www.clubdelphi.com/foros/showthread.php?t=96179)

Problemas al intentar pasar codigo Delphi a c++ builder

Hola

Trabajo con C++ y necesito usar este codigo escrito en Delphi (funciona):

Código Delphi [-]Var A:Integer;
Var LastPanel : Double;
Begin
For A=0 to HorzscrollBox1.content.childrenCount-1 
To TGridLayout (HorzscrollBox1.content.children[A].widht:= HorzscrollBox1.width;
HorzscrollBox1.ViewportPosition:=TPointF.Create(LastPanel * HorzscrollBox1.width,0 );
End

he implementado solo :

Código:

 for (int a=0; a<=HorzScrollBox1->Content->ChildrenCount-1;a++)



  {

        TGridLayout(HorzScrollBox1->Content->Children[a])->Width = HorzScrollBox1->Width;

        HorzscrollBox1->ViewportPosition=

  }

me da el error en la linea "TGridLayout(HorzScrollBox1->Content->...." "matching conversion for functional-style cast from 'Fmx::Types::TFmxChildrenList' to 'Fmx::Layouts::TGridLayout'"

Ademas creo que TPointF es un tipo incluido en SystemTypes.h pero no se como implemetarlo.

¿Es posible?, Gracias.

¿Eso en delphi funciona?

Eso Creo: www .youtube. com/ watch?v=YU7MlY58n9U (minuto 7:28)

Vale, es que no está bien copiado el código, por eso me extrañaba.
La primera línea va en el bucle, la segunda debe ir fuera.

Solucionad0 gracias a la ayuda de Volvo:

Código:

for(int A = 0; A < HorzScrollBox1->Content->ChildrenCount; A++)

{

  static_cast<TGridLayout*>(HorzScrollBox1->Content->Children->Items[A])->Width = HorzScrollBox1->Width;

}

HorzScrollBox1->ViewportPosition = PointF(LastPanel * HorzScrollBox1->Width, 0.0);

No olvides usar las etiquetas para código... y ¿quién es Volvo?