Una de Tabs

[Mike Serra]

Buenas Noches foro, voy a ver si pillo a alguien por aqui que sepa lo que me pasa.

Me gustaria saber porqué en este código funcionan bien los tabs cuando le quitamos a la ventana principal "MDI"

Code: Select all  Expand view

// Testing new FiveWin Tabs !!!

#include "FiveWin.ch"
#include "Folder.ch"

#define COLOR_BTNFACE  15

static oWnd,oMsgBar,item1,item2

//----------------------------------------------------------------------------//

function Main()

   local oTabs

   DEFINE WINDOW oWnd TITLE "Testing FiveWin Tabs" ;
      FROM 3, 3 TO 14, 30 MDI ;
      COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE )

   @ 8, 0 TABS oTabs PROMPTS "&One", "&Two", "T&hree", "&Four" OF oWnd ;
      ACTION (oWnd:Say( 5, 5, oTabs:nOption ),msginfo("Changing. . ."))

   //oWnd:oBottom = oTabs

define message oMsgBar of oWnd prompt alltrim("HELLO") keyboard date time
define msgitem item1  of oMsgBar prompt  "Usuario: "  size 380 COLOR rgb(0,0,0),rgb(252,190,29)
define msgitem item2  of oMsgBar prompt "Nivel Seguridad: " size 200 COLOR rgb(45,68,144),rgb(255,255,255)
       
   ACTIVATE WINDOW oWnd on resize ajustatab(oTabs,oWnd)

return nil


function ajustatab(oTabs,oWnd)
oTabs:nTop:=oWnd:nHeight - 100
return nil

//----------------------------------------------------------------------------//


Muchas gracias de antemano.

[Antonio Linares]

Mike,

Las ventanas MDI usan una ventana "invisible" que organiza las MDICHILDs. Así lo creó Windows, no es algo propio de FiveWin.

Por esta razón no se deben poner controles sobre la superficie de una ventana MDI, porque interfiere con el funcionamiento de esa ventana "controladora".

Si indicas con un ejemplo ó imagen, lo que quieres hacer, quizás podamos sugerirte una forma alternativa de hacerlo.

[Mike Serra]

Gracias Antonio por la explicación. Más o menos lo que quiero realizar es que el tab me controle las ventanas hijas que tengo abiertas, por ejemplo, tengo mi ventana principal de la aplicación abierta y ademas tengo un mantenimiento de cliente (Ventana de Cliente) y un Mantenimiento de Productos (Ventana de Productos). El tab tuviera que tener 2 pestañas, una con el nombre de cada ventana, de manera que cuando pulsara sobre la pestaña correspondiente se activará su ventana asociada.

Perdona mi ignorancia, pero seria un control como aparecen en los menús de las ventanas que estan activas, y si entras dentro del menu y cambias de ventana, se activa la otra.

Espero haberme explicado bien, de todas formas, muchas gracias por tu tiempo.

FWH 7.12 + xHarbour.

[Antonio Linares]

Podrías usar unos botones en la barra de botones, para cambiar de una ventana a otra.