Right alignment of a FMX.TStringGrid column after data binding at runtime in C++builder - firemonkey

Question

I am struggling to right align a column in a TStringGrid populated after data binding at runtime in C++builder 10.4. I followed the Delphi snippets found here
and there
, but without any success.
As result of the code below, the grid rows are drawn, but without text. Scrolling can be done in empty rows.
// .h
class fLinkGridToDataSource : public TLinkGridToDataSource
{protected:
virtual void __fastcall Reactivate() {};
virtual bool __fastcall RequiresControlHandler() {return true;};
public:
__fastcall virtual fLinkGridToDataSource(System::Classes::TComponent* AOwner) override : TLinkGridToDataSource(AOwner) {};
__fastcall virtual ~fLinkGridToDataSource()override {};
};
//---------------------------------------------------------------------------
class TForm1 : public TForm
{/* ... */
public: // Déclarations utilisateur
__fastcall TForm1(TComponent* Owner);
TRESTClient *RESTClient1;
TRESTRequest *RESTRequest1;
TRESTResponse *RESTResponse1;
TBindSourceDB *BindSourceDB1;
TClientDataSet *ClientDataSet1;
TRESTResponseDataSetAdapter *RESTResponseDataSetAdapter1;
fLinkGridToDataSource *LinkGridToDataSource1;
};
//---------------------------------------------------------------------------
class fThread : public TThread
{private:
protected:
void __fastcall Execute();
public:
__fastcall fThread(bool CreateSuspended);
};
//---------------------------------------------------------------------------
//===========================================================================
// .cpp
void __fastcall TForm1::FormShow(TObject *Sender)
{AniIndicator1->Enabled = false;
AniIndicator1->Visible = false;
StringGrid1->DefaultDrawing = false;
RESTClient1 = new TRESTClient(this);
RESTRequest1 = new TRESTRequest(this);
RESTResponse1 = new TRESTResponse(this);
BindSourceDB1 = new TBindSourceDB(this);
ClientDataSet1 = new TClientDataSet(this);
LinkGridToDataSource1 = new fLinkGridToDataSource(this);
RESTResponseDataSetAdapter1 = new TRESTResponseDataSetAdapter(this);
fThread *Thread1 = new fThread(true); Thread1->Start();
}
//---------------------------------------------------------------------------
__fastcall fThread::fThread(bool CreateSuspended)
: TThread(CreateSuspended)
{FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall fThread::Execute()
{Synchronize([this](){Form1->AniIndicator1->Align = TAlignLayout::Contents;
Form1->AniIndicator1->Enabled = true;
Form1->AniIndicator1->Visible = true;
}
);
Form1->RESTClient1->BaseURL = "my.URL.php";
Form1->RESTRequest1->AddParameter("ID", "3");
Form1->RESTRequest1->Client = Form1->RESTClient1;
Form1->RESTRequest1->Response = Form1->RESTResponse1;
Form1->RESTResponse1->ContentType = "application/json";
Form1->RESTResponseDataSetAdapter1->Dataset = Form1->ClientDataSet1;
Form1->RESTResponseDataSetAdapter1->Response = Form1->RESTResponse1;
Form1->RESTResponseDataSetAdapter1->Active = true;
Form1->RESTRequest1->Execute();
Form1->BindSourceDB1->DataSet = Form1->ClientDataSet1;
Form1->LinkGridToDataSource1->DataSource = Form1->BindSourceDB1;
Synchronize([this](){Form1->LinkGridToDataSource1->GridControl = Form1->StringGrid1;
if(Form1->StringGrid1->ColumnCount == 2)
{Form1->StringGrid1->Columns[0]->Width = (Form1->StringGrid1->Width/4)*3;
Form1->StringGrid1->Columns[1]->Width = (Form1->StringGrid1->Width/4)*1;
} }
);
Synchronize([this](){Form1->AniIndicator1->Enabled = false;
Form1->AniIndicator1->Visible = false;
}
);
Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1DrawColumnCell(TObject *Sender, TCanvas * const Canvas,
TColumn * const Column, const TRectF &Bounds, const int Row,
const TValue &Value, const TGridDrawStates State)
{TTextLayout *TextLayout1 = TTextLayoutManager::TextLayoutForClass(TTextLayoutManager::DefaultTextLayout);
try{TextLayout1->BeginUpdate();
try{if(Column->Index == 0) {TextLayout1->HorizontalAlign = TTextAlign::Leading; /*Column->DefaultDrawCell(Canvas, Bounds, Row, Value, State);*/}
if(Column->Index == 1) {TextLayout1->HorizontalAlign = TTextAlign::Trailing; /*Column->DefaultDrawCell(Canvas, Bounds, Row, Value, State);*/}
}
__finally {TextLayout1->EndUpdate();}
TextLayout1->RenderLayout(Canvas);
}
__finally {FreeAndNil(TextLayout1);}
}
//---------------------------------------------------------------------------
Uncommenting Column->DefaultDrawCell(Canvas, Bounds, Row, Value, State);
just leads again to the default left alignment. This is the case also when DefaultDrawing is set to true.
Any idea to fix the issue?