UJMLサンプル009：画面の中央で「俺の名は、、、」(2006/02/02)

何かと画面の中央に表示したいものです。そこで、例の「ルパン三世ティッカー」を画面中央で表示するようにしました。

---コード
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE ujml PUBLIC "-//UIEVOLUTION//DTD UJML 1.2//EN" "ujml.dtd" [
    <!ENTITY ORENO_MESSAGE "俺の名はルパン三世" >
    <!ENTITY SPACING "4">
]>
<ujml>
    <application>
        <state-variables>
            <state-var name="sMessage" type="boolean" />
        </state-variables>
        <variables>
            <var name="mScrWidth" type="int" />
            <var name="mScrHeight" type="int" />

            <var name="mPosX" type="int" />
            <var name="mPosY" type="int" />

            <var name="mMessage" type="string"/>
            <var name="mChar" type="string"/>
            <var name="mCounter" type="int"/>
            <var name="mMessageLength" type="int"/>

            <var name="mWidth" type="int"/>
            <var name="mOneWidth" type="int"/>
            <var name="mHeight" type="int"/>
        </variables>

        <script>
            <!-- スクリーンのサイズを調べる -->
            mScrWidth = _getIntProperty(&_PROPERTY_INT_SCREEN_WIDTH;);
            mScrHeight = _getIntProperty(&_PROPERTY_INT_SCREEN_HEIGHT;);

            <!-- 1文字分の幅 -->
            mOneWidth = (&SPACING; * 2) +_text_width("俺", &_FONT_SIZE_MEDIUM;,
                &_FONT_STYLE_ITALIC;, &_FONT_FACE_SYSTEM;);

            <!-- 全文字数分の幅 -->
            mWidth = (&SPACING; * 2) +
                _text_width("&ORENO_MESSAGE;", &_FONT_SIZE_MEDIUM;,
                &_FONT_STYLE_ITALIC;, &_FONT_FACE_SYSTEM;);

            <!-- 高さ -->
            mHeight = (&SPACING; * 2) +
                _text_height(&_FONT_SIZE_MEDIUM;, &_FONT_STYLE_ITALIC;,
                &_FONT_FACE_SYSTEM;);

            <!-- 中心の位置 -->
            mPosX = (mScrWidth / 2) - (mOneWidth / 2);
            mPosY = (mScrHeight / 2) - (mHeight / 2);

            mMessage = "&ORENO_MESSAGE;";
            mMessageLength = _strlen(mMessage);
            mCounter = 0;
            mChar = _substring(mMessage, mCounter, mCounter + 1);
            sMessage = true;
        </script>
        <!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
        <display>
            <fn>
                <text>Back</text>
                <event name="onselect">
                    <accelerators> <key>F1</key> </accelerators>
                    <script>
                        _unload();
                    </script>
                </event>
            </fn>
        </display>
        <states>
            <state var="sMessage">
                <transition value="true">
                    <display>
                        <!-- 四角い箱の中にラベルを配置しています。 -->
                        <box>
                            <x><eval>mPosX</eval></x>
                            <y><eval>mPosY</eval></y>
                            <width><eval>mOneWidth</eval></width>
                            <height><eval>mHeight</eval></height>
                            <fg>&_COLOR_BLACK;</fg>
                            <bg>&_COLOR_BLACK;</bg>
                            <label>
                                <text><eval>mChar</eval></text>
                                <x>&SPACING;</x>
                                <y>&SPACING;</y>
                                <fg>&_COLOR_WHITE;</fg>
                                <bg>&_COLOR_BLACK;</bg>
                            </label>
                        </box>
                    </display>
                    <delay>200</delay>
                    <script>
                        sMessage = false;
                        mCounter++;
                        if(mCounter == _strlen(mMessage))mCounter = 0;
                        mChar = _substring(mMessage, mCounter, mCounter + 1);
                        sMessage=true;
                    </script>
                </transition>
            </state>
        </states>
    </application>
</ujml>