Zoom(In/Out) e rolagem em TImage
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
Curtidas 0
Respostas
Ehvasc
09/03/2005
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...
GOSTEI 0
Eniorm
09/03/2005
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,
GOSTEI 0