wBrowse de Hernan

Post Reply
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

wBrowse de Hernan

Post by jvargas »

Hola Amigos:
En el Brw de Hernan modificado por Rossine y usando RECURSOS, el Brw se pinta en nTop=0 y nLeft=0 aunque en el recurso esté en otra posición.
He buceado en el Brw buscando el momento en que se toman los datos del recurso, no lo tiene cuando hace el ReDefine, y cuando entra en el método Default ya lo tiene, aparentemente es en el Super:Iniciate (Tcontrol) pero ahí me pierdo. Lo he comparado con el Brw de Fw pero no encuentro aparente motivo para esto. En el Brw original de Hernan sale bien. Tampoco encuentro nada en el foro, parece que a nadie le pasa esto.
Qué tengo que modificar para que el Brw se pinte tal y como está en el recurso?
Muchas gracias por anticipado
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Jorge,

Prueba este código y dinos que te aparece:

ACTIVATE DIALOG oDlg ;
ON INIT MsgInfo( oBrw:nTop )
regards, saludos

Antonio Linares
www.fivetechsoft.com
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

Post by jvargas »

Hola Antonio
muchas gracias por responder.
en msginfo(oLbx:nTop) sale 0, tambien en nLeft
Saludos
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Pruébalo asi:

ACTIVATE DIALOG oDlg ;
ON INIT MsgInfo( WndTop( oBrw:hWnd ) )
regards, saludos

Antonio Linares
www.fivetechsoft.com
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

Post by jvargas »

Antonio
Sale 0
Gracias por tu tiempo
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Jorge,

Prueba esto y veamos si cambia de posición:

ACTIVATE DIALOG oDlg ;
ON INIT WndTop( oBrw:hWnd, 200 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

Post by jvargas »

Hola Antonio
Movió el oLbx bastante abajo
Que sigue ahora?.
Muchas gracias por tu ayuda
Saludos
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

SE ME OCURRE QUE EL ARCHIVO DE RECURSO DEBE TENER ALGO MALO,
EDITALO COMO TEXTO Y BUSCA EL DICHOSO LISTBOX HABER EN QUE POSICION TE ALMACENÓ

NOSE, DIGO.
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

PUEDES PONER EL CODIGO DEL FUENTE??
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

EN EL .RC DEBE DECIR ALGO COMO:

CONTROL "", 401, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 5, 15, 338, 182

DONDE LAS COORDENADAS DEL PUNTO DE INICIO SON 5,15

ESPERO TE SIRVA DE ALGO
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

Post by jvargas »

Hola Ángel
Discúlpame por la demora en responder, el hecho es que con la solución que me dio Antonio continué trabajando. Tenia que entregar un programa.
La línea del recurso es ésta:
CONTROL "", 174, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 54, 120, 210, 100
Pero aun así aparecía en la posición 0,0; inclusive en el ejemplo original del wBrowse no pude hace que funcione correctamente con recursos.
Con el remiendo:
On INIT (WndTop(oLbx:hWnd,240), WndLeft(oLbx:hWnd,120) seguí con la obra.

Lo que me extraña es que nadie mas ha reportado este caso en el foro. O es que yo tengo una versión que no funciona bien.
Ahora quiero usar un Get con Spinner en recurso y no salen las flechas, pero con codigo si sale. Muy extraño. Usas tu el wBrowse de Hernan modificado por Rossine?, no tienes estos problemas?
Agradezco mucho tu atención , tu respuesta y tu tiempo.
Saludos
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
tomafa
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....
Contact:

Post by tomafa »

Saludos

jvargas..

yo tambien he tenido el problema con twbrowse de Rossine, te lo pinta en el TOP y por el tiempo no me pude menter de lleno en el problema pero vi esto en el foro y me auxilio un póco, aunque no pude cambiar o corregir el problema espero que tersirva y si llegas a tener la soucion que nos la compartas gracias

viendo un poco las modificaciones el error me parece que esta a la hora de calcular las coordenadas en el metodo DEFAULT()


if ::nWidth = NIL && Somente para REDEFINES && By Rossine
::nTop := aRect[1] && By Rossine
::nLeft := aRect[2] && By Rossine
::nHeigth := ( aRect[3] - aRect[1] ) / 2 && By Rossine
::nWidth := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH && By Rossine
::nBottom := aRect[3] && By Rossine
::nRight := aRect[4] && By Rossine
endif
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

QUE RARO :shock: , A MI ME HA TRABAJADO SIEMPRE BIÉN!!
Saludos

Angel, Valencia, Venezuela

xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
jvargas
Posts: 63
Joined: Sun Apr 08, 2007 9:50 pm
Location: Lima Perú

Post by jvargas »

Hola Tomafa
Gracias por tu pista.
Llegué a que ::nWidth es NIL y que aRect{1] y aRect[2] tienen 0 pero la entradas 3 y 4 de aRect tienen 196 y 416 respectivamente.
La linea en el RC tiene
CONTROL "", 174, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 54, 120, 210, 100
Al parecer aRect := GetClientRect( ::hWnd ) no funciona.
Lamento decir que mis conocimientos sobre Métodos son casi nulos y no puedo seguir.
Ojalá que alguien nos de un poco mas de ideas por donde bucear.
Muchas gracias por la ayuda.

Hola Ángel
Podrías, por favor, enviarme a mi correo tu wBrowse de Rossine?. Quiero compararlos.
Gracias

Saludos a ambos
Jorge Vargas
FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
tomafa
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....
Contact:

Post by tomafa »

esta parte la utiliza Rossine para calcular el titulo, cuando se pinta el browse lo pone en el top 0 por el valor que lleva ahora como se puede saber en donde se pinta el caga o panel del browse para saber en donde lo coloca

if ::nWidth = NIL && Somente para REDEFINES && By Rossine
::nTop := aRect[1] && By Rossine
::nLeft := aRect[2] && By Rossine
::nHeigth := ( aRect[3] - aRect[1] ) / 2 && By Rossine
::nWidth := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH && By
::nBottom := aRect[3] && By Rossine
::nRight := aRect[4] && By Rossine
endif


antonio
Post Reply