Xailer & OZ Software

emeasoft

Ramón:
Ahora entiendo.
Pero fue sólo un ejemplo.
Se debe cambiar para que no coincida con el nombre de la función,
simplemente.
Saludos.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:49fff20a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j ...

emeasoft

> Interesante tu aportación para leer funciones directamente dentro de una
>Dll, pero veo que algunas las van a usar para algo que ya existe por eso
>te aconsejo que leas este artículo.
> http://xailer.info/esp/?p=160
Ramón, poderia por favor me explicar melhor o que vocíª quis dizer
com a ...

emeasoft

> y en Form2
>
> METHOD Edit1Char( oSender, nKey, nFlags ) CLASS TForm2
> ::oParent:TeclaPulsada := nKey
>
> Por favor, corriganme los que saben si esto no es posible.
>
> Juan
>
Juan, como o ESC no Edit1 é antes de digitar alguma coisa, então
::oParent:TeclaPulsada := nKey
não será ...

emeasoft

José
No Form2 não tem botão porisso não foi possível usar esta sugestão.
A rotina é assim: no Form2 tenho 3 Edit e em qualquer pode retornar para
o Form1 com ESC. Se os 3 foram preenchido corretamento retorna com ENTER e
prossegue no Form1.
Outra solução seria, ao retornar conferir se os Edit ...

emeasoft

Juan, desculpa meu pouco conhecimento com DATA.
Mas como ler o valor de TeclaPulsada em Form1?
::olabel1:ctext:= STR(TeclaPulsada)
Grato.
Mário
"Juan Castañeda" < jrcsistemas@speedy.com.ar > escreveu na mensagem
news:49ff2e4f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Mario ...

emeasoft

José, era isto mesmo que voce mencionou.
Mas encontrei a seguinte solução:
Trabalho com um Form pai (padre) que chama os
Form filhos (hijos). Se o Form filho não for
totalmente preenchido, por exemplo, no caso de um ESC
retorna ao Form pai e não deixa seguir para o próximo passo.
Então, fiz ...

emeasoft

José, estava pesquisando no manual de ajuda e encontrei a informação:
Parametros:
<oSender>: Referencia al objeto que provoca el evento
<nKey>: Código de la tecla tipo carácter pulsada
<nFlags>: Información adicional sobre la pulsación
Valor Retorno:
<Nil>: Sigue el procesamiento por defecto ...

emeasoft

