FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ajustar contenido página web en control TDockPnel
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 01:18 AM
Buenas noches para todos, tengo otra pregunta.

Estoy intentando cargar el contenido de una pagina web en un control TDockPnel, siguiendo el ejemplo que publico nuestro amigo Cristobal, logramos que se muestre la pagina web como la primera imagen, el problema es que necesitamos que se muestre como segunda imagen (STRETCH).
Code (fw): Select all Collapse
Function ShowPageWeb( o, nT, nL, nH, nW   )

   local oActiveX
  oActiveX := CreateObject( "InternetExplorer.Application" )
   WITH OBJECT oActiveX
      :Visible    := .t.
      :ToolBar    := .f.
      :StatusBar  := .f.
      :MenuBar    := .f.
      :FullScreen := .t.
      :Invoke( "Navigate", "https://www.google.com/" )
   END
Return oActiveX


El resultado :


Pero lo que necesitamos lograr es lo siguiente:

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 04:00 AM
Leandro, prueba asi a ver:
Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro - 2021
// TDockPnel with ActiveX
//----------------------------------------------------------------------------//

#include "Fivewin.ch"
#include "colores.ch"

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

Static oWindow
Static nWAncho
Static nWAlto 
Static nCol   
Static nRow   

Static oFont4
Static cPathApp

Static oDock1
Static oDock2
Static oDock3
Static oDock4
Static oDock5

Static cText := ""

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

Function Main()

   local cFont         := "Segoe UI Symbol" //TAHOMA   //CALIBRI

   DEFINE FONT oFont4    NAME "CALIBRI"  SIZE 0,-16

   TestDockPnel()

   oFont4:End()

Return nil

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

Static Function TestDockPnel()

   local nCol
   local nRow
   
   nWAncho   := Int( GetSysMetrics( 0 ) * 0.95 )
   nWAlto    := Int( GetSysMetrics( 1 ) * 0.95 )
   nCol      := Int( ( GetSysMetrics( 0 ) - nWAncho ) / 2 )
   nRow      := Int( ( GetSysMetrics( 1 ) - nWAlto  ) / 2 )

   DEFINE WINDOW oWindow FROM nRow, nCol TO nWAlto + nRow, nWAncho + nCol ; //MDI ;
      PIXEL TITLE "Test TDockPnel Control ActiveX - " + FWVERSION ;
      COLOR CLR_WHITE, Rgb( 182, 182, 182 )

      CreaDocks()

   ACTIVATE WINDOW oWindow

Return nil

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

Function CreaDocks()

   local cUrl  := "www.google.es"

   oDock1  := TDockPnel():New( oWindow )
   WITH OBJECT oDock1
      :SetHeightCaption( 24 )
      :SetCoors( { | o | 2 }, { | o | 2 }, ;
                 { | o | o:oWnd:nHeight - 42  }, ;
                 { | o | o:oWnd:nWidth - 20 } )
      :SetCaption( { | o | cUrl } )
      :SetColors( CLR_WHITE, METRO_RED, Rgb( 88, 88, 88 ), CLR_WHITE )
      :SetFont( oFont4 )
      :SetBorderSize( 1 )
      :SetImgsFiles( { { "..\bitmaps\16x16\options.bmp", { | o | MyPopupMnu( o ) }, "ToolTip" } } )
      :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := ShowPageWeb( o, cUrl, nT, nL, nH, nW ) }  )//, ;
      //                                                 SetParent( oB:hWnd, o:hWnd ) } )
      :Activate()
   END

Return nil

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

Function MyPopupMnu( o )

   local oMnu
   local nRow  := o:nTop  + Int( o:nHeight / 2 ) 
   local nCol  := o:nLeft + Int( o:nWidth / 2 ) 

   MENU oMnu POPUP 2013 ;
      COLORSELECT METRO_STEEL, METRO_STEEL, CLR_WHITE ;
      COLORMENU CLR_WHITE, CLR_BLUE ;
      COLORSEPARATOR METRO_STEEL ;
      COLORLEFT CLR_WHITE ;
      FONT oFont4

      MENUITEM "Info" ACTION MsgInfo( "Class TDockPnel" )
      SEPARATOR
      MENUITEM "Exit" ACTION oWindow:End()

   ENDMENU
   ACTIVATE MENU oMnu AT nRow, nCol OF o:oWnd

