Editando una línea completa con TxBrowse

[AngelSalom]

Buenas... sigo con mi migración a TxBrowse. Estoy intentando hacer una edición de toda una línea de datos (todas las columnas) y para ello obtengo el recuadro de la línea que quiero editar del browse mediante el siguiente código :

Code: Select all  Expand view

  nTop    := ( ( oLbx:nRowSel - 1 ) * oLbx:nRowHeight ) + oLbx:HeaderHeight()
  nBottom := nTop+oLbx:nRowHeight
  nLeft   := 0
  nRight  := oLbx:BrwWidth()


Pero cuando genero el diálogo, mediante :

Code: Select all  Expand view

  DEFINE DIALOG oDlgDoc FROM nTop,nLeft TO nBottom, nRight;
         STYLE nOR ( WS_VISIBLE, WS_POPUP ) COLOR CLR_WHITE, CLR_RED PIXEL OF oDlg


Este se muestra con los valores nTop y nLeft haciendo referencia a la ventana principal, no al diálogo conteneder del browse con lo que se me fastidia la presentación.

Ver imagen :




Gracias.

[AngelSalom]

Bien, creo que lo resolví añadiendo el siguiente código :

Code: Select all  Expand view

aRct :=GetWndRect (oLbx:hWnd)
nTop:=nTop+aRct[1]
nLeft:=nLeft+aRct[2]


Un saludo.