Graphics

Hello,

I would like some help on the script below.

Dim textparent As xpTextObject
Dim textchild As xpTextObject
Dim parent as xpScene
Dim obj As xpBaseObject

Engine.Sequencer.GetSceneByID(20, parent)

parent.GetObjectByName("GroupName", textparent)

self.GetObjectByName("GroupName", textchild)

textchild.text = textparent.text

Can you tell me why it does'nt work ? I have no error but nothing happen

Thanks for your help.

------------------------------
Patrick
------------------------------

Hi.
Try that script. Set it in OnBeforOnline.

        Dim fb As xpOutputFrameBuffer
        engine.GetOutputFrameBuffer(FramebufferIndex, fb)
        Dim textparent As xpTextObject
        Dim textchild As xpTextObject
        Dim parent As xpScene
        If fb.GetSceneOnLayer(Layer, parent) Then
            If self.Name = parent.Name Then
                parent.GetObjectByName("GroupName", textparent)
                self.GetObjectByName("GroupName", textchild)
                textchild.Text = textparent.Text
            End If
        End If

------------------------------
Roman Yaroshenko
chief specialist
RBC-TV
Moscow Russian Federation
------------------------------