Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
9 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 9 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6989 usuários registrados
O último usuário registrado atende pelo nome de rodiney

Os nossos membros postaram um total de 4 mensagens em 2 assuntos

Mudança de path de shapes

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Mudança de path de shapes

Mensagem por Grecelp em 11/3/2011, 12:22

Amigos, estou reaproveitando um projeto do VFP8 no Seven, que está quase pronto, mas esbarrei em um problema.
Tenho um form coberto por um objeto image, que mostra uma foto de uma cidade. Centenas de shapes invisibles ficam sob diversos pontos da foto e, quando clicados, mostram um histórico daquele ponto. No clic de cada shape tenho:

lugar=MeuLugar && Variavel que determina aquela posição
DO FORM c:\paraguaçu\telas\controle && Outro form que mostra o detalhe do ponto.

Preciso converter todos os endereços dos shapes do form para: c:\Escaramuça\forms\controle
Tem como, através de código, mudar todo este endereçamento?
Obrigado, Guilherme

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por alceu11 em 11/3/2011, 13:38

Código:

no seu projeto aba code

NO seu prg main. que esta em negrito

vc tem os seguintes  comandos se nao tiver os coloques.

estava assim,,,,,,

set default to sys(5)+'\paraguacu'

e ficara assim

Set Default to sys(5)+'\escaramuca'

*** E no path mudara telas para forms

e ficara assim ,,,,,,,,,,,,,,,
set path to forms;menu;prgs;relat


se vc nao trabalha assim,,,,,,,,comece a trabalhar assim

Vc ta fazendo assim
DO FORM c:\paraguaçu\telas\controle

mude isto para
do form controle            && PORQUE vc ja indenticou no path

Qto a figura, vc tera ke entrar na propriedade pictures e alterar os paths, ja com o projeto no novo path

um exemplo de main.prg
codigo
Código:


_Screen.Visible = .F.
CLEAR ALL
CLOSE DATABASES ALL
deactivate window "Project Manager"

SET BELL OFF            && Ativa ou desativa a campainha do computador
SET CENTURY ON          && Mostra ano AAAA
SET CONFIRM OFF        && alterei dia 16062009 Especifica se é possível sair de uma caixa de texto digitando o último caractere nela contido
SET CONSOLE OFF        && Ativa ou desativa, dentro de programas, a saída para a janela principal do Visual FoxPro
SET DATE TO BRITISH    && Formato BRITISH/FRENCH   dd/mm/aa
SET DELETED ON          && Não mostra registros deletados
SET ECHO OFF            && Fecha a janela Rastrear em versões do Visual FoxPro
SET ESCAPE OFF          && Determina se o pressionamento da tecla ESC interromperá a execução do programa e de comandos
SET EXCLUSIVE OFF      && Abrir tabela utilização exclusiva ou compartilhada em uma rede
SET NOTIFY OFF          && Ativa e desativa a exibição de determinadas mensagens do sistema.
SET POINT TO ','        && Separador casa decimal
SET REFRESH TO 2        &&
SET REPROCESS TO 2 SECONDS
SET SAFETY OFF          &&
SET SEPARATOR TO '.'    && Separador milhar
SET STATUS OFF          &&
SET STATUS BAR OFF      && Não exibe a barra de status do Visual Fox Pro
SET SYSFORMATS ON      && Ativar configuração do painel de controle do windows.
SET SYSMENU OFF        && /ON && para ativar ou desativar a visualização do menu
SET TABLEVALIDATE TO 0  &&
SET TALK OFF            && Exibe os resultados dos comandos

ON SHUTDOWN QUIT  && fecha o sistema pelo "X"

*set default to c:\ajax\
SET DEFAULT TO (ADDBS(JUSTPATH(SYS(16,0))))  && para executar o programa dentro da pasta de instalação
SET PATH TO FORMS;DBC;PRGS;MENUS;BMP
*!*  verifica e valida usuário
cCaminho = ALLTRIM(SYS(5))+ALLTRIM(SYS(2003)) + '\dbc\ajax.dbc'
*WAIT windows cCaminho
OPEN DATABASE dbc\ajax.DBC
PUBLIC usuario
usuario=''
cLogin1 = "S"
cVerBD  = "Ajax"
cVersao = "TESTE-1"

