Page 1 of 1
Colocar un Dialogo debajo de una casilla en Xbrowse
Posted: Sun Oct 18, 2015 4:32 pm
by jnavas
Saludos
Cordiales
Necesito ubicar una caja de dialogo justo debajo de la casilla (Linea, Columna) focalizada en Xbrowse
Re: Colocar un Dialogo debajo de una casilla en Xbrowse
Posted: Sun Oct 18, 2015 6:56 pm
by Antonio Linares
Juan,
En el Método ShowBtnList( nKey ) CLASS TXBrwColumn (en xbrowse.prg) se calculan las coordenadas de una determinada celda:
Code: Select all | Expand
nRow := ( ::oBrw:nRowSel * ::oBrw:nRowHeight ) + ::oBrw:HeaderHeight() - 1
nCol := ::nDisplayCol - 2
Ahora tendrias que pasar esas coordenadas a valores de la pantalla completa:
local aPoint := { nRow, nCol }
aPoint = ClientToScreen( oBrowse:hWnd, aPoint )
Y desde la claúsula ON INIT de tu diálogo, posicionarlo en esas coordenadas:
Code: Select all | Expand
ACTIVATE DIALOG oDlg ;
ON INIT oDlg:SetPos( aPoint[ 1 ], aPoint[ 2 ] )
Re: Colocar un Dialogo debajo de una casilla en Xbrowse
Posted: Mon Oct 19, 2015 4:09 am
by jnavas
Antonio
Gracias, tenia este codigo copiado de la clase txbrwcol
LOCAL oDlg
LOCAL oCol := oBrw:aCols[oBrw:nColSel]
LOCAL nRow := ( ( oBrw:nRowSel - 1 ) * oBrw:nRowHeight ) + oBrw:HeaderHeight() + 2
LOCAL nCol := oCol:nDisplayCol + 3
LOCAL nWidth := oCol:nWidth - 4
LOCAL nHeight := oCol:oBrw:nRowHeight - 4
DEFINE DIALOG oDlg OF oBrw:oWnd
ACTIVATE DIALOG oDlg ON INIT (oDlg:Move(nRow, nCol, nWidth+200, nHeight+100, .t. ))