 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
weberley
Aprendiz
Registrado: Quinta-Feira, 14 de Agosto de 2008
Mensagens: 102
|
 Enviada: Sex Ago 23, 2019 10:46 am Assunto: Componente de Zoom |
 |
|
| bom dia, desenvolvi um aplicativo para celular, mas os Edits ficaram pequenos para visualizar e não consigo dar zoom usando o dedo, alguem sabe como proceder ? |
|
| Voltar ao Topo |
|
 |
rodrigoprado
Colaborador
Registrado: Terça-Feira, 24 de Mai de 2005
Mensagens: 1074
Localização: Curitiba/PR
|
| Enviada: Seg Ago 26, 2019 11:06 am Assunto: |
|
|
Veja se este exemplo lhe ajuda, testei me firemonkey... lembrando que seus componentes devem estar dentro de um TLayout, pois ele que faz o efeito.
| Código: |
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Layouts, FMX.Controls.Presentation, FMX.Edit;
type
TForm1 = class(TForm)
Layout1: TLayout;
Panel1: TPanel;
TrackBar1: TTrackBar;
Label1: TLabel;
Edit1: TEdit;
procedure TrackBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Min := 0.5;
TrackBar1.Max := 1.5;
Label1.Text := '100%';
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Layout1.Scale.X := TrackBar1.Value;
Layout1.Scale.Y := TrackBar1.Value;
Label1.Text := IntToStr(Round(TrackBar1.Value * 100)) + '%';
end;
end.
|
_________________
- Compartilhe seus conhecimentos - |
|
| Voltar ao Topo |
|
|
weberley
Aprendiz
Registrado: Quinta-Feira, 14 de Agosto de 2008
Mensagens: 102
|
| Enviada: Seg Ago 26, 2019 4:07 pm Assunto: |
|
|
| quase resolveu meu problema, mas ele da ZOOM mas uma parte se perde do lado do celular, e não consigo arrastar a tela pro lado esquerdo, como fazer? |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
