Discussion :

[Archimède]

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 ?

[Paul TOTH]

pas dans ce cas là en effet...je corrigerais, mais pas ce soir

Bonne nuit !

[Archimède]

si, si tout de suite
Bonne nuit

@+

[Paul TOTH]

bon ce n'était pas grand chose et c'est modifié

Disponible dans la version 12.06.14

cette version ajoute également un fenêtre "Préférences" permettant d'indiquer, entre autres, l'emplacement du Player Flash externe à utiliser.

[Archimède]

Nickel . Je regarde ça ...
a+

[Archimède]

Le record est maintenant opérationnel
Jolie présentation en français en plus. L'édition copier-coller est très appréciable.
Le fichier nouveau projet, nouvelle unité...super.
J'ai fait un test en créant une unité URealmovie.
Dans program après inclusion de URealmovie dans uses, j'ai déclaré une instance de Realmovie, ça compile.

Je n'ai pas été plus loin mais c'est très prometteur!
Je vais bientôt avoir l'impression de faire du delphi...(c'est un super compliment ...!)

un vrai chef !

bravo