Resizing a TCustomControl to fit TField contents

void SizeControlToField(TCustomControl* control, TField* field)
LPTEXTMETRIC lptm = static_cast<LPTEXTMETRIC>(malloc(sizeof(TEXTMETRIC)));
DC = ::GetDC(control->Parent->Handle);
::GetTextMetrics(DC, lptm);
if (field->DataType == TFieldType::ftString) {
control->Width = field->DataSize * lptm->tmAveCharWidth;

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s