1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
program PEssaizoom;
{$FRAME_WIDTH 500}
{$FRAME_HEIGHT 500}
{$BACKGROUND $dcdcdc}
uses
Flash8;
type
pixel=class(MovieClip)
Procedure Rectangle(x1,y1,x2,y2:number);
procedure onMouseWheel(delta:Number; scrollTarget: TObject);
constructor create;
end;
constructor Pixel.create;
begin
inherited create(nil,'pixel',0);
beginFill(clred);
rectangle(-150,-150,-50,150);
beginFill(clgreen);
rectangle(-50,-150,50,150);
beginFill(clblue);
rectangle(50,-150,150,150);
_x:=250;
_y:=250;
_xscale:=100;
_yscale:=100;
Mouse.addlistener(self);
end;
procedure Pixel.onMouseWheel(delta:Number; scrollTarget: TObject);
begin
_xscale:=_xscale+5*delta;
_yscale:=_yscale+5*delta;
If (_xscale<0) and (_yscale<0) then
begin
_xscale:=0;
_yscale:=0;
end;
end;
Procedure Pixel.rectangle(x1,y1,x2,y2:number);
begin
Moveto(x1,y1);
LineTo(x2,y1);
Lineto(x2,y2);
Lineto(x1,y2);
Lineto(x1,y1);
end;
begin
Pixel.create;
end. |
Partager