FiveTech Support Forums

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.

César E. Lozada wrote: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.

# 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

Gracias, Manuel.