Prueba a usar una funcion parecida a esta
- Code: Select all Expand view
Function CalculaRes( nTp ) // nTp -> 0 Ancho nTp -> 1 Alto
local nAncho
local nAlto
local nPorcAnc
local nPorcAlt
DEFAULT nTp := 0
nAncho := GetSysMetrics( 0 )
nAlto := GetSysMetrics( 1 )
nPorcAnc := Round( ( nAncho/1920 ) , 4 )
nPorcAlt := Round( ( nAlto/1080 ) , 4 )
Return IF( Empty( nTp ), nPorcAnc, nPorcAlt )
De esta manera en el metodo New de TMetro, aplicala a
- Code: Select all Expand view
METHOD New( cTitle, nBtnWidth, nBtnHeight, cFileName ) CLASS TMetro
DEFAULT cTitle := "MyApp", nBtnWidth := 132, nBtnHeight := 132
::cTitle = cTitle
::aButtons = {}
::nBtnWidth = nBtnWidth
::nBtnHeight = nBtnHeight
::nOriginX = Round( 200 * CalculaRes( 0 ), 0 ) // Aqui
::nOriginY = Round( 200 * CalculaRes( 1 ), 0 ) // Aqui
::nRow = 0
::nCol = 0
.../...
A ver si así te funciona mejor
Aunque si no pones una imagen no puedo saber cual es exactamente tu problema