FiveTech Software tech support forums

Code: Select all | Expand

  #include "FiveWin.ch"

  function Main()

 local oDlg, oWeb

 DEFINE DIALOG oDlg FROM 0, 0 TO 600, 600 TITLE "My dialog" ;
    PIXEL TRUEPIXEL RESIZABLE

 oDlg:bStart := {|| oWeb := TWebView():New( 0, oDlg:hWnd ), ;
                    oWeb:SetParent( oDlg ), ;
                    oWeb:Navigate( "https://www.fivetechsoft.com" ) }

 oDlg:bResized := {|| If( oWeb != nil, ;
    oWeb:SetSize( oDlg:nClientWidth, oDlg:nClientHeight ), ) }

 ACTIVATE DIALOG oDlg ;
    VALID ( oWeb:End(), .T. )

  return nil

Code: Select all | Expand

METHOD SetSize( nWidth, nHeight, nHints ) INLINE WebView_SetSize( ::hWebView, nWidth, nHeight, nHints )
``` 

The possible values are defined as constants at the top of the same file:

| Constant | Value | Meaning |
|---|---|---|
| `WEBVIEW_HINT_NONE` | 0 | Width and height are the **default size** |
| `WEBVIEW_HINT_MIN` | 1 | Width and height are **minimum bounds** |
| `WEBVIEW_HINT_MAX` | 2 | Width and height are **maximum bounds** |
| `WEBVIEW_HINT_FIXED` | 3 | Window size **cannot be changed** by the user | [0-cite-1](#0-cite-1) 

These constants come from the underlying webview library API (`webview_set_size` in `webview.h`): [0-cite-2](#0-cite-2) 

On the Win32 backend, the implementation uses these hints to set window styles and geometry constraints — for example, `WEBVIEW_HINT_MIN` sets the minimum window size, `WEBVIEW_HINT_MAX` sets the maximum, and `WEBVIEW_HINT_FIXED` removes the `WS_THICKFRAME` style to prevent resizing: 

**Important note:** This third parameter only applies to `TWebView`, not `TWebView2`. The `TWebView2:SetSize()` method only accepts two parameters (`nWidth, nHeight`) and directly calls `pController->put_Bounds()` without any hint logic. 

In your code, since you're using `TWebView` and embedding it as a child of a dialog, you're calling `oWeb:SetSize( oDlg:nClientWidth, oDlg:nClientHeight )` without the third parameter, which defaults to `WEBVIEW_HINT_NONE` (0) — meaning the values are treated as the default/current size. That's the correct usage for a resize handler.

Code: Select all | Expand

oDlg:bResized := {|| If( oWeb != nil, ;
   SetWindowPos( oWeb:GetWindow(), 0, 0, 0, oDlg:nClientWidth, oDlg:nClientHeight, 4 ), ) }

Code: Select all | Expand

// C:\FWH2603\SAMPLES\ SIZEMATH.PRG

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oWeb, oBar, oFont, oBtn
   LOCAL cVer := "Exit"

   DEFINE FONT  oFont  NAME "MS SANS SERIF"  SIZE 0,-12

   DEFINE DIALOG oDlg FROM 0, 0 TO 600, 600 TITLE "My dialog" ;
      PIXEL TRUEPIXEL RESIZABLE

   // No funciona?
   // oDlg:lHelpIcon := .T.

   oDlg:bStart := {|| oWeb := TWebView():New( 0, oDlg:hWnd ), ;
                      oWeb:SetParent( oDlg ),                 ;
                      oWeb:Navigate( "https://www.fivetechsoft.com" ) }

   oDlg:bResized := {|| If( oWeb != nil, ;
      oWeb:SetSize( oDlg:nClientWidth, oDlg:nClientHeight ), ) }

   // DEFINE BUTTONBAR oBar OF oDlg _3D BOTTOM // 2007

   // No funciona
   // DEFINE BUTTON OF oBar FILE "..\bitmaps\16x16\exit.bmp" ;
   //   ACTION( oWeb:End(), oDlg:End())

   // No funciona
   @ 605, 250 BTNBMP oBtn OF oDlg SIZE 50 , 30 PROMPT cVer FONT oFont CENTER ;
      PIXEL ACTION( oWeb:End(), oDlg:End(), __Quit() )  //???

   // centered no funciona?
   ACTIVATE DIALOG oDlg CENTERED // VALID ( oWeb:End(), .T. ) // Para??

RETURN NIL

// FIN / END

Code: Select all | Expand

#Include "FiveWin.ch"  
  

FUNCTION Main()  
  

   LOCAL oDlg, oWeb, oFont, oBtn  

   LOCAL cVer := "Exit"  
  

   DEFINE FONT  oFont  NAME "MS SANS SERIF"  SIZE 0,-12  
  

   DEFINE DIALOG oDlg FROM 0, 0 TO 600, 600 TITLE "My dialog" ;  

      PIXEL TRUEPIXEL RESIZABLE  
  

   oDlg:bStart := {|| oWeb := TWebView():New( 0, oDlg:hWnd ), ;  

                      oWeb:SetParent( oDlg ),                 ;  

                      oWeb:Navigate( "https://www.fivetechsoft.com" ) }  
  

   oDlg:bResized := {|| If( oWeb != nil, ;  

      oWeb:SetSize( oDlg:nClientWidth, oDlg:nClientHeight ), ) }  
  

   // CORRECCIÓN: Posición del botón dentro del área visible (550 en lugar de 605)  

   @ 550, 250 BTNBMP oBtn OF oDlg SIZE 50, 30 PROMPT cVer FONT oFont CENTER ;  

      PIXEL ACTION oDlg:End()  
  

   ACTIVATE DIALOG oDlg CENTERED  
  

RETURN NIL

Code: Select all | Expand

oWeb:SetParent( oDlg )