Mover TImage usando o ScrollBar
Saudações,
eu tenho uma tela com um PageControl, e em uma TabSheet será mostrada uma imagem que excede o tamanho da tela, mas não posso redimencioná-la usando o strech := true, pensei em usar um ScrollBar para que o usuário possa rolar a imagem.
Não tive muito sucesso, será que alguém sabe como eu devo proceder ????
Uma implementação que eu fiz foi essa:
No entanto eu preciso parar a rolagem da imagem qdo o ScrollBar chega no final ou no inicio. Melhor dizendo, qdo o scrollbar estiver no topo, será mostrado o inicio da imagem, e qdo o scrollbar estiver no final, deve mostrar o fim da imagem.
Agraços,
eu tenho uma tela com um PageControl, e em uma TabSheet será mostrada uma imagem que excede o tamanho da tela, mas não posso redimencioná-la usando o strech := true, pensei em usar um ScrollBar para que o usuário possa rolar a imagem.
Não tive muito sucesso, será que alguém sabe como eu devo proceder ????
Uma implementação que eu fiz foi essa:
if (ScrollCode = scLineDown) or (ScrollCode = scBottom) then
Image1.Top := Image1.Top - 10;
if (ScrollCode = scLineUp) or (ScrollCode = scTop) then
Image1.Top := Image1.Top + 10;No entanto eu preciso parar a rolagem da imagem qdo o ScrollBar chega no final ou no inicio. Melhor dizendo, qdo o scrollbar estiver no topo, será mostrado o inicio da imagem, e qdo o scrollbar estiver no final, deve mostrar o fim da imagem.
Agraços,
Eniorm
Curtidas 0
Respostas
Eniorm
01/12/2004
sobe
GOSTEI 0
Eniorm
01/12/2004
Bom.... quebrei a kbça e consegui o que eu precisava, usei um TrackBar para mover a imagem.
No evento [b:336173e1c5]OnChange [/b:336173e1c5]do [b:336173e1c5]TrackBar[/b:336173e1c5], implementei:
As propriedades que eu mudei no TrackBar foram:
[b:336173e1c5]Max [/b:336173e1c5]- coloquei um valor suficiente para q a imagem fosse mostrada por inteiro
[b:336173e1c5]Min [/b:336173e1c5]- um valor baixo, em torno de -5 ou -10,
Pra quem um dia tentar fazer algo parecido, já tem uma dica aki;
Bye
No evento [b:336173e1c5]OnChange [/b:336173e1c5]do [b:336173e1c5]TrackBar[/b:336173e1c5], implementei:
Image1.Top := NotTrackBar1.Position;
As propriedades que eu mudei no TrackBar foram:
[b:336173e1c5]Max [/b:336173e1c5]- coloquei um valor suficiente para q a imagem fosse mostrada por inteiro
[b:336173e1c5]Min [/b:336173e1c5]- um valor baixo, em torno de -5 ou -10,
Pra quem um dia tentar fazer algo parecido, já tem uma dica aki;
Bye
GOSTEI 0
Nildo
01/12/2004
Olha, você pode fazer algo mias simples.
Coloque um TScrollBox (paleta Additional), e coloque o TImage dentro. Pronto, ele já cria a barrinha de rolagem pra você, e faz a imagem rolar. Ps.: Colocar propriedade AUTOSIZE do Timage para TRUE.
Coloque um TScrollBox (paleta Additional), e coloque o TImage dentro. Pronto, ele já cria a barrinha de rolagem pra você, e faz a imagem rolar. Ps.: Colocar propriedade AUTOSIZE do Timage para TRUE.
GOSTEI 0