Saludos
Cordiales
Necesito ubicar una caja de dialogo justo debajo de la casilla (Linea, Columna) focalizada en Xbrowse
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colocar un Dialogo debajo de una casilla en Xbrowse
Juan,
En el Método ShowBtnList( nKey ) CLASS TXBrwColumn (en xbrowse.prg) se calculan las coordenadas de una determinada celda:
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:
En el Método ShowBtnList( nKey ) CLASS TXBrwColumn (en xbrowse.prg) se calculan las coordenadas de una determinada celda:
nRow := ( ::oBrw:nRowSel * ::oBrw:nRowHeight ) + ::oBrw:HeaderHeight() - 1
nCol := ::nDisplayCol - 2Ahora 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:
ACTIVATE DIALOG oDlg ;
ON INIT oDlg:SetPos( aPoint[ 1 ], aPoint[ 2 ] )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. ))