Controls disappear in a SPLITBOX window

[TopsMarc]

Hi,

I did some experiments with a SPLITBOX. In window 1 on the left I browse suppliers, in window 2 on the right I have the supplier details : labels, textboxes and buttons. Window 2 is virtual sized.
Sometimes controls in window 2 disappear, and I can't get them back by resizing the window.
Please look at my movie SplitboxControlsDisappear.

Kind regards, Marc

[andyglezl]

Hola Marc

No se la razon del comportamiento, pero si comentas lo siguiente linea, funciona OK.
(manualmente tendrias que dar click al textbox para editar, mientras se encuentra otra
solucion)
------------------------------------------------------------------------------------------------------
Hello Marc

No reason behavior, but if you comment the following line, it works OK.
(Manually you would have to give click the textbox to edit, while there is another
solution)


*------------------------------------------------------------------------------*
FUNCTION SUP_OnDblClick()
*------------------------------------------------------------------------------*
*Win_SUP_DATA.Text_SupNm.Setfocus
RETURN

[srvet_claudio]

I will check.

[SALINETAS24]

Hola a todos.
Tres consultas sobre el SPLITBOX, (que son 4.., como los tres mosqueteros.. )

1/ ¿Se ha solucionado el problema comentado en este hilo...? En caso afirmativo, podéis indicar como.
ME RESPONDO.
ES UN PROBLEMA POR EL TAMAÑO VIRTUAL DE LA VENTANA Y POR EL POSICIONAMIENTO DEL FOCO.
SI NO HACES LA VENTANA VIRTUAL TAN GRANDE O NO LE PASAS EL FOCO YA NO LO HACE.
TAMBIEN PUEDES UTILIZAR ESTO....

Code: Select all

		SetScrollPos ( GetFormHandle("Win_SUP_DATA") , SB_VERT , 0 , .T. )
		SendMessage  ( GetFormHandle("Win_SUP_DATA") , WM_VSCROLL, SB_LINEUP, 0)

2/ ¿Sería posible definir un TOOLBAR cuya posición quedara fija, y no se pudiese intercambiar con el resto de las ventanas?
ME REPONDO.
SI ES POSIBLE, HACIENDO UN SPLITBOX EXCLUSIVO PARA EL TOOLBAR

3/ o quizás, ¿Sería posible definir las Ventanas a partir de una determinada FILA?. He probado definir el TOOLBAR fuera del SPLITBOX, pero entonces las ventanas del SPLITBOX pierden la parte superior y queda más feo.
ME RESPONDO.
NO SE PUEDE.

4/ ¿como puedo activar una SPLITBOX, darle el foco y ponerla en primer plano?. En el ejemplo que puso MARC cuando hace doble click sobre el registros simplemente da el foco al TEXTBOX, lo que yo persigo es ampliar la ventana de datos y ponerla en 1er plano y dale el foco. ?????? MODIFICAR EL TAMAÑO.



Muchas gracias a todos por sus aportaciones.., y aporto una cervecita virtual....

[SALINETAS24]

Hola a todos,
¿es posible desde programación modificar el tamaño de una SPLITBOX...?, hacerla más grande o más pequeña

He encontrado unas linea de Claudio pero no consigo aplicarlas, solo en el caso de redimensionar toda la ventana.
¿Alguien sabe como hacerlo...? ¿Como cambiar el tamaño a la WINDOW ?, Es decir lo que quiero es simular ese ARRASTRAR que se hace con el ratón para abrir la SPLITBOW, pero desde Programacion

Code: Select all

LOCAL hWnd:=GetFormHandle("Win_SUP_DATA")

