Problema con @nRow,nCol BUTTON ... PIXEL

[César E. Lozada]

Tengo una pregunta de novatos y pido excusas de antemano.

Necesito que en un diálogo un botón ocupe una posición fija pero relativa al tamaño variable del diálogo, por ejemplo, en su esquina inferior derecha.

Hago
@ 0,0 BUTTON oBtn1 PROMPT "&Aceptar" OF oDlg PIXEL

ACTIVATE DIALOG oDlg CENTERED;
ON INIT oBtn1:Move(oDlg:nHeight-36,oDlg:nWidth-50,40,24)

pero el botón no cae dentro del diálogo.

¿Que hay que hacer con oDlg:nHeight y oDlg:nWidth para que sean compatibles con los pixeles?


Gracias.

[mmercado]

Estimado César:

Necesito que en un diálogo un botón ocupe una posición fija pero relativa al tamaño variable del diálogo, por ejemplo, en su esquina inferior derecha.

Al mejor cocinero se le quema el arroz

Creo que debería ser así:

Code: Select all  Expand view

# include "FiveWin.ch"

Function Main()

   Local oDlg, oBtn1

   Define Dialog oDlg Title "Botón en la esquina inferior derecha"

   @100, 0 BUTTON oBtn1 PROMPT "&Aceptar" OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ON INIT oBtn1:Move( oDlg:nBottom - 24, oDlg:nRight - 50, 50, 24, .T. )

Return Nil
 

Un abrazo.

[César E. Lozada]

Gracias, Manuel.