Question

REBOL 我目前正在尝试重做我在Delphi中制作的小应用程序。此应用程序在n中显示背景图像，在n中显示文本，但我无法更改图像或文本，图像和文本的更改由按钮＆gt;＆gt;完成。

这是没有随机部分的简化代码，因为我发现了它：

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]
]

Answer 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]
]

REBOL更改背景图像和文本

1 个答案: