Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
15 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 15 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
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 47 mensagens em 24 assuntos

Resolucao ajustar Objetos

Página 1 de 2 1, 2  Seguinte

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

Resolvido Resolucao ajustar Objetos

Mensagem por m@r<3|o em 15/9/2010, 13:59

Olá Pessoal ,
ainda existe a luta para entender a resolucao,
estou iniciando um novo projeto
e estou com duvidas

se utilizar para programar em 800 x 600 pega a screen toda apartir dela mudar para
1024 x 7... a tela se centraliza a uma reducao de 50% to tamanho normal

como fazer , para que 1024x7... pege a screen toda como = a da 800x600

alguem tem PRG Funcao , vo caçar e depois pretendo utilizar como nao vo saber usar , vo postar para ver se me ajudam a utiliza-la ,

Código:
FUNCTION ChangeRes
LPARAMETERS tnWidth, tnHeight
LOCAL lnWidth, lnHeight, lnModeNum, lcDevMode

lnModeNum = 0
lcDevMode = REPLICATE(CHR(0), 156)
lnWidth = IIF(EMPTY(tnWidth), 800, tnWidth)
lnHeight = IIF(EMPTY(tnHeight), 600, tnHeight)

*!* Instrucciones DECLARE DLL para cambiar resolución
DECLARE INTEGER EnumDisplaySettings IN Win32API ;
STRING lpszDeviceName,;
INTEGER iModeNum, ;
STRING @lpDevMode

DECLARE INTEGER ChangeDisplaySettings IN Win32API STRING @lpDevMode, INTEGER dwFlags

*!* Bucle para obtener todos los modos disponibles
DO WHILE EnumDisplaySettings(NULL, lnModeNum, @lcDevMode) <> 0
lnModeNum = lnModeNum +1
ENDDO

*!* Configurar la structura DevMode
lcDevMode = STUFF(lcDevMode, 41, 4, LongToStr(1572864))
lcDevMode = STUFF(lcDevMode, 109, 4, LongToStr(tnWidth)) && Ancho
lcDevMode = STUFF(lcDevMode, 113, 4, LongToStr(tnHeight)) && Alto

*!* Cambiar resolucion
ChangeDisplaySettings(@lcDevMode, 1)
ENDFUNC

FUNCTION LongToStr
LPARAMETERS lnLongVal
LOCAL lnCnt, lcRetStr
lcRetStr = ''
FOR lnCnt = 24 TO 0 STEP -8
lcRetStr = CHR(INT(lnLongVal/(2^lnCnt))) + lcRetStr
lnLongVal = MOD(lnLongVal, (2^lnCnt))
NEXT
RETURN lcRetStr
ENDFUNC

Essa funcao nao sei quem criou , o que ela faria , serveria pro meu caso
e como utilizar ?? testar ??

Obrigado
abs
Marcelo Fazan

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por m@r<3|o em 15/9/2010, 14:32

Código:
SET TALK OFF
set resource off
_VFP.visible = .F.
IF sysmetric(1) < 800 or sysmetric(2) < 600
  MESSAGEBOX("This program requires at least 800x600 resolution", 0+16+4096, "Please Note")
  RETURN
ENDIF

somente acho verificacao e codigos que mudam a resolucao do windows em si
ainda nao consigui achar a utilizacao propriamente nos objetos,

ao meu ponto de vista, a tela que criei no form inteiro em 800x600
tem que ser do tamanho na tela com 1024x7.... ai sim seria o efeito que quero

sera que o que to querendo nao existe ?


m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por m@r<3|o em 19/9/2010, 15:38

entendi o processo de ajustar a resolucao com o programa

mais ainda tenho duvida a como ajustar os objetos a resolucao

sendo que 800x600 minhas grades pegam a tela inteira

quero que em 1024x768 tambem peguem a tela inteira

sendo que o projeto foi criado com 800x600

tem como ?

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 19/9/2010, 23:07

Usando assim , simplesmente nao altero resolucao
somente informo que se a resolucao for igual ou menor que 800x600 ela nao entra no sistema

coloquei no init do login isso
isso serve para quem somente aceita 1024x768 igual ou acima

mesmo tambem existe outras resolucoes , e se for um monitor que nao tem a resolucao a qual coloco pra modificar ? vai dar um pau daqueles

