ActiveX NO BORDER
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Patrick,
We have done some progress The style WS_TABSTOP was not used from Class TActiveX ! This change is required:
METHOD New( ... ) ...
...
::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
Now bGotFocus is properly fired
Now we need to discover where the focus goes when the ActiveX gets the focus...
We have done some progress The style WS_TABSTOP was not used from Class TActiveX ! This change is required:
METHOD New( ... ) ...
...
::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
Now bGotFocus is properly fired
Now we need to discover where the focus goes when the ActiveX gets the focus...
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Some more research:
It seems as the ActiveX has its own Windows handle, different from the TActiveX control:
It seems as the ActiveX has its own Windows handle, different from the TActiveX control:
Code: Select all
@ 7,15 BUTTON "Test" OF oDlg;
SIZE 50,12;
ACTION MsgInfo( oActiveX:Do( "GetWindow" ) == oActiveX:hWnd )
Patrick
See the code below:
This code shows how to enter data into one remote .DBF.
With xHarbour change TOLEAuto():New() for CreateObject().
Codigo SALVA.ASP
If wish to make the test track IExplorer simply enter a command like:
Bye
See the code below:
This code shows how to enter data into one remote .DBF.
With xHarbour change TOLEAuto():New() for CreateObject().
Code: Select all
#include "fivewin.ch"
Function Main()
LOCAL loHyperlink := TOLEAuto():New( "Microsoft.XmlHttp" )
//
set default to "c:\YourSystem"
use clientes new shared
//
do while .not. eof()
if !empty(clientes->campo1)
cURL := "http://www.SeuDominio.com.br/salva.asp"
cURL := cURL + "?campo1="+clientes->campo1
cURL := cURL + "&campo2="+clientes->campo2
//
loHyperlink:Open( "POST", cURL, .F. )
loHyperlink:Send( "" )
//
MsgRun("Adicionei mais um")
endif
skip
enddo
//
return nil
Code: Select all
<%
' Codigo exemplo de salvamento de variaveis via HTTP GET
' podendo ou nao ser retornado apenas o valor inteiro.
'------------------------------------------------------------
pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder)& "\" & lcase(formaction))
db_dir = left(request.servervariables("path_translated"), pos-1 )
db = db_dir & ".\"
' Campos _ = replace( request.QueryString("campo1"), "'", "''")
campo2 = replace( request.QueryString("campo2"), "'", "''")
set cnn= server.createobject("adodb.connection")
cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ="& db &";"
cnn.execute("INSERT INTO tabela(campo1,campo2)" & _
"VALUES ('"&_
campo1&"','"&_
campo2&"')" )
Set cnn = Nothing
Set Mail = Nothing
%>
Code: Select all
http://www.SeuDominio.com.br/salva.asp?campo1=DadosNoCampo1&campo2=DadosNoCampo2
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
-
- Posts: 603
- Joined: Sun May 04, 2008 8:44 pm
no scroll
without broder i dont know more to without scroll only u addPatrick Mast wrote:Thank you Rochinha
Patrick
in uer HTML
<body scroll=no>
- Patrick Mast
- Posts: 244
- Joined: Sat Mar 03, 2007 8:42 pm
Re: no scroll
Perfect!without broder i dont know more to without scroll only u add
in uer HTML
<body scroll=no>
Thanks you.
Patrick
-
- Posts: 603
- Joined: Sun May 04, 2008 8:44 pm
no scroll
And about border what u did ?
thanks
thanks
- Patrick Mast
- Posts: 244
- Joined: Sat Mar 03, 2007 8:42 pm
Re: no scroll
No solution for that. As wel as no solution on TAB'ing in a web activeX control.lailton.webmaster wrote:And about border what u did ?
Patrick
-
- Posts: 603
- Joined: Sun May 04, 2008 8:44 pm
oh
Oh ok thanks if i found something i post here
thanks
thanks
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact: