Позиционирование TViewPort3D

[Gingercat]

Доброго дня. Надеюсь не достал расспросами  . Теперь проблема с вьпортом, а точнее - его выравнивании. Читал пост из ветки : скачал триалку XE7 update 1 - бесполезно, у вьпорта собственные высота и ширина..
 
Пробовал различные выравнивая; засовывал вьюпорт в скролл-бокс, и внаглую задавал ширину и высоту - не помогает.
 
Причем, если задать ControlRoot(TLayout)->Align = TAlignLayout::Bottom - вьпорт цепляет весь экран. Но тут возникает следующая оказия - при смене ориентации экрана, Layout не растягиваеться на весь экран (выравнивание выставляю то Bottom) . Это как теперь - на каждый чих пользователя, задавать Layout  = Client, или вообще получать кооординаты и подстраивать положение? Может кто сталкивался?

 

 

Картинки

 

 

Код

void __fastcall TForm5::SwitchTo2D()
{
	delete FViewport;
	//delete FContainer;
	ControlRoot->Visible = true;
}

void __fastcall TForm5::SwitchTo3D()
{
	
FViewport = new TViewport3D(this);


	FViewport->Align = TAlignLayout::Client;

	//FViewport->Color = TAlphaColorRec::Null;
	FViewport->Parent = this;

	FContainer = new TLayer3D(this);
	FContainer->Projection = TProjection::Screen;
	FContainer->Align = TAlignLayout::Client;
	FContainer->Parent = FViewport;

		TImage *img = new TImage(this);
	img->Bitmap->Assign(ControlRoot->MakeScreenshot());
	img->Parent = FContainer;
	img->Align = TAlignLayout::Client;
	img->Margins = ControlRoot->Margins;

	ControlRoot->Visible = false;
}
void __fastcall TForm5::Button1Click(TObject *Sender)
{
	((TButton *)Sender)->Enabled = false;
	SwitchTo3D();
	if (FContainer != NULL)
	{
		TAnimator::AnimateFloat(FContainer, "Position.Z", 500, 1);
		TAnimator::AnimateFloatDelay(FContainer, "Position.Z", 0, 1, 1);
		TAnimator::AnimateFloatWait(FContainer, "RotationAngle.X", 360, 2 , TAnimationType::InOut, TInterpolationType::Back);
	}
	SwitchTo2D();
	((TButton *)Sender)->Enabled = true;

 

Заранее спасибо)