esse codigo meio que explica que ele tem que trocar , já da pra se entender , da questao de nao aceitar 800x600


Código:
IF SYSMETRIC(1) <= 800 OR SYSMETRIC(2) <= 600
= MESSAGEBOX("O sistema Não Suporta as Resoluções 640x480 e 800x600  Modifique para as Resoluçoes 1024x768 ou 1280x800",_screen.caption )
=MESSAGEBOX("Pressione Botao Inverso no Desktop va em Propriedades na Nova Janela na Ultima Aba Clique em Configuracoes e escolha uma Resolucao entre 1024x768 ou 1280x800 Clique em Aplicar e depois Sim Entre novamente no Sistema", _screen.caption )
CLOSE DATABASES ALL
THISFORM.RELEASE
On ShutDown QUIT
CLEAR
QUIT
ENDIF

já quebra um Galho Marcelo !

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Tales Ruan em 20/9/2010, 00:03

Saudações.

Não entendi se é exatamente este o problema, mas uma vez fiz um código que deixava as telas mais ou menos* proporcionais, em qualquer resolução.

*Ainda tem que implementar o controle do tamanho da fonte, mas não é um problema tão grave.

Respondi neste tópico, mas como a formatação não tá legal vou transcrever aqui:

Fiz assim: Criei no meu form um método chamado ajusta_resolucao. Nele coloquei este código:

Código:
LPARAMETERS O_Objeto

* Ajusta o objeto atual à resolução do monitor
IF .Not. O_Objeto.BaseClass=="Page" Then && As páginas do pageframe nao tem width nem height
O_Objeto.Height=(O_Objeto.Height/768) * SysMetric(2)
O_Objeto.Width=(O_Objeto.Width/1024) * SysMetric(1)
IF .Not. O_Objeto.BaseClass=="Form" Then
O_Objeto.Top=(O_Objeto.Top/768) * SysMetric(2)
O_Objeto.Left=(O_Objeto.Left/1024) * SysMetric(1)
EndIf
EndIf


IF O_Objeto.BaseClass=="Pageframe" Then
* Ajusta cada página do pageframe
FOR EACH Pagina IN O_Objeto.Pages
Thisform.Ajusta_Resolucao(Pagina)
Next
Else && Se nao é pageframe deve ser container ou form
* Agora ajusta os objetos que ele contém:
For Each Controle in O_Objeto.Controls
DO CASE
CASE Controle.BaseClass=="Container"
Thisform.Ajusta_Resolucao(Controle)
CASE Controle.BaseClass=="Pageframe"
Thisform.Ajusta_Resolucao(Controle)
OTHERWISE
Controle.Height=(Controle.Height/768) * SysMetric(2)
Controle.Width=(Controle.Width/1024) * SysMetric(1)
Controle.Top=(Controle.top/768) * SYSMETRIC(2)
Controle.Left=(Controle.Left/1024) * SYSMETRIC(1)
ENDCASE
NEXT
ENDIF

Daí no Init do form chame o método:
Código:
Thisform.Ajusta_Resolucao(Thisform)

Espero ter ajudado.
avatar
Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Julio em 20/9/2010, 10:56

Marcelo

Veja este exemplo, foi o Marcos Guedes me passou.

Clique aqui para baixar o arquivo!

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 14:30

formulario em branco ?

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Julio em 20/9/2010, 15:52

Desculpa ai peguei o arquivo errado.

Veja agora se esta certo.

Clique aqui para baixar o arquivo!

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 16:08

Hehe, sera que o Marcos usando seus poderes de super criptografia invisivel
projetando fontes invisiveis ?

esta vazio novamente kkkkk
mais acho que ja vi ou mesmo tenho esse exemplo
o meu caso mesmo é barrar 800x600 somente , do resto o mdiform e os forms ja estao adequados

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Julio em 20/9/2010, 16:17

Pelas barbas do Profeta Salomão! Não pode ser.

Fiz o download deste segundo e esta normal aqui.

No form tem um textbox e um editbox.

Estou mandado de novo mudei o nome do form.

Clique aqui para baixar o arquivo!

Os anteriores criavam uma pasta "textboxanchor". Tambem estava fazendo errado e depois que percebi que criava esta pasta ao descompactar.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Marcos Guedes em 20/9/2010, 16:28

[Você precisa estar registrado e conectado para ver este link.] escreveu:Hehe, sera que o Marcos usando seus poderes de super criptografia invisivel
projetando fontes invisiveis ?

esta vazio novamente kkkkk
mais acho que ja vi ou mesmo tenho esse exemplo
o meu caso mesmo é barrar 800x600 somente , do resto o mdiform e os forms ja estao adequados
Marcelo, testei todos os links e os exemplos estão ok!
Acho que você só enxerga a noite.
kkkkkkkkk

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 16:34

kkkkk para mim continuam invisivel so aparece um
1 form 1 list e 1 text sem nada escrito

tenho problemas com zip brazip

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Julio em 20/9/2010, 16:46

É isso mesmo, nao tem informação, execute o form e com o mouse em um de seus cantos redimencione o form, e veja o resultado.

Veja o form nornal:
[Você precisa estar registrado e conectado para ver esta imagem.]

Veja o form redimencionado, os controles acompanham o movimento do form.
[Você precisa estar registrado e conectado para ver esta imagem.]

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Marcos Guedes em 20/9/2010, 16:51

[Você precisa estar registrado e conectado para ver este link.] escreveu:kkkkk para mim continuam invisivel so aparece um
1 form 1 list e 1 text sem nada escrito

tenho problemas com zip brazip
Você está descompactando arquivo?
Botão direito -> Extrair...

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 16:55

kkkkkkkkkkkk


AAAA Valew ... realmente nao sabia ....

e nisso vo colocar no PRG
sysmetric = 1024 ou = 800 e os tamanhos mudam ????

sim desbloquei o winzip para ver se realmente tinha algo escrito e nao tem nada
vi nas propriedades nenhuma alterada
meu esse form é um fantasma


Última edição por _batmanvfp_ em 20/9/2010, 16:58, editado 1 vez(es)

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Julio em 20/9/2010, 16:56

scratch

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Marcos Guedes em 20/9/2010, 17:06

scratch [2]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 17:16

ja vi o exemplo , só que nao serve
isso é efeito draw , nao quero esticar obejetos

ao contrario

tem que ser fixos , os forms , mais como disse ... anteriormente o problema
vo precisar por um print aqui ........ pra voces verem o que to dizendo

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 17:42

Desenvolvi em 800x600
com o tamanho da tela
usando 800x600 seria isso
[Você precisa estar registrado e conectado para ver esta imagem.]


agora mudo a resolucao para 1024x768
usando 1024x768 seria isso
[Você precisa estar registrado e conectado para ver esta imagem.]

preciso quando usar 1024x768 deixar o tamanho da tela toda , que nem a primeira tela deixando maior

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Tales Ruan em 20/9/2010, 18:39

[Você precisa estar registrado e conectado para ver este link.] escreveu:Saudações.

Não entendi se é exatamente este o problema, mas uma vez fiz um código que deixava as telas mais ou menos* proporcionais, em qualquer resolução.

*Ainda tem que implementar o controle do tamanho da fonte, mas não é um problema tão grave.

Respondi neste tópico, mas como a formatação não tá legal vou transcrever aqui:

Fiz assim: Criei no meu form um método chamado ajusta_resolucao. Nele coloquei este código:

Código:
LPARAMETERS O_Objeto

* Ajusta o objeto atual à resolução do monitor
IF .Not. O_Objeto.BaseClass=="Page" Then && As páginas do pageframe nao tem width nem height
O_Objeto.Height=(O_Objeto.Height/768) * SysMetric(2)
O_Objeto.Width=(O_Objeto.Width/1024) * SysMetric(1)
IF .Not. O_Objeto.BaseClass=="Form" Then
O_Objeto.Top=(O_Objeto.Top/768) * SysMetric(2)
O_Objeto.Left=(O_Objeto.Left/1024) * SysMetric(1)
EndIf
EndIf


IF O_Objeto.BaseClass=="Pageframe" Then
* Ajusta cada página do pageframe
FOR EACH Pagina IN O_Objeto.Pages
Thisform.Ajusta_Resolucao(Pagina)
Next
Else && Se nao é pageframe deve ser container ou form
* Agora ajusta os objetos que ele contém:
For Each Controle in O_Objeto.Controls
DO CASE
CASE Controle.BaseClass=="Container"
Thisform.Ajusta_Resolucao(Controle)
CASE Controle.BaseClass=="Pageframe"
Thisform.Ajusta_Resolucao(Controle)
OTHERWISE
Controle.Height=(Controle.Height/768) * SysMetric(2)
Controle.Width=(Controle.Width/1024) * SysMetric(1)
Controle.Top=(Controle.top/768) * SYSMETRIC(2)
Controle.Left=(Controle.Left/1024) * SYSMETRIC(1)
ENDCASE
NEXT
ENDIF

