http://delphi.about.com/od/graphics/l/aa120198.htm
Adapte as dicas de acordo com sua necessidade.
Boa sorte.
Sds.
P.S.: Lembre-se sempre: quem procura, acha!
To: delphi-br@yahoogrupos.com.br
From: pablojfrei...@yahoo.com.br
Date: Sun, 1 Nov 2009 03:24:59 -0800
Subject: [delphi-br] Mover shape de zoom com mouse
Olá pessoal, estou querendo mover um shape, de forma de um zoom em uma imagem,
porém estou com algumas:
1º) qdo eu coloco Timage dentro de um panel, o shape se move por trás do panel.
Por que isso acontece?
2º) como faria pra mover em forma de zoom esse shape, no foco do meu mouse. A
principio estou movendo e o shape está exebindo no tamanho original da imagem,
e sem foco do mouse.
Meus dados: image1:= que recebe uma imagem 800x600, mas é exibido no formulario
em 417x417.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
curs: tpoint;
begin
if image1.Picture.Bitmap= nil then
shape1.Visible:= false
else
begin
DoubleBuffered:=True;
shape1.Visible:= true;
getcursorpos(curs);
shape1.Top:=curs.Y;
shape1.Left:=curs.X;
shape1.Brush.Bitmap:=Image1.Picture.Bitmap;
end;
Aguardo uma luz :D
.
_________________________________________________________________
Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus
e-mails? Começe a usar já!
http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx
[As partes desta mensagem que não continham texto foram removidas]
