Quadrado de zoom
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!!!
Valeu!!!
Anonymous
Curtidas 0
Respostas
Marcelo Saviski
01/04/2003
[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ça
xx := 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];
xx : integer = 0;
yy : integer = 0;
pressionado : boolean = false;
[color=#0000FF:725c23da9e]{...}[/color:725c23da9e]
no evento on mousedowndow TImage faça
xx := 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];
GOSTEI 0