FiveTech Software tech support forums

Antonio Linares wrote:Hakan,

Yes, it is possible to change position, size and title of the webview control

There are still a few wrappers to implement, if you need them, just let us know it

Code: Select all  Expand view

DLL FUNCTION WEBVIEW_GET_WINDOW( hWebView AS LONG ) AS LONG PASCAL FROM "webview_get_window" LIB hDLL
// nHint
#define WEBVIEW_HINT_NONE  0   // Width and height are default size
#define WEBVIEW_HINT_MIN   1   // Width and height are minimum bounds
#define WEBVIEW_HINT_MAX   2   // Width and height are maximum bounds
#define WEBVIEW_HINT_FIXED 3   // Window size can not be changed by a user
DLL FUNCTION WEBVIEW_SET_SIZE( hWebView AS LONG, nWidth AS _INT, nHeight AS LONG, nHint AS LONG ) AS VOID PASCAL FROM "webview_set_size" LIB hDLL
DLL FUNCTION WEBVIEW_SET_TITLE( hWebView AS LONG, cTitle AS LPSTR ) AS VOID PASCAL FROM "webview_set_title" LIB hDLL

leandro wrote:
* Se puede incrustar dentro de cualquier control?

Code: Select all  Expand view

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

function CreateWebView( oP )

   local cRet        := ""
   local n
   local hWndWebView
   local nStyle

   hWebView := WebView_Create( 0, 0 )

   WebView_Navigate( hWebView, "about:blank" )
   hWndWebView     := WebView_Get_Window( hWebView )
   nStyle          := GetWindowLong( hWndWebView, GWL_STYLE )
   nStyle          -= WS_CAPTION
   nStyle          -= WS_SYSMENU
   nStyle          += WS_THICKFRAME
   SetWindowLong( hWndWebView, GWL_STYLE, nStyle )
   SetWindowPos( hWndWebView, nil, 1, 1, oP:nWidth  - 2, oP:nHeight - 2, 0 )
   SetParent( hWndWebView, oP:hWnd )

   WebView_Bind( hWebView, "SendToFWH", SendToFWHAddress(), hWebView )
   WebView_Run( hWebView )
   EndWebView()

Return nil

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

Function EndWebView()

   WebView_Destroy( hWebView )
   FreeLibrary( hDLL )

return nil

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

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWin for Harbour 19.09 (MSVC++) Sep. 2019     Harbour development power │▄
│ (c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
**********************************************************************
** Visual Studio 2019 Developer Command Prompt v16.11.3
** Copyright (c) 2021 Microsoft Corporation
**********************************************************************
[vcvarsall.bat] Environment initialized for: 'x86'
Compiling...
Harbour 3.2.0dev (r2008190002)
Copyright (c) 1999-2020, https://harbour.github.io/
Compiling 'webview.prg' and generating preprocessed output to 'webview.ppo'...
Lines 4984, Functions/Procedures 8
Generating C source output to 'webview.c'... Done.
Compilador de optimización de C/C++ de Microsoft (R) versión 19.29.30133 para x86
(C) Microsoft Corporation. Todos los derechos reservados.

webview.c
LINK : fatal error LNK1181: no se puede abrir el archivo de entrada '.\..\lib\hbhpdf32.lib'
* Linking errors *

C:\fwh1909\samples>

 

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
?FiveWin for Harbour 19.09 (MSVC++) Sep. 2019     Harbour development power │▄
?(c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘?
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀?
**********************************************************************
** Visual Studio 2019 Developer Command Prompt v16.11.3
** Copyright (c) 2021 Microsoft Corporation
**********************************************************************
La línea escrita es demasiado larga.
La sintaxis del comando no es correcta.
C:\fwh1909\samples>
 

Code: Select all  Expand view

#pragma BEGINDUMP

#include <hbapi.h>

void * webview_create(int debug, void * window );
void webview_run( void * w );
void webview_navigate( void * w, const char * url );

HB_FUNC( WEBVIEW_CREATE )
{
   hb_retptr( webview_create( 0, NULL ) );
}

HB_FUNC( WEBVIEW_RUN )
{
   webview_run( hb_parptr( 1 ) );
}

HB_FUNC( WEBVIEW_NAVIGATE )
{
   webview_navigate( hb_parptr( 1 ), hb_parc( 2 ) );
}

#pragma ENDDUMP