Fórum Zoom(In/Out) e rolagem em TImage #271597
09/03/2005
0
No meu programa terá a imagem de um cartão de cada cliente, o processo de scaneagem irei montar pelo proprio delphi, até ai tudo bem, mas teria que ter uma opção para rolar e aplicar zoom in e zoom out, apenas para visualização da imagem, não sendo necessário gravar essas alterações.
Alguem conhece algum componente para D7 em que eu poderei usar esses recursos?
T+
Alguem conhece algum componente para D7 em que eu poderei usar esses recursos?
T+
Eniorm
Curtir tópico
+ 0
Responder
Posts
09/03/2005
Ehvasc
Caro colega...
Não sei como vc está fazendo pra capturar a imagem, mas tente o seguinte.
1. Colocar o TImage dentro de um ScrollBox que ele controla a rolagem
colocar o conteudo lido do scaner em um TStream e faça um com que seu tImagem leia o conteudo desse stream da seguinte forma
Image1.Picture.Graphic.LoadFromStream(TStream);
Não testei mas deve funcionar...
Não sei como vc está fazendo pra capturar a imagem, mas tente o seguinte.
1. Colocar o TImage dentro de um ScrollBox que ele controla a rolagem
colocar o conteudo lido do scaner em um TStream e faça um com que seu tImagem leia o conteudo desse stream da seguinte forma
Image1.Picture.Graphic.LoadFromStream(TStream);
Não testei mas deve funcionar...
Responder
Gostei + 0
10/03/2005
Eniorm
A sua ajuda veio a calhar, funcionou perfeitamente, usando o ScrollBox... dai fiquei com o problema do Zoom, mas resolvi usando o seguinte esquema (simples.... mas funciona).
No botão Zoom In:
No botão Zoom Out:
Lembrando q a propriedade Stretch do TImage está como True
Abraços,
No botão Zoom In:
Image1.Width := Image1.Width + 50; Image1.Height := Image1.Height + 50;
No botão Zoom Out:
Image1.Width := Image1.Width - 50; Image1.Height := Image1.Height - 50;
Lembrando q a propriedade Stretch do TImage está como True
Abraços,
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)