Resolucao ajustar Objetos

[m@r<3|o]

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]

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]

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 ?

[_batmanvfp_]

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 !

[Tales Ruan]

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.

[Julio]

Marcelo

Veja este exemplo, foi o Marcos Guedes me passou.

Clique aqui para baixar o arquivo!

[_batmanvfp_]

formulario em branco ?

[Julio]

Desculpa ai peguei o arquivo errado.

Veja agora se esta certo.

Clique aqui para baixar o arquivo!

[_batmanvfp_]

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

[Julio]

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.

[Marcos Guedes]

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

[_batmanvfp_]

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

tenho problemas com zip brazip

[Julio]

É 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.]

[Marcos Guedes]

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...

[_batmanvfp_]

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