ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Zoom e arrastar a tela

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Mobile com Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
weberley
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 14 de Agosto de 2008
Mensagens: 102

MensagemEnviada: Seg Ago 26, 2019 4:09 pm    Assunto: Zoom e arrastar a tela Responder com Citação

fiz um aplicativo mas preciso dar um Zoom e arrastar a tela dos lados ou usar os dados para aumentar ou diminuir, alguem sabe como fazer ? consegui alguma coisa com o componente TLayout
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
strak2012
Colaborador
Colaborador


Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL

MensagemEnviada: Qui Jan 09, 2020 10:33 am    Assunto: Responder com Citação

Todo componente visível no fmx possui atributo scale, mais um em especial pode controlar um grupo ou todos de um formulário e seu nome é o TScaleLayout

Mas chegou bem perto da solução quando mencionou o Tlayout

A montagem TScaleLayout é que deve ser observado:
Código:

Tform1
|
+-->TScaleLayout1 (inicialmente deve possuir align em client para quando zoom igual a 100% *)
          |         
          +-->TLayout1
          |      |
          |      +--> demais componentes para layout1 (Panels, buttons, views, etc)
          +-->TLayout2
          |      |
          |      +--> demais componentes para layout2 (Panels, buttons, views, etc)
         {...}
          |         
          +-->TLayoutN
                  |
                  +--> demais componentes para layoutN (Panels, buttons, views, etc)


Uma vez que seu designer esteja projetado desta forma usar zoom para mais ou menos basta alterar o valor do atributo Scale.x e Scale.y do TScaleLayout1

Para mover a tela basta agora trabalhar com o atributo position.x e position.y, basicamente é isso.

observação:
* - TScaleLayout1 (inicialmente deve possuir align em client para quando zoom igual a 100%), contudo quando houver a necessidade de mover e de alterar o zoom de 100% para outro valores tipo 110%, 150%, 90% 50% o align deve sair de client para None

Podes usar o atributos GestureManager e Gesture do próprio TScaleLayout1 para mover a tela e para alterar o zoom neste caso o uso do componente TGestureManager deve ser introduzido ao formulário também.
_________________
Tudo podemos quando tudo sabemos!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Mobile com Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB