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 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157
|
unit UScrollbar;
{************************************************
* *
* Composant TScrollbar *
* *
************************************************}
interface
uses Flash8;
type
TKind=(sbHorizontal,sbVertical);
{.......................... TScrollbutton..................................}
TScrollbutton=class(movieclip)
constructor Create(parent:movieclip);
procedure onPress; override;
procedure onRollOver;override;
procedure onRollOut;override;
end;
{.......................... TCurseur.......................................}
TCurseur=class(movieclip)
constructor Create(parent:movieclip);
procedure onPress;override;
procedure onMouseUp;override;
procedure onMouseMove;override;
end;
{...........................TScrollBar.....................................}
TScrollbar=class(movieclip)
private
FLeft,FTop,Fwidth,FHeight:double;
w,h:double;
FKind:TKind;
scroll_but1,scroll_but2:TScrollButton;
curseur:TCurseur;
procedure SetLeft(value:double);
procedure SetTop(value:double);
procedure SetWidth(value:double);
procedure SetHeight(value:double);
procedure SetKind(value:TKind);
public
procedure onChange;virtual;
procedure onMouseWheel(delta: Number;scrolltarget:TObject);
constructor Create(parent:movieclip);
property Left:double read FLeft write SetLeft;
property Top:double read FTop write SetTop;
property width:Double read FWidth write SetWidth;
property height:Double read Fheight write Setheight;
property Kind: TKind read FKind write SetKind;//orientation
end;
{...........................................................................}
implementation
{.......................... TScrollbutton..................................}
Constructor TScrollButton.Create(parent:movieclip);
begin
inherited Create(parent,'ScrollButton',parent.getNextHighestDepth());
end;
procedure TScrollbutton.onPress;
begin
end;
procedure TScrollbutton.onRollOver;
begin
end;
procedure TScrollbutton.onRollOut;
begin
end;
{.......................... TCuseur..................................}
constructor TCurseur.Create(parent:movieclip);
begin
inherited Create(parent,'Curseur',parent.getNextHighestDepth());
end;
Procedure TCurseur.onPress;
begin
end;
Procedure TCurseur.onMouseUp;
begin
end;
Procedure TCurseur.onMouseMove;
begin
end;
{.......................... TScrollbar..................................}
Constructor TScrollBar.Create(parent:movieclip);
begin
inherited Create(parent,'ScrollBar'+floattostr(parent.getNextHighestDepth()),parent.getNextHighestDepth());
beginFill($EFEFEE);
linestyle(2,$e3e3e2);
moveto(0,0);
lineto(20,0);
lineto(20,500);
lineto(0,500);
lineto(0,0);
end;
procedure TScrollBar.SetLeft(value:double);
begin
_x:=value;
FLeft:=value;
end;
procedure TScrollBar.SetTop(value:double);
begin
_y:=value;
FTop:=value;
end;
procedure TScrollBar.SetWidth(value:double);
begin
w:=value;
FWidth:=value;
end;
procedure TScrollBar.SetHeight(value:double);
begin
h:=value;
FHeight:=value;
end;
procedure TScrollBar.SetKind(value:TKind);
begin
FKind:=value;
if value = sbVertical then
begin
_rotation:=-90;
_y:=_y+_height;
end else exit;
end;
Procedure TScrollBar.onChange;
begin
end;
procedure TScrollBar.onMouseWheel(delta: Number;scrolltarget:TObject);
begin
end;
{..........................Fin TScrollbar..................................}
end. |
Partager