Return oMnu

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

Function ShowPageWeb( oParent, cUrl, nT, nL, nH, nW )

   local oActX
   oActX := TActiveX():New( oParent, "Shell.Explorer.2", nT, nL, nW, nH )
   oActX:Do( "Navigate", cUrl )

Return oActX

//----------------------------------------------------------------------------//
//
//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 11:36 AM
Cristobal, gracias por responder.

Aun que ya se ajusta, ahora me salen errores de script, lo que no sucedía haciendo el llamado de la otra manera.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 12:58 PM
Leandro, no es un problema de TDockPnel, lo mismo ocurre si lo envías sobre una TWindow
Para que te aparezca correctamente, el contenedor ha de estar maximizado

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro - 2021
// TDockPnel with ActiveX
//----------------------------------------------------------------------------//

#include "Fivewin.ch"
#include "colores.ch"

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

Static oWindow
Static nWAncho
Static nWAlto 
Static nCol   
Static nRow   

Static oFont4
Static cPathApp

Static oDock1
Static oDock2
Static oDock3
Static oDock4
Static oDock5

Static cText := ""

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

Function Main()

   local cFont         := "Segoe UI Symbol" //TAHOMA   //CALIBRI

   DEFINE FONT oFont4    NAME "CALIBRI"  SIZE 0,-16

   TestDockPnel()

   oFont4:End()

Return nil

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

Static Function TestDockPnel()

   local nCol
   local nRow
   
   nWAncho   := Int( GetSysMetrics( 0 ) * 0.95 )
   nWAlto    := Int( GetSysMetrics( 1 ) * 0.95 )
   nCol      := Int( ( GetSysMetrics( 0 ) - nWAncho ) / 2 )
   nRow      := Int( ( GetSysMetrics( 1 ) - nWAlto  ) / 2 )

   DEFINE WINDOW oWindow FROM nRow, nCol TO nWAlto + nRow, nWAncho + nCol ; //MDI ;
      PIXEL TITLE "Test TDockPnel Control ActiveX - " + FWVERSION ;
      COLOR CLR_WHITE, Rgb( 182, 182, 182 )

   ACTIVATE WINDOW oWindow MAXIMIZED  ON INIT  CreaDocks()

Return nil

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

Function CreaDocks()

   local cUrl  := "www.google.es"

   oDock1  := TDockPnel():New( oWindow )
   WITH OBJECT oDock1
      :SetHeightCaption( 24 )
      :SetCoors( { | o | 2 }, { | o | 2 }, ;
                 { | o | o:oWnd:nHeight - 42  }, ;
                 { | o | o:oWnd:nWidth - 20 } )
      :SetCaption( { | o | cUrl } )
      :SetColors( CLR_WHITE, METRO_RED, Rgb( 88, 88, 88 ), CLR_WHITE )
      :SetFont( oFont4 )
      :SetBorderSize( 1 )
      :SetImgsFiles( { { "..\bitmaps\16x16\options.bmp", { | o | MyPopupMnu( o ) }, "ToolTip" } } )
      :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := ShowPageWeb( o, cUrl, nT, nL, nH, nW ) } )//, ;
      //                                                 SetParent( oB:hWnd, o:hWnd ) } )
      :Activate()
   END

Return nil

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


Function MyPopupMnu( o )

   local oMnu
   local nRow  := o:nTop  + Int( o:nHeight / 2 ) 
   local nCol  := o:nLeft + Int( o:nWidth / 2 ) 

   MENU oMnu POPUP 2013 ;
      COLORSELECT METRO_STEEL, METRO_STEEL, CLR_WHITE ;
      COLORMENU CLR_WHITE, CLR_BLUE ;
      COLORSEPARATOR METRO_STEEL ;
      COLORLEFT CLR_WHITE ;
      FONT oFont4

      MENUITEM "Info" ACTION MsgInfo( "Class TDockPnel" )
      SEPARATOR
      MENUITEM "Exit" ACTION oWindow:End()

   ENDMENU
   ACTIVATE MENU oMnu AT nRow, nCol OF o:oWnd

