例 905. 宣言

SFMTYPEDEFRESPONDER(USRWindow)
class USRWindow: public SFZWindow {
    SFMSEALRESPONDER(USRWindow)
    SFMRESPONDERINSTANTIATEFOUR(USRWindow, SFZWindow, SFYContainer, SFYWidget, SFYResponder)
private:
    SFZContainerSmp _container;
    SFZScrollBarControlSmp _bar;

public:
    SFCError Make(Void);

    // ...
private:

    // コンテナの領域情報を読み取りスクロールバーのサムの位置と大きさを設定する関数
    Void Listen(SFYResponderPtr container);

    // コンテナの実領域と仮想領域に関する領域イベント用ハンドラ
    XANDLER_DECLARE_VOIDBOUND(OnContainerBound)
};

例 906. 実装

#define SCROLLBAR_WIDTH 5

SFCError USRWindow::Make(Void)
{
    SFCError error(SFERR_NO_ERROR);

    // コンテナを作成する
    if ((_container = SFZContainer::NewInstance(&error)) != null) {

        // コンテナの親を USRWindow に設定する
        error = _container->SetParent(GetThis());
        if (error == SFERR_NO_ERROR) {

            // 実領域と仮想領域に関する領域イベント用ハンドラをコンテナに登録する
            error = _container->RegisterHandler(
                SFXEventRange(SFEVT_RESPONDER_BOUND, SFEVT_RESPONDER_BOUND, SFP16_BOUND_REAL, SFP16_BOUND_VIRTUAL),
                XANDLER_INTERNAL(OnContainerBound)
            );

            if (error == SFERR_NO_ERROR) {

                // コンテナの背景色を設定する
                _container->SetBackgroundColor(SFXRGBColor(0xFF, 0xCC, 0xCC, 0x00));

                // コンテナの実領域をウィンドウのローカル領域からスクロールバーの分だけ除いた領域に設定する
                _container->SetRealBound(GetLocalBound().SubWidth(SCROLLBAR_WIDTH));

                // コンテナの仮想領域を実領域から上下に 100 ずつ広げた領域に設定する
                _container->SetVirtualBound(SFXRectangle(_container->GetRealBound()).Inflate(0, 100));

                // コンテナの状態を「可視＋活性＋操作可能＋フォーカス」にまとめて設定する
                _container->SetState(true, true, true, true);
                if ((_bar = SFZScrollBarControl::NewInstance(&error)) != null) {

                    // スクロールバーの親を USRWindow に設定する
                    error = _bar->SetParent(GetThis());
                    if (error == SFERR_NO_ERROR) {

                        // コンテナの右横にスクロールバーを配置する
                        _bar->SetRealBound(GetLocalBound().SetX(_container->GetRealBound().GetRight()).SetWidth(SCROLLBAR_WIDTH));

                        // スクロールバーの状態を「可視＋活性＋操作不能＋非フォーカス」にまとめて設定する
                        _bar->SetState(true, true, false, false);

                        // コンテナの領域情報を読み取りスクロールバーのサムの位置と大きさを設定する
                        Listen(_container.Get());
                    }
                }
            }
        }
    }

    return error;
}

// コンテナの領域情報を読み取りスクロールバーのサムの位置と大きさを設定する関数
Void USRWindow::Listen(SFYResponderPtr container)
{
    SFXRectangle rx;
    SFXRectangle vx;
    SInt16 max;
    SInt16 cur;
    SInt16 page;

    if (_bar != null & container != null) {

        // コンテナの実領域を取得する
        rx = container->GetRealBound();

        // コンテナの仮想領域を取得する
        vx = container->GetVirtualBound();

        if (_bar->GetOrientation() == SFYScrollBarControl::VERTICAL) {
            // スクロールの方向が垂直の場合

            // max の値を仮想領域の縦幅に設定する
            max = vx.GetHeight();

            // cur の値をローカル座標系における実領域の始点の Y 値に設定する
            cur = -vx.GetTop();

            // page の値を実領域の縦幅に設定する
            page = rx.GetHeight();
        }
        else {
            // スクロールの方向が水平の場合

            // max の値を仮想領域の横幅に設定する
            max = vx.GetWidth();

            // cur の値をローカル座標系における実領域の始点の X 値に設定する
            cur = -vx.GetLeft();

            // page の値を実領域の横幅に設定する
            page = rx.GetWidth();
        }

        // 最小値を設定する (この値は常に 0 である)
        _bar->SetMinimumValue(0);

        // 最大値を設定する (この値は仮想領域の横幅もしくは縦幅になる)
        _bar->SetMaximumValue(max);

        // 現在値を設定する (この値はローカル領域座標系における実領域の始点の X 値または Y 値になる)
        _bar->SetCurrentValue(cur);

        // ページサイズを設定する (この値は実領域の横幅もしくは縦幅になる)
        _bar->SetPageValue(page);
    }
}

// コンテナの実領域と仮想領域に関する領域イベント用ハンドラ
XANDLER_IMPLEMENT_VOIDBOUND(USRWindow, OnContainerBound, invoker, reason, bound)
{
    unused(reason);
    unused(bound);

    // invoker にはコンテナが渡される

    // コンテナの領域が変更されたときにスクロールバーのサムの位置と大きさ更新する
    Listen(invoker);
}