Lparameters lcStyle Local ln,lcTxt lcTxt=[<div name=']+This.Name+[' style='display: block; position: absolute; width: ]+; Transform(This.Width)+[px; top: ]+; Transform(This.Top)+[px; left: ]+; Transform(This.left)+[px; height: ]+; Transform(This.left)+[px;'>] With This For ln=1 To .ControlCount * lcTxtR=.Controls(ln).Render() * lcTxt=lcTxt+lcTxtR lcTxt=lcTxt+.Controls(ln).Render() EndFor EndWith lcTxt=lcTxt+"</div>" Return lcTxtIf I change the code to replace the lcTxt=lcTxt+.Controls(ln).Render() with two separate lines it works correctly.
Lparameters lcStyle Local ln,lcTxt lcTxt=[<div name=']+This.Name+[' style='display: block; position: absolute; width: ]+; Transform(This.Width)+[px; top: ]+; Transform(This.Top)+[px; left: ]+; Transform(This.left)+[px; height: ]+; Transform(This.left)+[px;'>] With This For ln=1 To .ControlCount lcTxtR=.Controls(ln).Render() lcTxt=lcTxt+lcTxtR EndFor EndWith lcTxt=lcTxt+"</div>" Return lcTxtI can reproduce this error in VFP 7.0.