1

REBOL 現在、Delphi で作成した小さなアプリをやり直そうとしています。このアプリはn個の背景画像とn個のテキストを表示しますが、画像とテキストの変更ができず、画像とテキストの変更は>>ボタンで行います。

これは、私が見つけたので、ランダムな部分を除いた単純化されたコードです。

Rebol[
Title: "You have a message !"
Version: 1.0.0
Needs: [1.2.115]
]

the-imag1: load %"/C/MyFile/Cours CD/Affiche/Images/Vague9.jpg"
the-imag2: load %"/C/MyFile/Cours CD/Affiche/Images/Vague3.jpg"
the-image: the-imag1
text1: "Your banner text here" 

view xx1: layout [
size the-image/size
b1: backdrop the-image

at b1/offset + 110x120
box  350x150 font-size 20 font-color black [align: 'center] text1

    at b1/offset + 530x370
    btn ">>" [the-image: the-imag2 ; new image
              text1: "Hello"       ; new text
               show xx1] effect [multiply 90]
]
4

1 に答える 1

1

コンテンツだけでなく、顔を再定義しています。必要なフィールドを再定義するだけです。これを試して：

Rebol[
    Title: "You have a message !"
    Version: 1.0.0
    Needs: [1.2.115]
]

the-imag1: load %"/C/MyFile/Cours CD/Affiche/Images/Vague9.jpg"
the-imag2: load %"/C/MyFile/Cours CD/Affiche/Images/Vague3.jpg"
the-image: the-imag1
text1: "Your banner text here" 

view xx1: layout [
size the-image/size
b1: backdrop the-image

at b1/offset + 110x120
t1: text text1

    at b1/offset + 530x370
    btn ">>" [
        b1/image: the-imag2       ; new image
        t1/text: "Hello"       ; new text
        show xx1
    ] effect [multiply 90]
]
于 2013-03-15T12:40:39.183 に答える