Editando una línea completa con TxBrowse

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Editando una línea completa con TxBrowse
Posted: Tue Aug 21, 2007 09: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 Collapse

  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 Collapse

  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.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Parece resuelto
Posted: Tue Aug 21, 2007 09:27 AM

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

Code: Select all Collapse

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

Un saludo.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

FiveTech Support Forums

Continue the discussion