Return oMnu

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

Function ShowPageWeb( oParent, cUrl, nT, nL, nH, nW )

   local oActX

   //oActX := CreateObject( "InternetExplorer.Application", "IE_" )
   oActX := CreateObject( "{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}", "IE_" )
   WITH OBJECT oActX
      :Visible    := .t.
      :ToolBar    := .f.
      :StatusBar  := .f.
      :MenuBar    := .f.
      :FullScreen := .T.
      :Invoke( "Navigate", cURL )
   END
   SetParent( oActX:hWnd, oParent:hWnd )


Return oActX

//----------------------------------------------------------------------------//
//
//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 01:23 PM
Gracias por responder amigo

No te preocupes se que el error no es de tu clase, gracias por la ayuda.

Pero ahora me esta devolviendo este error.
Code (fw): Select all Collapse
Application
===========
   Path and name: C:\fwh1909\samples\leandro10.exe (32 bits)
   Size: 3,971,072 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613)
   FiveWin  version: FWH 19.09
   C compiler version: Borland/Embarcadero C++ 7.3 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 02/07/21, 08:20:40
   Error description: Error TOleAuto/65535  : TOLEAUTO:NEW
   Args:
     [   1] = C   {D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}
     [   2] = U   
     [   3] = C   IE_

Stack Calls
===========
   Called from:  => THROW( 0 )
   Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )
   Called from: source\rtl\win32ole.prg => CREATEOBJECT( 0 )
   Called from: leandro10.prg => SHOWPAGEWEB( 131 )
   Called from: leandro10.prg => (b)CREADOCKS( 88 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTPNELH( 814 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTCTRLSPNELP( 739 )
   Called from: .\source\internal\TDOCKPNEL.PRG => (b)TDOCKPNEL:CREATEPNELP( 660 )
   Called from: .\source\classes\TPANEL.PRG => TPANEL:PAINT( 162 )
   Called from: .\source\classes\TPANEL.PRG => (b)TPANEL:TPANEL( 23 )
   Called from:  => TPANEL:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TPANEL:HANDLEEVENT( 1767 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
   Called from: leandro10.prg => TESTDOCKPNEL( 65 )
   Called from: leandro10.prg => MAIN( 41 )
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 01:27 PM
Leandro, intenta ahora:

Code (fw): Select all Collapse
// \SAMPLES\TDOCP2.PRG

//----------------------------------------------------------------------------//
// ( C ) Cristobal Navarro - 2021
// TDockPnel with ActiveX
//----------------------------------------------------------------------------//

#include "Fivewin.ch"
#include "colores.ch"

Static oWindow
Static nWAncho
Static nWAlto
Static nCol  
Static nRow  

Static oFont4
Static cPathApp

Static oDock1
Static oDock2
Static oDock3
Static oDock4
Static oDock5

Static cText := ""

Function Main()

   local cFont         := "Segoe UI Symbol" //TAHOMA   //CALIBRI

   DEFINE FONT oFont4    NAME "CALIBRI"  SIZE 0,-16

   TestDockPnel()

   oFont4:End()

Return nil

Static Function TestDockPnel()

   local nCol
   local nRow
   
   nWAncho   := Int( GetSysMetrics( 0 ) * 0.95 )
   nWAlto    := Int( GetSysMetrics( 1 ) * 0.95 )
   nCol      := Int( ( GetSysMetrics( 0 ) - nWAncho ) / 2 )
   nRow      := Int( ( GetSysMetrics( 1 ) - nWAlto  ) / 2 )

   DEFINE WINDOW oWindow FROM nRow, nCol TO nWAlto + nRow, nWAncho + nCol ; //MDI ;
      PIXEL TITLE "Test TDockPnel Control ActiveX - " + FWVERSION ;
      COLOR CLR_WHITE, Rgb( 182, 182, 182 )

      CreaDocks()

   ACTIVATE WINDOW oWindow

Return nil

Function CreaDocks()

   // local cUrl  := "www.google.es"
   local cUrl  := "www.google.com"

   oDock1  := TDockPnel():New( oWindow )

   WITH OBJECT oDock1

      :SetHeightCaption( 24 )
      :SetCoors( { | o | 2 }, { | o | 2 }, ;
                 { | o | o:oWnd:nHeight - 42  }, ;
                 { | o | o:oWnd:nWidth - 20 } )
      :SetCaption( { | o | cUrl } )
      :SetColors( CLR_WHITE, METRO_RED, Rgb( 88, 88, 88 ), CLR_WHITE )
      :SetFont( oFont4 )
      :SetBorderSize( 1 )
      :SetImgsFiles( { { "..\bitmaps\16x16\options.bmp", { | o | MyPopupMnu( o ) }, "ToolTip" } } )
      :SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := ShowPageWeb( o, cUrl, nT, nL, nH, nW ) }  )//, ;
      //                                                 SetParent( oB:hWnd, o:hWnd ) } )
      :Activate()

   END

Return nil

Function MyPopupMnu( o )

   local oMnu
   local nRow  := o:nTop  + Int( o:nHeight / 2 )
   local nCol  := o:nLeft + Int( o:nWidth / 2 )

   MENU oMnu POPUP 2013 ;
      COLORSELECT METRO_STEEL, METRO_STEEL, CLR_WHITE ;
      COLORMENU CLR_WHITE, CLR_BLUE ;
      COLORSEPARATOR METRO_STEEL ;
      COLORLEFT CLR_WHITE ;
      FONT oFont4

      MENUITEM "Info" ACTION MsgInfo( "Class TDockPnel" )
      SEPARATOR
      MENUITEM "Exit" ACTION oWindow:End()

   ENDMENU

   ACTIVATE MENU oMnu AT nRow, nCol OF o:oWnd

Return oMnu

Function ShowPageWeb( oParent, cUrl, nT, nL, nH, nW )

   local oActiveX, oHttp, oActiveXdo

   oActiveX := TActiveX():New( oParent, "Shell.Explorer.2", nT, nL, nW, nH )

   oActivex:Silent := .T. // aqui silence... en el script.

   oActiveX:Do( "Navigate", cUrl )

   oActivex:SetFocus()

   WHILE oActivex:Busy

      SysWait(.2)

   ENDDO

   oActiveXdo := oActiveX:Document()

   oHttp := oActiveX:GetProp( "Document" )    // -> Object Document

   IF Empty( oHttp )

      MsgInfo( "Problemas en el Site...", ;
               "Problemas en el Site..." )

      RETURN( .F. )

   ENDIF

Return oActiveX

// Fin


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 01:28 PM

Function ShowPageWeb( oParent, cUrl, nT, nL, nH, nW )

local oActiveX, oHttp, oActiveXdo

oActiveX := TActiveX():New( oParent, "Shell.Explorer.2", nT, nL, nW, nH )

oActivex:Silent := .T. // aqui silence... en el script.

oActiveX:Do( "Navigate", cUrl )

oActivex:SetFocus()

WHILE oActivex:Busy

  SysWait(.2)

ENDDO

oActiveXdo := oActiveX:Document()

oHttp := oActiveX:GetProp( "Document" ) // -> Object Document

IF Empty( oHttp )

  MsgInfo( "Problemas en el Site...", ;
           "Problemas en el Site..." )

  RETURN( .F. )

ENDIF

Return oActiveX

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 02:07 PM
Gracias por responder

Ya no muestra lo errores, pero ahora el problema es que la pagina no se muestra bien, parece que los estilos css no se cargan.

La página el navegador
https://hymplus.com/

Así se ve en el contenedor
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 02:48 PM
Leandro, en tu caso, és mejor que hagas asi:

Code (fw): Select all Collapse
// \SAMPLES\LEANDRO.PRG

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   Llama_hymplus()

RETURN NIL


FUNCTION Llama_hymplus()

   LOCAL oOle
   LOCAL chymplus

   chymplus := "https://hymplus.com/"

   DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5

   ACTIVATE WINDOW oWnd ;
      ON INIT( ShellExecute(GetActiveWindow(),"open",'"'+chymplus+'"'), oWnd:End()  )

RETURN NIL

// Fin


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 04:16 PM

karinha, gracias por responder.

Pero el código que me enviaste lo que hace es abrir una ventana del navegador directo a nuestro sitio web, pero lo que necesitamos es que este quede contenido dentro del control TDockPnel.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sun Feb 07, 2021 08:50 PM
Leandro, con el último código que te envié a mí me funciona correctamente simplemente cambiando la url

Si no te funciona, envíame un correo
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 02:13 PM
Cristobal, siguiendo el hilo de este post, existe la posibilidad de mostrar una página web dentro de una windows?
Porque tengo una versión más antigua de Fivewin y no tengo TDockPnel.
He intentado con este ejemplo
Code (fw): Select all Collapse
#include "FiveWin.ch"
function Main()
   local oWnd, oWndChild, oActiveX
   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" MDI   
   DEFINE WINDOW oWndChild MDICHILD OF oWnd
   oActiveX = TActiveX():New( oWndChild, "Shell.Explorer" )
   oWndChild:oClient = oActiveX // To fill the entire window surface
   oWndChild:Resize()
   oActiveX:Do( "Navigate2", "http://www.fivetechsoft.com" )
   ACTIVATE WINDOW oWnd 
return nil

Pero no carga los estilos ni los script.
Desde ya muchas gracias
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 03:34 PM
Intente ahora:

Code (fw): Select all Collapse
// \SAMPLES\CMSOFT1.PRG

#Include "FiveWin.ch"

STATIC oActiveX

FUNCTION CmSoft_Web()

   LOCAL oChildWnd, cTitle

   cTitle := "FiveWin Brasil"

   MsgWait( "CONECTANDO AL FIVEWIN MUNDIAL...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 )

   DEFINE WINDOW oChildWnd FROM 0, 0 TO 600, 800 PIXEL TITLE cTitle

   oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

   oActivex:Silent := .T.

   oChildWnd:oClient = oActiveX

   oActiveX:Do( "Navigate2", "http://www.fivetechsoft.com" )

   oActivex:SetFocus()

   ACTIVATE WINDOW oChildWnd

RETURN NIL

// FIN


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 03:35 PM

Intente ahora:

// \SAMPLES\CMSOFT1.PRG

Include "FiveWin.ch"

STATIC oActiveX

FUNCTION CmSoft_Web()

LOCAL oChildWnd, cTitle

cTitle := "FiveWin Brasil"

MsgWait( "CONECTANDO AL FIVEWIN MUNDIAL...", ;
"AGUARDE UM MOMENTO POR FAVOR... ", 2.0 )

DEFINE WINDOW oChildWnd FROM 0, 0 TO 600, 800 PIXEL TITLE cTitle

oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

oActivex:Silent := .T.

oChildWnd:oClient = oActiveX

oActiveX:Do( "Navigate2", "http://www.fivetechsoft.com" )

oActivex:SetFocus()

ACTIVATE WINDOW oChildWnd

RETURN NIL

// FIN

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Ajustar contenido página web en control TDockPnel
Posted: Sat Sep 18, 2021 06:12 PM
Gracias por la respuesta João. El tema es que no funciona en webs con estilos y jquery.
Con tu ejemplo, solo cambiando la url, me la muestra sin formato
Code (fw): Select all Collapse
#Include "FiveWin.ch"

STATIC oActiveX

FUNCTION CmSoft_Web()

   LOCAL oChildWnd, cTitle

   cTitle := "FiveWin Brasil"

   MsgWait( "CONECTANDO AL FIVEWIN MUNDIAL...", ;
            "AGUARDE UM MOMENTO POR FAVOR... ", 2.0 )

   DEFINE WINDOW oChildWnd FROM 0, 0 TO 600, 800 PIXEL TITLE cTitle

   oActiveX = TActiveX():New( oChildWnd, "Shell.Explorer.2" )

   oActivex:Silent := .T. //Si le sacas esto muestra los errores de lo que no puede ejecutar

   oChildWnd:oClient = oActiveX

   oActiveX:Do( "Navigate2", "https://app.pedidosbcn.com/tienda/tiendadepizzas" )

   oActivex:SetFocus()

   ACTIVATE WINDOW oChildWnd

RETURN NIL
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
Static archive · New replies & topics via GitHub Discussions