FiveTech Software tech support forums

Posted: **Tue Aug 21, 2007 9:14 am**

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

  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

  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.

Posted: **Tue Aug 21, 2007 9:27 am**

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

Code: Select all

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

Un saludo.

FiveTech Software tech support forums

Editando una línea completa con TxBrowse

Editando una línea completa con TxBrowse

Parece resuelto