XBrowse - Midi y lRegistered

[cnavarro]

Buenos dias
Llevo dos dias intentando realizar lo siguiente:
- Ventana principal - MDI ----- > oApli
. Splitter
- TPanel a la izquierda y dos xbrowses ( uno encima y otro debajo)
Hasta aqui perfecto
Para hacer unas pruebas quería poner un xbrowse con un array en la parte derecha sobre la oApli:oWndClient
Compilacion perfecta
Ejecucion: fallo en el ::Create del xbrowse
Después de muchas vueltas, pruebas y horas, se me ocurrió poner oBrw:lRegisterd := .F. antes del CreateFromSource() y funcionó.
Si alguno puede explicarme por qué, se lo agradecería muchísimo ya que no lo entiendo
Hasta donde llegan mis conocimientos yo pensaba que esa CLASSDATA se usaba solo si realizabas una CLASE para definir un Control desde el principio, pero no usando una clase activa ya, ni siquiera modificarlo si realizabas una CLASE que heredaba de otra.
Aprovecho para solicitar si alguien puede/quiere indicarme cómo poder mostrar un array multidimensional en xbrowse, por ejemplo el array que devuelve GetAllWin(), de la que incialmente no conoces el número de columnas.
Gracias anticipadas

Uso FWh 1.03 y Harbour 3.02

[joseluisysturiz]

Saludos Navarro, podrias compartir como colocates los 2 xbrowse a la derecha del TPanel.? se que es con un spliter mas seguro, pero ese spliter siempre me da errores en las formas que lo uso, imagino aun no entiendo la funcionalidad, necesito algo parecido pero en vez de 2 xbrowse, es que quede un xbrowse arriba y un folder debajo o viceversa para asi no tener que abrir otro dialogo cuando el cliente quiere agregar o modificar un registro, y asi tambien puedo tener varias ventanas activas y funcionales a la vez, todo esto con MDI, gracias, saludos...

[cnavarro]

Jose Luis, asi es como lo he hecho, si puedo echarte una mano en lo que esté a mi alcance......

.../...

local cControl := "TPanel"
local aPnels := {}
local aClrPnels := {}
local oBrush1
local cPanel := "wcia21.bmp" //"wcia2.bmp"
Local oBrw1
Local oBrw2

hDC := GetDeskTopWindow()
aRes := GetClientRect( hDC )
nAlto := aRes[3]
nAncho := aRes[4]
hDC := Nil
aRes := Nil


Do Case
Case nAncho <= 1366
nAnchoSpl := nAncho*0.16 //180 //nAncho/4

Case nAncho > 1366 .and. nAncho <= 1600
nAnchoSpl := nAncho*0.14 //180 //nAncho/4

Case nAncho > 1600
nAnchoSpl := nAncho*0.12 //180 //nAncho/4

EndCase

DEFINE ICON oIcon RESOURCE "Wcomp0"
DEFINE BRUSH oBrushWnd COLOR nRGB( nCol1, nCol2, nCol3 )
DEFINE WINDOW oAplica ;
TITLE "Prueba"+ ;
" - Usuario: "+WNetGetUser() ;//;
FROM -1,-1 TO -1,-1 ;
MENU Menuf() ;
ICON oIcon ;
BRUSH oBrushWnd ;
MDI ;
MENUINFO 8 //;
// NOSYSMENU