LOCAL Height    := BT_ClientAreaHeight ("Win_SUP_MAIN") - BT_StatusBarHeight ("Win_SUP_MAIN")
LOCAL DifHeight := Height - REBAR_GETHEIGHT (GetSplitBoxHandle("Win_SUP_MAIN"))
LOCAL aRect     := REBAR_GETBANDINFO (GetSplitBoxHandle("Win_SUP_MAIN"), 2)   // SplitChild_1
LOCAL NewHeight := aRect [2] + DifHeight
*	MSGBOX(nEWhEIGHT)
*   REBAR_SETMINCHILDSIZE (GetSplitBoxHandle("Win_SUP_MAIN"), 2, NewHeight)   // SplitChild_1
*/
	MSGDEBUG(aRect)
	MSGDEBUG(GetSplitBoxRect("Win_SUP_DATA"))
*	msgbox(GetSplitBoxHEIGHT("Win_SUP_DATA"))
* 	SETPROPERTY ("Win_SUP_DATA","COL",459)
*	Win_SUP_DATA.REDRAW

Agradecido por anticipado

[danielmaximiliano]

Hola a todos,
¿es posible desde programación modificar el tamaño de una SPLITBOX...?, hacerla más grande o más pequeña

Encontre esto en la linea 1707 de C:\HMG.3.5\SOURCE\h_windows.prg quizas te sirva

Code: Select all

 If _HMG_SYSDATA [ 87 ] [i] > 0
            SizeRebar ( _HMG_SYSDATA [ 87 ] [i] )   // resize SplitBox
            RedrawWindow  ( _HMG_SYSDATA [ 87 ] [i] )
         EndIf

en New: 'SplitBox Resize' sample.
+ Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>
+ (see demo8.prg in folder \samples\Basic\CONTAINERS\Splitbox)

Code: Select all

*---------------------------------------------*
PROCEDURE SplitBox_Resize (SplitBoxHandle)
*---------------------------------------------*
LOCAL Height    := Form_1.ClientHeight - Form_1.Statusbar.Height
LOCAL DifHeight := Height - REBAR_GETHEIGHT (SplitBoxHandle)
LOCAL aRect     := REBAR_GETBANDINFO (SplitBoxHandle, 1)  // SplitChild_1
LOCAL NewHeight := aRect [2] + DifHeight

   REBAR_SETMINCHILDSIZE (SplitBoxHandle, 1, NewHeight)   // SplitChild_1

RETURN

[SALINETAS24]

Hola a todos,
¿es posible desde programación modificar el tamaño de una SPLITBOX...?, hacerla más grande o más pequeña

Encontre esto en la linea 1707 de C:\HMG.3.5\SOURCE\h_windows.prg quizas te sirva

Code: Select all

 If _HMG_SYSDATA [ 87 ] [i] > 0
            SizeRebar ( _HMG_SYSDATA [ 87 ] [i] )   // resize SplitBox
            RedrawWindow  ( _HMG_SYSDATA [ 87 ] [i] )
         EndIf

en New: 'SplitBox Resize' sample.
+ Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>
+ (see demo8.prg in folder \samples\Basic\CONTAINERS\Splitbox)

Code: Select all

*---------------------------------------------*
PROCEDURE SplitBox_Resize (SplitBoxHandle)
*---------------------------------------------*
LOCAL Height    := Form_1.ClientHeight - Form_1.Statusbar.Height
LOCAL DifHeight := Height - REBAR_GETHEIGHT (SplitBoxHandle)
LOCAL aRect     := REBAR_GETBANDINFO (SplitBoxHandle, 1)  // SplitChild_1
LOCAL NewHeight := aRect [2] + DifHeight

   REBAR_SETMINCHILDSIZE (SplitBoxHandle, 1, NewHeight)   // SplitChild_1

RETURN

Hola Daniel muchas gracias por contestar.
He estado haciendo pruebas pero no consigo modificar tamaño del SPLITBOX, si que puedo modificar el tamaño de la ventana que hay dentro, pero no del SPLITBOX.
Desconozco la información que trasladan las distintas funciones que me indicas asi como su aplicación.
Agradecido por todo..., seguimos investigando.