Clipper On Line • Ver Tópico - Xailer - Sem poder alterar conteudo na procedure "MAIN"

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Discussão sobre a Xailer

Moderador: Moderadores

 

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagempor joelmva » 07 Ago 2013 19:07

Olá pessoal,

Estou iniciando os estudos no Xailer (3.0.2) e está ocorrendo a seguinte situação:
Ao tentar alterar os valores de:

Procedure Main()
   Application:cTitle := "TESTE"
   TForm_Acesso():New( Application ):Show()
   Application:Run()
Return


Para:

Procedure Main()
   Application:cTitle := "Sistema Teste"
   IniSystem()
   Application:Run()
Return


Após salvar e compilar ou fechar a solução e abrir novamente, os valores voltam para o ponto original como se não fosse permitido mudar nada:
Procedure Main()
   Application:cTitle := "TESTE"
   TForm_Acesso():New( Application ):Show()
   Application:Run()
Return


Alguém passou por isso?

Abraços.
Nota de Moderação:
Toledo: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
joelmva
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 25 Abr 2012 09:00
Cidade/Estado: Fortaleza
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagempor fladimir » 07 Ago 2013 20:41

Sim, faz o seguinte começa o projeto e não define no projeto o módulo ai vc define abaixo

Procedure Main()

   Application:cTitle := "SOAP"
   Application:Run()

Return

Funtion INISYSTEM()

//Declaracoes inicias etc...

RETURN NIL


Observe q eu não defini nada somente abaixo criei a função INISYSTEM
Ai vc salva e vai em projeto propriedades e escolhe o nome do projeto q vc esta mesmo, pois não tera nenhum formulario... blz... ai funciona vc pode depois salvar q não muda... eu apanhei muito no inicio até aprender isso..

Qdo vc salvar ele vai mudar o código acima para:

Procedure Main()

   Application:cTitle := "SOAP"
   INISYSTEM()                        // Ele entende que agora seu projeto foi definido uma função ou método q foi atribuido ao projeto em propriedades
   Application:Run()

Return

Funtion INISYSTEM()

//Declaracoes inicias etc...

RETURN NIL


[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


DESKTOP CONSOLE Harbour | MinGW | DBF | CDX | FastReport | MySQL
DESKTOP VISUAL... Harbour | MinGW | Xailer | MariaDB Nativo | FastReport
MOBILE Android/IOS e WEB - Windev Mobile 22
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2363
Data de registro: 15 Nov 2006 19:21
Curtiu: 26 vezes
Mens.Curtidas: 137 vezes

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagempor joelmva » 08 Ago 2013 10:09

Olá,

Valeu pela dica.

Obrigado.
joelmva
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 25 Abr 2012 09:00
Cidade/Estado: Fortaleza
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Xailer

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro