Как в TStringGrid или TGrid зафиксировать первый столбец

[Mazzay 7]

Есть хоть какая-нибудь возможность зафиксировать первый столбец, чтобы он не прокручивался?

То есть нужен аналог свойства FixedCols из VCL,

[Mazzay 7]

Сделал в результате два грида: левый — с одним столбцом, правый — с остальными. Прокрутку синхронизировал:

void __fastcall TMainForm::Grid2ViewportPositionChange(TObject *Sender, const TPointF &OldViewportPosition, const TPointF &NewViewportPosition,
					const bool ContentSizeChanged)
{
	Grid1->ViewportPosition = TPointF(Grid1->ViewportPosition.X, Grid2->ViewportPosition.Y);
}

void __fastcall TMainForm::Grid1ViewportPositionChange(TObject *Sender, const TPointF &OldViewportPosition, const TPointF &NewViewportPosition,
					const bool ContentSizeChanged)
{
	Grid2->ViewportPosition = TPointF(Grid2->ViewportPosition.X, Grid1->ViewportPosition.Y);
}