c++ builder XE4, 10.2 Tokyo > form > フォームサイズ自動変更

C++ Builder XE4 on Windows 7pro
Rad Studio 10.2 Tokyo Update 2 on Windows 10 Pro(追記: 2017/12/26)

void __fastcall TForm1::Screen_autoSizeSetting()
{
    // 基準となるノートPCの解像度
    int noteW = 1367;
    int noteH = 768;

    int myW = Screen->Monitors[0]->Width;
    int myH = Screen->Monitors[0]->Height;

    if (myW <= noteW && myH <= noteH) {
        return;
    }

    float ratioH = (float)myH / (float)noteH;
    float ratioW = (float)myW / (float)noteW;

    int setRatio;
    if (ratioH < ratioW) {
        setRatio = ratioH * 100; // 少数第二位まで扱う
    } else {
        setRatio = ratioW * 100;
    }

//  String msg = IntToStr(setRatio);
//  OutputDebugString(msg.c_str());

    this->ScaleBy(setRatio, 100);

}

void __fastcall TFormMain_graph::XXX_autoSizeSetting(TForm *formsPtr[], int num)
{
    // 基準となるノートPCの解像度
    int noteW = 1367;
    int noteH = 768;

    int myW = Screen->Monitors[0]->Width;
    int myH = Screen->Monitors[0]->Height;

    float ratioH = (float)myH / (float)noteH;
    float ratioW = (float)myW / (float)noteW;

    int setRatio;
    if (ratioH < ratioW) {
        setRatio = ratioH * 100; // 少数第二位まで扱う
    } else {
        setRatio = ratioW * 100;
    }

    for(int idx=0; idx < num; idx++) {
        formsPtr[idx]->ScaleBy(setRatio, 100);
    }

}

void __fastcall TFormMain_graph::Screen_autoSizeSetting()
{

    TForm *forms[] = {
        this,
        Form2,
        FormXXX,
    };
    int numForms = sizeof(forms) / sizeof(TForm *);

    XXX_autoSizeSetting(forms, numForms);

    return;
}