oAplica:nStyle := nOr( WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
// Desde Aqui

AAdd( aPnels, Nil ) // Panel Principal Izdo.
AAdd( aClrPnels , Nil )
aClrPnels[Len(aPnels)] := nRGB( 245, 245, 245 )
aPnels[Len(aPnels)] := &cControl():New( 0, 0, nAlto-106, nAnchoSpl, oAplica )
oAplica:oLeft := aPnels[Len(aPnels)]
DEFINE BRUSH oBrush1 COLOR nRGB( nCol1, nCol2, nCol3 ) //nRGB( 245, 245, 245 ) //aClrPnels[Len(aPnels)]
aPnels[Len(aPnels)]:oBrush := oBrush1

oBrush1 := Nil


// Este el bitmap que separa los dos browses - menús
/*
DEFINE BITMAP oBmpV FILE cPanel OF aPnels[Len(aPnels)]
aPnels[Len(aPnels)]:bPainted := { | hDC, cPS | PalBmpDraw( hDC, Int(nAlto/2)-36, ;
(nAnchoSpl-oBmpV:nWidth())/2, ;
oBmpV:hBitMap, oBmpV:hPalette,,,,.t., nClrFondo ) } //aClrPnels[Len(aPnels)] ) }
*/

// Menu superior

oBrw1 := MnuXBrw1( aPnels[Len(aPnels)], nAlto, nAnchoSpl, ) //, oSpl)

// Este es el Browse - menú inferior

oBrw2 := Nil
oBrw2 := MnuXBrw2( aPnels[Len(aPnels)], nAlto, nAnchoSpl, ) //oBrw2

//oBrwPrin := TareasOpen() /* XBrowse del problema */



@ 2+if( empty(oBar), -2, 34), nAnchoSpl-4 SPLITTER oSpl ;
VERTICAL ;
PREVIOUS CONTROLS aPnels[1];
SIZE 2, nAlto; // -107; //106
PIXEL ;
OF oAplica ;
_3DLOOK //;

//HINDS CONTROLS oBrwPrin ;

//oSpl:lStatic := .t.

DEFINE BITMAP oBmpH FILE cFondo OF oAplica
//(nAncho-oBmpH:nWidth()-( nAnchoSpl + 2 ))
oAplica:bPainted := {| hDC, cPS | PalBmpDraw( hDC, (nAlto-(oBmpH:nHeight()*2.5)) , (nAncho-(oBmpH:nWidth()*1.25)-( nAnchoSpl + 4 )) , oBmpH:hBitMap, oBmpH:hPalette,,,,.t.,nClrFondo )}

//cTit
oAplica:oMsgBar := TMsgBar():New( oAplica , OemToAnsi(cDesEmpre) , .t.,.f.,.T.,.T. )

ACTIVATE WINDOW oAplica MAXIMIZED ;
ON INIT ( (if( empty( nAcc ),Nil, Acciones( nAcc ) ) ) //, oBrw1:SetFocus() )

Los xbrowses de la izda del TPanel son Menús de "persiana" realizados con una clase de xbrowse
Un saludo

[cnavarro]

Adjunto una imagen

http://imageshack.us/photo/my-images/594/apli000.png
Espero que se vea ya que es la primera que pongo

[joseluisysturiz]

Voy revisar tu codigo haber si es lo que ando buscando, crees podias poner una imagen para confirmar.? y disculpa en abuso, pero dicen que una imagen dice mas que mil palabras, asi puedo confirmar si es lo que quiero hacer, muchas gracias de antemano y por responder tan rapido, saludos...

[joseluisysturiz]

Adjunto una imagen

http://imageshack.us/photo/my-images/594/apli000.png
Espero que se vea ya que es la primera que pongo

La imagen solo se le ve el panel, los xbrowse del lado derecho del panel no aparecen, gracias, saludos...

[cnavarro]

Adjunto una imagen

http://imageshack.us/photo/my-images/594/apli000.png
Espero que se vea ya que es la primera que pongo

La imagen solo se le ve el panel, los xbrowse del lado derecho del panel no aparecen, gracias, saludos...

Jose Luis, tal y como expuse en mi primer mensaje los menus de la izquierda del TPanel son xBrowses. Uno encima del otro
A la derecha pongo el otro xbrowse que es por lo que pregunto el tema de lRegistered
Voy a ver si puedo poner otra imagen
Por cierto, sabes como puedo poner la imagen directamente?
Un saludo

[cnavarro]

A ver si en esta imagen queda mas claro
http://img824.imageshack.us/img824/4599/apli001.png

[joseluisysturiz]

Adjunto una imagen

http://imageshack.us/photo/my-images/594/apli000.png
Espero que se vea ya que es la primera que pongo

La imagen solo se le ve el panel, los xbrowse del lado derecho del panel no aparecen, gracias, saludos...

Jose Luis, tal y como expuse en mi primer mensaje los menus de la izquierda del TPanel son xBrowses. Uno encima del otro
A la derecha pongo el otro xbrowse que es por lo que pregunto el tema de lRegistered
Voy a ver si puedo poner otra imagen
Por cierto, sabes como puedo poner la imagen directamente?
Un saludo

Para colocar la imagen directa en el foro, cuando la subas a imageshack, te dan unos link con ldiferentes tamañso a mostrar la imagen, hay una que dice PARA FOROS, copias ese link con el tamaño que quieras y lo pegas aca en el mensaje del foro, eso es todo...saludos...

[cnavarro]

Gracias
A ver si se ve esta imagen que he puesto los menus a la derecha dejando la izquierda del Tpanel vacio
Lo unico que cambia en el codigo es:
Cambiar:
// oAplica:oLeft := aPnels[Len(aPnels)]

por

oAplica:oRight := aPnels[Len(aPnels)]



Esta es la buena




Saludos

[joseluisysturiz]

Fijate, asi lo tengo con una TExplorer en una Ventana MDI



Uploaded with ImageShack.us

pero lo que quiero hacer es esto...



Uploaded with ImageShack.us

[cnavarro]

Ahora si entiendo lo que me dices
Quieres crear un Splitter horizontal en la parte derecha para poner dos controles: uno arriba (browse) y otro abajo (dialogo) o al revés.
Qué problemas te da?

[joseluisysturiz]

Ahora si entiendo lo que me dices
Quieres crear un Splitter horizontal en la parte derecha para poner dos controles: uno arriba (browse) y otro abajo (dialogo) o al revés.
Qué problemas te da?

Exacto, es lo que quiero, ahorita no recuerdo cual era el error ya que lo intente hace tiempo y como no pude hacerlo, lo deje asi y segui el sistema abriendo el folder sobre la ventana MDI, ahorita como lei tu tema, te hice la consulta creyendo lo hacias como yo lo quiero, si tienes algun ejemplo de como hacerlo te lo agradeceria, saludos...

[compubrion]

Saludos !

Cheque en Fwh\Samples\Testspl3.prg

[joseluisysturiz]

Saludos compubrion, ya mire los samples, Testspl3.prg, Testspl5.prg, Testspl7.prg y era lo que andaba buscando, gracias, saludos...