Page 2 of 2

Re: twebview2

Posted: Mon Nov 11, 2024 11:25 am
by russimicro
Antonio buen dia...

No señor no genera ningún archivo...

estoy ejecutando el buildxhb.bat webviewdian ... sin cambiar nada .. solo con la nueva lib xfw.lib---

en su entorno como funciona ?

nota : los .prg de la version 1 si funcionan

Re: twebview2

Posted: Mon Nov 11, 2024 1:02 pm
by Antonio Linares
El mismo problema, se sale

Vamos a intentar averiguar que sucede

Re: twebview2

Posted: Tue Nov 12, 2024 10:06 am
by Antonio Linares
Estimado Johnson,

Arreglado! :-)

Te envío la versión modificada por email

Muchas gracias por tu feedback

Re: twebview2

Posted: Tue Nov 12, 2024 1:15 pm
by russimicro
Antonio... buen día..

Ok. ya probe y esta ok... Gracias

Este caso de la clase TGroup, que distorsiona las dimensiones y pintado desfazado..

Code: Select all | Expand

   if !lPixel
      if nTop    >= 1.0; nTop    *= GRP_CHARPIX_H; endif
      if nLeft   >= 1.0; nLeft   *= GRP_CHARPIX_W; endif
      if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
      if nRight  >= 1.0; nRight  *= GRP_CHARPIX_W; endif
   endif
   ::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight )
 
// por ahora lo bloqueo y activo el siguiente bloque

Code: Select all | Expand

   ::nTop  = nTop  * If( lPixel, 1, GRP_CHARPIX_H ) // 14
   ::nLeft = nLeft * If( lPixel, 1, GRP_CHARPIX_W ) //  7

   if nWidth != nil
      ::nRight = ::nLeft + nWidth
   else
      ::nRight   = nRight  * If( lPixel, 1, GRP_CHARPIX_W ) //  7
   endif