ActiveX NO BORDER

[Patrick Mast]

Hi,

How can I put an activeX ona dialog with NO BORDER and with NO SCROLLBAR?
The dialog looks like this now:

while I'd like to have it look like this:


Thanks!

Patrick

[Antonio Linares]

Patrick,

Are you creating the dialogbox from source code or from resources ?

[Patrick Mast]

Are you creating the dialogbox from source code or from resources ?

From code with @ x, ACTIVEX...

Patrick

[Antonio Linares]

Patrick,

It seems as the Shell.Explorer ActiveX itself is setting those styles.

In the Class TActiveX we only use these styles:

::nStyle = nOR( WS_CHILD, WS_VISIBLE )

You could try to modify them dinamically calling to:

SetWindowLong( oActiveX:hWnd, GWL_STYLE, nXor( GetWindowLong( oActiveX:hWnd, GWL_STYLE ), nOr( WS_BORDER, WS_VSCROLL ) ) ) from the ACTIVATE DIALOG oDlg ON INIT ...

[Patrick Mast]

Antonio,

Also, If I press TAB when the cursor is in a field in the activeX, the TAB does not work in the activeX. Tab seems to go to the next field of the WINDOW, instead of the next label/get in the activex.

Patrick

[Antonio Linares]

Patrick,

Please try this:

oActiveX:nDlgCode = DLGC_WANTALLKEYS

[Patrick Mast]

Please try this:
oActiveX:nDlgCode = DLGC_WANTALLKEYS

Sorry, that did not work.

Patrick

[Antonio Linares]

Patrick,

Please provide us your test.prg and tested url, if possible. Thanks

Or is it a HTML file on disk ?

[Patrick Mast]

Antonio,

Please provide us your test.prg and tested url, if possible.

Same sample as before:

Code: Select all  Expand view

#include "FiveWin.ch"

PROCEDURE Main()

   LOCAL oWnd, oActiveX

   DEFINE WINDOW oWnd

   @ 50, 10 ACTIVEX oActiveX OF oWnd ;
            SIZE 380, 170;
            PROGID "Shell.Explorer"         
           
   oActiveX:nDlgCode = DLGC_WANTALLKEYS         

   @ 1,2 BUTTON "Fire 'Send' button" OF oWnd;
         SIZE 150,20;
         ACTION oActiveX:GetProp("Document"):Forms[0]:Submit()

   ACTIVATE WINDOW oWnd;
     ON INIT oActiveX:Do("Navigate", "http://www.winfakt.be/form_test_1.htm" )

RETURN

So, 2 problems:
1. Border and scrollbar in ActiveX
2. Tab does not go from field1 to fields2 or in the sample from field1 to submit button. Tab is handled by the WINDOW instead of the ACTIVEX.

I also tried to put the "oActiveX:nDlgCode = DLGC_WANTALLKEYS" in the ON INIT of the window, but still no luck.

Thanks!

Patrick

[Antonio Linares]

Patrick,

Please try it with a dialogbox instead of a window.

[Patrick Mast]

Please try it with a dialogbox instead of a window.

Still not ok. Please try this sample:

Code: Select all  Expand view

#include "FiveWin.ch"

PROCEDURE Main()

   LOCAL oDlg, oActiveX

   DEFINE DIALOG oDlg FROM 0,0 TO 20,70

   @ 5,5 ACTIVEX oActiveX OF oDlg ;
         SIZE 265, 110;
         PROGID "Shell.Explorer"         
           
   oActiveX:nDlgCode = DLGC_WANTALLKEYS
   
   @ 7,35 BUTTON "Next" OF oDlg;
          SIZE 50,12;
          ACTION oActiveX:GetProp("Document"):Forms[0]:Submit()

   @ 7,25 BUTTON "Previous" OF oDlg;
          SIZE 50,12;
          ACTION oActiveX:Do("GoBack")
         
   ACTIVATE DIALOG oDlg CENTER;
     ON INIT (oActiveX:Do("Navigate", "http://www.winfakt.be/wf/test.asp" ),;
              oActiveX:nDlgCode = DLGC_WANTALLKEYS)

RETURN

If you run this, the dialog looks like this:

If you now press TAB, it looks like this:

While I expected to have input field 2 to become active.

So, 2 problems here;

1. Pressing TAB still try's to go from control to control ON the DIALOG, instead of going from field to field in the BROWSER object.

2. The Browser object gets repainted and it gets hidden except for the active input field.

Patrick

[Antonio Linares]

Patrick,

You are missing a ":" here:

oActiveX:nDlgCode := DLGC_WANTALLKEYS

[Patrick Mast]

You are missing a ":" here:
oActiveX:nDlgCode := DLGC_WANTALLKEYS

Same result with :=

I think you need to build the app and see for yourself Antonio.

Patrick

[Antonio Linares]

Patrick,

We are doing all kind of tests but no luck up to now. It seems as the ActiveX traps all the events. Please notice that bLostFocus is not executed:

Code: Select all  Expand view

#include "FiveWin.ch"

PROCEDURE Main()

   LOCAL oDlg, oActiveX, cEvents := ""

   DEFINE DIALOG oDlg FROM 0,0 TO 20,70

   @ 5,5 ACTIVEX oActiveX OF oDlg ;
         SIZE 265, 110;
         PROGID "Shell.Explorer"         
           
   oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) }
   oActiveX:bLostFocus = { || Msgbeep() }
   
   @ 7,35 BUTTON "Next" OF oDlg;
          SIZE 50,12;
          ACTION oActiveX:GetProp("Document"):Forms[0]:Submit()

   @ 7,25 BUTTON "Previous" OF oDlg;
          SIZE 50,12;
          ACTION oActiveX:Do("GoBack")
         
   ACTIVATE DIALOG oDlg CENTER;
     ON INIT (oActiveX:Do("Navigate", "http://www.winfakt.be/wf/test.asp" ),;
              oActiveX:nDlgCode := DLGC_WANTALLKEYS )

   MemoEdit( cEvents )

RETURN

function EventInfo( event, aParams, pParams, oActiveX )

   local cMsg := "Event: " + cValToChar( event ) + CRLF
   local n
   
   cMsg += "Params: " + CRLF
   
   for n = 1 to Len( aParams )
      cMsg += cValToChar( aParams[ n ] ) + CRLF
   next
   
   if event == "BeforeNavigate2"
      // MsgInfo( aParams[ 2 ] )
      // SetEventParam( pParams, 7, .t. ) // Comment this to allow navigation
   endif   

return cMsg + CRLF


[Patrick Mast]

We are doing all kind of tests but no luck up to now. It seems as the ActiveX traps all the events. Please notice that bLostFocus is not executed:

Yes, I also noticed. Strange things happen.

Thanks for looking at it.

Patrick