Je viens de faire un test sur record, ci-joint:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
program record;
{$BACKGROUND $FFFFFF}
{$FRAME_WIDTH  100}
{$FRAME_HEIGHT 100}
 
uses Flash8;
 
type
  TPoint=record
   x,y:number;
  end;
 
  myclip=class(Movieclip)
   procedure line(pt1,pt2:TPoint);
   constructor create;
  end;
 
 
function pt(x,y:number):Tpoint;
begin
 result.x:=x;
 result.y:=y;
end;
 
constructor myclip.Create;
begin
 inherited create(nil,'essai record',1);
 linestyle(3,$ff0000);
 line(pt(10,50),pt(90,50));
end;
 
procedure myclip.line(pt1,pt2:TPoint);
begin
 moveto(pt1.x,pt1.y);
 lineto(pt2.x,pt2.y);
end;
 
begin
  myclip.create;
end;
A moins que je sois très fatigué mais le type record n' est pas encore opérationnel non ?