C++ Builder XE4 > Form > フォーム上のコンポーネントの配置を比率で行う

16687 ワード
geometry cppBuilder cppBuilder テキストリンク
動作環境
C++ Builder XE4

コンポーネントの自動配置

コンポーネントの自動配置としてAnchorsプロパティがある。
AnchorsプロパティのakLeft, akTop, akRight, akBottomを全てTrueにすると、フォーム拡大時にフォームサイズに合わせてコンポーネントサイズが変更される。

しかしながら、それは「絶対値」での変更であり、複数のコンポーネントがある場合に希望の動作にならない。

初期状態

拡大時

配置を比率で行う

配置を「絶対値」でなく「比率」で行うようにしてみる。

code

Unit1.h
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE で管理されるコンポーネント
    TStringGrid *StringGrid1;
    TStringGrid *StringGrid2;
    TStringGrid *StringGrid3;
    void __fastcall FormResize(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall FormShow(TObject *Sender);
private:    // ユーザー宣言
    void __fastcall registerComponents(TForm *formPtr, TControl *ctlPtr);
    void __fastcall releaseComponents(void);
    void __fastcall resizeWithRatio(void);
    TList *m_ctlList;  // 位置情報の構造体リスト
    struct POSI_RATIO { // 位置情報の構造体
        TControl *ctlPtr;
        double left;
        double top;
        double width;
        double height;
    };
public:     // ユーザー宣言
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    m_ctlList = new TList();
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    releaseComponents();

    m_ctlList->Clear();
    delete m_ctlList;
}

//---------------------------------------------------------------------------

void __fastcall TForm1::registerComponents(TForm *formPtr, TControl *ctlPtr)
{
    POSI_RATIO *posRat;

    posRat = new POSI_RATIO;
    posRat->ctlPtr = ctlPtr;
    posRat->left = (double)ctlPtr->Left / formPtr->Width;
    posRat->top = (double)ctlPtr->Top / formPtr->Height;
    posRat->width = (double)ctlPtr->Width / formPtr->Width;
    posRat->height = (double)ctlPtr->Height / formPtr->Height;

    m_ctlList->Add(posRat);
}

void __fastcall TForm1::releaseComponents(void)
{
    POSI_RATIO *posRat;

    if (m_ctlList == NULL) {
        return;
    }

    for(int idx=0; idx < m_ctlList->Count; idx++) {
        posRat = (POSI_RATIO *)m_ctlList->Items[idx];
        delete posRat;
    }
}

void __fastcall TForm1::resizeWithRatio(void)
{
    POSI_RATIO *posRat;

    for(int idx=0; idx < m_ctlList->Count; idx++) {
        posRat = (POSI_RATIO *)m_ctlList->Items[idx];
        posRat->ctlPtr->Left = posRat->left * this->Width;
        posRat->ctlPtr->Top = posRat->top * this->Height;
        posRat->ctlPtr->Width = posRat->width * this->Width;
        posRat->ctlPtr->Height = posRat->height * this->Height;
    }
}

void __fastcall TForm1::FormResize(TObject *Sender)
{
    resizeWithRatio();
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
    registerComponents(this, this->StringGrid1);
    registerComponents(this, this->StringGrid2);
    registerComponents(this, this->StringGrid3);
}
//---------------------------------------------------------------------------

実行例

初期状態

拡大時

コンポーネントが重なることはなくなった。

比率でのサイズ変更のため、拡大時にマージン(絶対値)自体も大きくなる。