_Screen.Closable    =  .T.  && fecha o programa principal pelo x

_Screen.Caption    = "Sistema de Controle - Versão ";
                        + ALLTRIM(cVersao) + " - BD: " + ALLTRIM(cVerBD);
                        + " - Hoje: " + DTOC(DATE())
_Screen.WindowState = 2  && executar maximizada
_screen.Picture =  'blog.JPG'
*
IF cLogin1 = "S"
  DO FORM login  &&acesso
  _Screen.Visible = .T.
 
  IF VARTYPE('USUARIO')<> 'U'
  _Screen.Caption    = "Sistema de Controle - Versão ";
                        + ALLTRIM(cVersao) + " - BD: " + ALLTRIM(cVerBD);
                        + " - Hoje: " + DTOC(DATE())+" "+USUARIO
  ENDIF
  *Set Procedure To Procedimentos
  Push Menu _msysmenu 
  DO menu1.mpr  &&DO menu.mpr
 
ELSE

  _Screen.Visible = .T.
  *Set Procedure To Procedimentos
  Push Menu _msysmenu
  DO menu1.mpr  &&DO menu.mpr
  *open database ALLTRIM(SYS(5))+ALLTRIM(SYS(2003)) + '\banco\BDPassaros.dbc'
ENDIF

read events
close DATABASES all
set safety off
pop menu _msysmenu


alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por Grecelp em 11/3/2011, 14:25

Se eu mudar no main.prg vai mudar tudo, preciso mudar no form porque estou juntando forms com paths diferentes, em cada um deles tenho um path predeterminado. Eu não poderia mudar no init de cada form um novo path?

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por _batmanvfp_ em 11/3/2011, 14:29

é bem como o Alceu falo
se você colocar o projeto numa nova pasta
e fazer Set Path na nova pasta
todas as imagens selecionadas, que foram com botao inverso propriedades irão mudar automatico



isso no VFP é extramente pratico pra quem utiliza a classe SAVE ASS

pois , se voce alterou a pasta do projeto
e manteve as pastas imagens dentro do projeto

Automatico eles muda as pastas , quando imagens sao selecionadas pela janela propriedades dentro de um Form

Caso voce informou o caminho inteiro de Raiz via Código

basta ir em

Tools -> Code References

Abrira uma Nova Tela

Look For Voce coloca qualquer experessão que quiser para achar no projeto inteiro desde que o mesmo esteja INCLUDE

C:\Projeto\Imagens

Clique em Search

E ele te mostrava todos os lugares que voce deve alterar
ai tera que fazer isso manualmente

então
Informou Propriedades botao inverso Pictures - Muda automatico
Informou Caminho via comando pelo projeto - Usar Code References


Última edição por _batmanvfp_ em 11/3/2011, 14:46, editado 1 vez(es)

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por Grecelp em 11/3/2011, 14:42

Mudando o código dentro de cada shape funciona legal... Acontece que são 4 forms com codigos diferentes e cada form tem uns 80 shapes. Cada form foi desenvolvido em projetos diferentes. Esta a razão de tentar mudar o path no INIT de cada form. Obrigado, vamos trocando idéias, de repente...

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por Tales Ruan em 16/3/2011, 21:43

Grece, só uma idéia..

Se você quer alterar as informações do formulário via código, tente abrir o formulário como se fosse uma tabela:

Código:
USE meuForm.scx

Tente entender como funciona. Acredito que você vai conseguir fazer o que quer, e com um programa simples evitar de alterar um monte de formulários e objetos na unha.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Mudança de path de shapes

Mensagem por Grecelp em 17/3/2011, 13:30

Alem de trocar o path dos forms, como sugerido pelo Alceu, fiz exatamente o que você indicou. Abri o form complicado com 'Use meuform.scx' e troquei a linha de código nos Methods dos shapes. Tá funcionando legal... obrigado a todos!

Grecelp
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum