Passar parâmetro pra thread

[asimoes]

Agora ficou bom

[JoséQuintas]

Aqui aconteceu a mesma coisa com GTWVG, só funcionou na primeira vez.
Depois só com as mudanças de registro.
Dei uma otimizada na configuração.

Código: Selecionar todos

#include "inkey.ch"

PROCEDURE Main

   LOCAL oCom, nFlagIE := 11001, oElement

   FOR EACH oElement IN { ;
      "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", ;
      "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
      "SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_TABBED_BROWSING", ;
      "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", ;
      "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
      "SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_TABBED_BROWSING" }
      win_regQuery( WIN_HKEY_LOCAL_MACHINE, oElement, "test.exe", nFlagIE, .T. )
   NEXT

   SetMode(40,100)
   CLS
   oCom := WvgActiveXControl():New( , , { 0, 0 }, { 800, 600 }, , .T. )
   oCom:CLSID := "http://www.google.com.br/maps/dir/03676-080/03676-070/"
   oCom:create()

   Inkey(0)

   RETURN

[JoséQuintas]

Também resolvi o problema do alfabeto acabar nos buttons... rs
Vou usar teclas F-x
Não para o usuário usar, mas pra uso interno, pra traduzir os buttons.
De F2 a F9, shift-F1 a shift-F9, control-F1 a control-F9, Alt-F1 a Allt-F9.
Isso aumenta as possibilidades em quase 40 opções, que pretendo nunca precisar, mas nunca se sabe.... rs

Tipo "<F2>MapaGoogle"

E no fonte:

IF cOpcao == "F2"
MapaGoogle()
ENDIF

Isso é pra testar o clique no button, e não para o usuário apertara tecla.

Mas durante o post já comecei a pensar na opção melhor:
Com a saída da opção de menu console, nada impede de atribuir um codeblock ao button, igual qualquer gui....
Vou testar isso depois.

[JoséQuintas]

Versão final... de hoje... rs

Eu disse... rs

Alterei pra não usar array, na chamada.

Código: Selecionar todos

FUNCTION GoogleMaps( ... )

   LOCAL aLIst

   aList := hb_AParams()
...

Mas em determinada situação precisei da função oposta:

Código: Selecionar todos

GoogleMaps( hb_ParamsToArray( aArray ) )

Talvez altere novamente, pra aceitar de qualquer das duas formas..... rs

[JoséQuintas]

Talvez altere novamente, pra aceitar de qualquer das duas formas..... rs

alterado.
Acrescentei isto:

Código: Selecionar todos

   IF Len( aList ) > 0 .AND. ValType( aList[ 1 ] ) == "A"
      aList := aList[ 1 ]
   ENDIF

Agora tanto faz, pode ser array ou lista de CEPs.
Dispensou o hb_ParamsToArray().