> >Private lcName >lcName = sys(2015) >backcolor = 255 >Backstyle = 0 >thisform.addobject( lcName, "shape" ) > >with GETPEM(thisform,lcName) > .Move(mcol(thisform.Name, 3),mrow( thisform.Name, 3 )) && the form name should to be unique > .Visible = .t. >endwith > > >>
.Visible = .Move(mcol(0, 3),mrow(0, 3 ))>However, it's position on the screen is controlled by Mcol and Mrow and the form I have contains the image of a map that exceeds the screen size. Therefore, I am searching for a solution that uses coordinates. CurrentX and CurrentY might work. I'll try that.
LPARAMETERS nButton, nShift, nXCoord, nYCoord IF SYS(1270)=m.this thisform.addobject( sys(2015), "shape" ) with thisform.Controls[thisform.ControlCount] && the last member .Move(nXCoord,nYCoord) .Visible = .t. endwith endif