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 60 61 62
|
unit Udefiltil;
{$FRAME_RATE 100}
interface
uses
flash8;
type
TMovie=class(movieclip)
private
w,h,dx:number;
Imageglob,Image,Mask: MovieClip;
procedure setcharge(jpeg:string);
public
procedure onEnterFrame;override;
constructor create(parent:movieclip;width,height:number);
property chargetileset:string write setcharge;
end;
implementation
constructor TMovie.create(parent:movieclip;width,height:number);
begin
inherited Create(parent,'movie', movieclip(parent).getNextHighestDepth());
w:=width;
h:=height;
Imageglob := MovieClip.Create(Self, 'image', 0);
Image := MovieClip.Create(imageglob, 'imageglob', 0);
Mask := MovieClip.Create(Self, 'mask',1);
with Mask do
begin
beginFill($ffffff);
lineTo(w, 0);
lineTo(w,h);
lineTo(0, h);
end;
dx:=0.3;
end;
procedure Tmovie.setcharge(jpeg:string);
begin
Image.attachBitmap(loadBitmap(jpeg),0,'auto',true);
with imageglob do
begin
image._x:=-w;
image._y:=0;
attachBitmap(loadBitmap(jpeg),1,'auto',true);
SetMask(Mask);
_quality:='HIGH';
end;
end;
procedure TMovie.onEnterFrame;
begin
Imageglob._x := Imageglob._x +dx;
if Imageglob._x > w then Imageglob._x :=0;
end;
end. |
Partager