Quadrado de zoom

Question

ola!! Alguem sabe como desenhar um quadrado como se fosse de um zoom onde a parte de cima do quadrado fica onde ocorreu o primeiro clique e a parte de baixo acompanhe o cursor??Valeu!!!...

Marcelo Saviski · Answer

[b:725c23da9e]var[/b:725c23da9e]xx : integer = 0;yy : integer = 0;pressionado : boolean = false;[color=#0000FF:725c23da9e]{...}[/color:725c23da9e]no evento on mousedowndow TImage fa�axx := x;yy := y;pressionado := true;no evento on mouseup fa�a[b:725c23da9e]if [/b:725c23da9e]pressionado [b:725c23da9e]then[/b:725c23da9e][b:725c23da9e]begin[/b:725c23da9e]canvas.brush.style := bsclear;canva.retangle(xx,yy,x,y);[b:725c23da9e]end[/b:725c23da9e];...