Rellenado de ventana con xBrowse

Post Reply
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Rellenado de ventana con xBrowse

Post by Marco A. Delgado »

Hola:

Estoy haciendo una ventana con una barra y xbrowse y un splitter
entonces hago esto..

Code: Select all

      DEFINE WINDOW oWndRecauda OF oPanel1                  ;
             TITLE "Listado de Recaudaciones"               ;
             FROM 0,0 TO oPanel1:nBottom, oPanel1:nRight    ;
				 COLOR CLR_BLACK, GetSysColor(15)-RGB(30,30,30) ;
				 NOSYSMENU

             DEFINE SBUTTONBAR oBar2 TOP _3D SIZE 35,35 OF oWndRecauda
                    oBar2:bLClicked := {|| 0 }
                    oBar2:bRClicked := {|| 0 }

             DEFINE SBUTTON oBtn2[1] OF oBar2 ;
                    RESOURCE "EXIT", "EXIT"   ;
                    ACTION oWndRecauda:End()  ;
                    MESSAGE " Salir del Listado de Recaudaciones" ;
                    TOOLTIP "Salir del Listado" ;
                    LOOK W97 UPDATE


             oBrw := TXBrowse():New( oWndRecauda )
             oBrw:SetArray(aDatos)

             //  y el demas codigo........

             ////

             @ 450, 0 SPLITTER oSpl2         ;
                      HORIZONTAL             ;
                      PREVIOUS CONTROLS oBrw ;
                      TOP MARGIN 400         ;
                      BOTTOM MARGIN 180      ;
                      SIZE 500, 4 PIXEL      ;
                      OF oWndRecauda         ;
                      _3DLOOK

             oBrw:CreateFromCode()
             oWndRecauda:oClient := oBrw   ///   Aqui sucede...
             oWndRecauda:bResized := {|| oSpl2:Adjust }



      ACTIVATE WINDOW oWndRecauda MAXIMIZED ;
					ON INIT oBrw:SetFocus() 
entonces....se me aparece asi... pero si se dan cuenta ahi esta el splitter.
(con rojo)

Image[/img]

y he probado poner en el INIT oSpl2:Adjust, oSpl2:AdjTop() y nada, tambien he probado
quitando oWndRecauda:oClient := oBrw o poniendo oWndRecauda:oTop := oBrw y me queda esto

Image[/img]

Alguien me podira dar una ayudadita, de antemano muchas gracias.

Saludos

Marco A. Delgado.
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

Otra pregunta

Post by leandro »

Hola, marco como vas, no tiene nada que ver con la respuesta que esyas buscando, pero es que me gusto esa barra de harramientas que estas usando, sera que me puedes indicar como se hace o con que clase?
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post by Marco A. Delgado »

Hola Leandro

Utilizo tsbutton para crear la barra de herramientas.


Saludos

Marco A. Delgado


post. creo me voy a quedar igual con mi duda... mmm... :?
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post by Marco A. Delgado »

Antonio

por lo visto no hay solucion para este problema o es problema de los splitters, bueno gracias de todas formas. :?


Saludos

Marco A. Delgado.
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post by Marco A. Delgado »

Hola _

Estoy usando el xbrowse que trae el fwh 2.6, y no funciona.. :evil:

Saludos
Marco A. Delgado.
User avatar
Marco A. Delgado
Posts: 126
Joined: Fri Oct 07, 2005 4:20 pm
Location: Veracruz, México

Post by Marco A. Delgado »

ok...gracias lo probare

Saludos

Marco A. Delgado.
Post Reply