void __fastcall TCustomDialog::ScaleButtonControl(TButtonControl * Control)
{
  // this updates Height property to real value
  Control->HandleNeeded();
  // buttons do not scale with text on their own
  Control->Height = ScaleByTextHeight(Control, Control->Height);
}

void __fastcall TCustomDialog::ScaleButtonControl(TButtonControl * Control)
{
   
  Control->HandleNeeded();
   
  Control->Height = ScaleByTextHeight(Control, Control->Height);
}
