>>There is a command that transform the old position (foxpro 2.6 es:20,5@say "Nome")in pitch
>>(es: Object.Width = 40
>> Left = 125 && Command text column
>> Top = 150 && Command text row
>> Height = 25 && Command text height
>>
>>
>Scalemode could be the easiest. Also you could use this example to do conversion :

function boxwindow
>lparameters wname
>
>lcOldFont = _screen.fontname
>lnOldFontSize = _screen.fontsize
>_screen.fontname = wfont(1,wname)
>_screen.fontsize = wfont(2,wname)
>nYCoord = nYInCharSize*_screen.height/wrows(wname)
>nXCoord = nXInCharSize*_screen.width/wcols(wname)
>nWidth = wcols(wname)*_screen.width/scols()
>nHeight = wrows(wname)*_screen.height/srows()
>_screen.box(nXCoord,nYCoord,nWidth+nXCoord,nHeight+nYCoord)
>_screen.fontname = lcOldFont
>_screen.fontsize = lnOldFontSize

Cetin
Ooops. Original code was :

lparameters wname
lcOldFont = _screen.fontname
lnOldFontSize = _screen.fontsize
_screen.fontname = wfont(1,wname)
_screen.fontsize = wfont(2,wname)
nYCoord = wlrow(wname)*_screen.height/srows()
nXCoord = wlcol(wname)*_screen.width/scols()
nWidth = wcols(wname)*_screen.width/scols()
nHeight = wrows(wname)*_screen.height/srows()
_screen.box(nXCoord,nYCoord,nWidth+nXCoord,nHeight+nYCoord)
_screen.fontname = lcOldFont
_screen.fontsize = lnOldFontSize

Cetin