Daí no Init do form chame o método:
Código:
Thisform.Ajusta_Resolucao(Thisform)

Marcelo, tenho quase certeza que a minha dica faz o que você está querendo. Faça um teste..
avatar
Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 18:51

Tales preciso algo global só pra compilar
se for passar tela a tela ....... tem que ser algo como somente declarar

esse exemplo seu tem que tratar objeto por objeto ?

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Tales Ruan em 20/9/2010, 19:11

[Você precisa estar registrado e conectado para ver este link.] escreveu:esse exemplo seu tem que tratar objeto por objeto ?

É formulário por formulário.

Se você tem classes para os seus forms é bem fácil de colocar. Não sei se teria uma forma mais simples de fazer qualquer modificação em todos eles.
Uma alternativa pra "agilizar" é fazer um código para scanear todos os forms de sua aplicação e alterar via código cada um deles, inserindo esse ajuste, através daquele truque de abri-los como se fossem uma tabela, mas não sei se é uma boa idéia fazer isto.

Ah, fiz uma adaptação no código porque voce os desenvolveu para a resolução 800X600. (Tem duas constantes no início onde você especifica qual a resolução original dos forms)

Código:
LPARAMETERS O_Objeto

#DEFINE ResolucaoX 800
#DEFINE ResolucaoY 600

* Ajusta o objeto atual à resolução do monitor
IF .NOT. O_Objeto.BASECLASS=="Page" THEN && As páginas do pageframe nao tem width nem height
    O_Objeto.HEIGHT=(O_Objeto.HEIGHT/ResolucaoY) * SYSMETRIC(2)
    O_Objeto.WIDTH=(O_Objeto.WIDTH/ResolucaoX) * SYSMETRIC(1)
    IF .NOT. O_Objeto.BASECLASS=="Form" THEN
        O_Objeto.TOP=(O_Objeto.TOP/ResolucaoY) * SYSMETRIC(2)
        O_Objeto.LEFT=(O_Objeto.LEFT/ResolucaoX) * SYSMETRIC(1)
    ENDIF
ENDIF


IF O_Objeto.BASECLASS=="Pageframe" THEN
    * Ajusta cada página do pageframe
    FOR EACH Pagina IN O_Objeto.PAGES
        THISFORM.Ajusta_Resolucao(Pagina)
    NEXT
ELSE && Se nao é pageframe deve ser container ou form
    * Agora ajusta os objetos que ele contém:
    FOR EACH Controle IN O_Objeto.CONTROLS
        DO CASE
        CASE Controle.BASECLASS=="Container"
            THISFORM.Ajusta_Resolucao(Controle)
        CASE Controle.BASECLASS=="Pageframe"
            THISFORM.Ajusta_Resolucao(Controle)
        OTHERWISE
            Controle.HEIGHT=(Controle.HEIGHT/ResolucaoY) * SYSMETRIC(2)
            Controle.WIDTH=(Controle.WIDTH/ResolucaoX) * SYSMETRIC(1)
            Controle.TOP=(Controle.TOP/ResolucaoY) * SYSMETRIC(2)
            Controle.LEFT=(Controle.LEFT/ResolucaoX) * SYSMETRIC(1)
        ENDCASE
    NEXT
ENDIF
avatar
Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 20/9/2010, 19:57

criei o metodo colei o codigo
e chamei no init me deu uma mensagem " property heigth is not found . "

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por Tales Ruan em 20/9/2010, 20:09

Provavelmente é um erro de digitação.

Onde está escrito Heigth deveria estar Height.

Mas, estranhamente, aqui funciona sem erro algum. Qual a versão do seu fox?
avatar
Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Resolucao ajustar Objetos

Mensagem por _batmanvfp_ em 21/9/2010, 11:09

vfp9 puro ...... eu escrevi errado
na funcao esta escrito certo
e acontece o erro

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Página 1 de 2 1, 2  Seguinte

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