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
|
program curseur;
uses
Flash8;
type
Mouse = external class
{ events:
procedure onMouseDown;
procedure onMouseMove;
procedure onMouseUp;
procedure onMouseWheel(delta: Number = 0; scrollTarget: TObject = nil);
}
class procedure addListener(listener: TObject);
class function hide: Number;
class function removeListener(listener: TObject): Boolean;
class function show: Number;
end;
TCursor = class(MovieClip)
constructor Create;
procedure onMouseMove;
end;
constructor TCursor.Create;
begin
inherited Create(nil, 'Cursor', 1);
lineStyle(1,0);
beginFill($ffffff);
lineTo(+5,+10);
lineTo(+10,+5);
lineTo(0,0);
Mouse.addListener(Self);
Mouse.Hide;
end;
procedure TCursor.onMouseMove;
begin
// on prend la position de la souris relativement à _root
_x := _root._xmouse;
_y := _root._ymouse;
end;
begin
TCursor.Create;
end. |
Partager