Descobri:
Crio todos os métodos com o mesmo nome e pego
o valor em oSender:cText:
METHOD OptionClick( oSender ) CLASS TForm2
LOCAL x01:=oSender:cText
::oLabel2:ctext := x01
Func_teste(x01)
RETURN Nil
ou:
METHOD OptionClick( oSender ) CLASS TForm2
Func_teste(::oLabel2:ctext :=oSender:cText ...

emeasoft

Ramón:
> No se si lo que quieres es esto:
> ::O_diversos:aItems[1]:cText
O que estou querendo é fazer o seguinte:
Tenho uma rotina com quase 200 opçíµes de escolha no OptionList então
seria necessário criar 200 métodos OptionList1Item" X "Click...
conforme exemplo abaixo;
Queria descobrir uma ...

emeasoft

Explicando melhor, isto seria útil quando se trabalha
com diversos projetos, como projeto principal (EXE)
e os projetos de DLL e LIB.
No caso de trabalhar com projeto único não teria
muita razão pois poderá ser configurado em Ferramentas.
Mas mesmo assim também poderia ser mais uma
opção.
Mário

emeasoft

Holla
Sugiro que ao abrir a IDE já apareça a tela para selecionar os projetos
conforme
exemplo anexo.
Isto vai economizar um clique.
Grato
Mário
www.eMeAsOfT.com.br
--

Attached files

emeasoft

Jose, saudaçíµes:
Na minha opinião as explicaçíµes do manual de ajuda deixam a desejar para
os iniciantes (em Xailer) como eu que muitas vezes não consigo
interpretá-las corretamente.
Esforço-me a procurar ajuda nele, mas confesso que ainda encontro muitas
dificuldades em entendíª-las.
O que ...

emeasoft

Ramón:
Estava fazendo assim:
::oLabel2:cText := ::oOptionList1:aItems[1]
Mas voltava em branco.
Assim funcionou corretamente:
::oLabel2:cText := ::oOptionList1:aItems[1]:cText
Grato.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49fdd08e ...

emeasoft

Holla!
Quando clico em uma opção do TOptionList
como mostrar a opção escolhida no label?
Ex:
oLabel1:ctext:= ????-> 041-MANUTENí‡íƒO DE ARQUIVOS
WITH OBJECT ::O_diversos := TOptionList():New( ::oExplorerBar1 )
:SetBounds( 11, 43, 238, 50 )
:lVisible := .F.
:AddItem( "041-MANUTENí‡íƒO DE ...

emeasoft

José:
Deu certo.
Grato.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:[email=49fc19c4@svctag-j7w3v3j....]49fc19c4@svctag-j7w3v3j....[/email]
> Mário,
>
> El problema es el nombre de los iconos que contiene el ejecutable. Para
> windows, el icono a mostrar en el ...

emeasoft

Holla!
Se estou no TEdit do Form1 e chamo
o TEdit do Form2, digito ESC no Form2 e volta para o Form1,
como saber no Form1 qual foi a última tecla digitada?
Tentei o Lastkey() do xHarbour mas não funcionou.
Grato.
Mário

emeasoft

Ramón,
O link abaixo vai para:
Nueva versión de Messages.Prg para Xailer
Aqui os dejo una nueva versión de Messages.Prg con su manual comp....
í‰ isto mesmo?
Pois não entendi sua colocação.
Mário
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news ...

emeasoft

Ramón,
Acho que o bug continua.
Já tinha atualizado a minha versão mas atualizei novamente.
Fiz novo projeto :
Procedure Main()
Application:cTitle := "teste"
Application:oIcon := "CMX32.ico"
TForm2():New( Application ):Show()
Application:Run()
Return
Mas continua aparecendo CLIENTE.ICO ...

emeasoft

> A propósito o que significa esta linha:
> Application:lSingleInstance := .T.
Encontrei no Manual:
Si verdadero sólo se permite una instanacia del programa ejecutandose en la
misma máquina. En el caso de que se intentase ejecutar el programa una
segunda vez tan sólo se produciría un cambio ...

emeasoft

Bom dia,
Está correto:
Application:oIcon := "CMX32.ICO"
Mesmo assim o ICO do EXE fica errado.
Fiz um teste com um novo projeto e deve ter algum "bug" nisto pois
o EXE do novo projeto fica com o ICO do Xailer.
Experimente.
A propósito o que significa esta linha:
Application:lSingleInstance ...

emeasoft

Holla!
Não consigo entender porque o executável aparece no Win Explorer com o ICO
diferente.
Na Propriedade do Projeto o icone é o CMX32.ICO (32X32)
No executavel aparece o CLIENTE.ICO. Não sei como alterar isto para
CMX32.ICO.
Mário
www.eMeAsOfT.com.br
--

Attached files

emeasoft

Segue exemplo.
Mário
www.eMeAsOfT.com.br
--

Attached files TESTEDLL.ZIP (5.3 KB)Â

emeasoft

Realmente, muito interessante esta informação.
Grato.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f890a9@svctag-j7w3v3j....]49f890a9@svctag-j7w3v3j....[/email]
> Saludos:
>
> Sería interesante que leas este articulo, escrito por uno de ...

emeasoft

Ramón:
Funcionou.
Estou aprendendo Xailer e ainda não consigo entender bem sobre todos
os eventos, apesar de consultar o Manual.
Grato.
Mário
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f8881d@svctag-j7w3v3j....]49f8881d@svctag-j7w3v3j ...

emeasoft

OBS: estou usando Xailer 2.
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escreveu
na mensagem news:[email=49f21641@svctag-j7w3v3j....]49f21641@svctag-j7w3v3j....[/email]
> Saludos:
>
> Donde lo necesites pon esto ::oForm:Close(.T.)
>
> Esto dice la Ayuda:
>
> TForm ...

Se encontraron 1094 coincidencias

Exemplo como ler Function em DLL (Xailer 2)

Exemplo como ler Function em DLL (Xailer 2)

LASTKEY()

LASTKEY()

LASTKEY()

LASTKEY()

LASTKEY()

TOptioList

TOptioList

Sugerencia

Sugerencia

TOptioList

TOptioList

TOptioList

ICO do executável

LASTKEY()

Exemplo como ler Function em DLL (Xailer 2)

ICO do executável

ICO do executável

ICO do executável

ICO do executável

Exemplo como ler Function em DLL (Xailer 2)

cerrar automático Tform

cerrar automático Tform

cerrar automático Tform