Version 12.06.15 disponible !

Version imprimable

15/06/2012, 09h30
Paul TOTH

Version 12.06.15 disponible !

Je ne garanti pas que je ferais une nouvelle version tous les jours, mais en voici tout de même une troisième en trois jours :D

:fleche: Ajoute d'une boîte de dialogue sur la création d'un nouveau projet.
:fleche: Ajout du Drag&Drop des fichiers vers l'éditeur.
:fleche: Correction d'un bug sur le mot clé with

N'hésitez surtout pas à me remonter les bugs rencontrés, que ce soit lors de l'installation ou la mise à jour du produit, et évidemment lors du développement de vos applications FlashPascal !

http://flashpascal.execute.re
15/06/2012, 09h42
Archimède

Bingo ! (pour la boîte de saisie...) :D
Super, je teste au cas où il y aurait des bugs...
Mais ne te sens pas obligé de faire une version tous les jours !
je pense que là, tu vas pouvoir te reposer... Les éléments essentiels sont présents pour pouvoir assurer. :ccool::ccool::ccool:
15/06/2012, 09h50
Roland Chastain

Citation:

Envoyé par Paul TOTH

N'hésitez surtout pas à me remonter les bugs rencontrés

Il y a un bug dans le titre de la discussion (05 au lieu de 15). :P

Plaisanterie à part, le nouvel éditeur a vraiment de l'allure. Je n'ai pas encore eu le temps de l'essayer de façon approfondie, mais ce sera bientôt chose faite. ;)

premier essai avec le textfield qui ne passait pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure RealMovie.RTextout(x,y,width,height,Depth:number;font:TextFormat;txt:String);
var Field:TextField;
begin
 Field:=TextField.Create(self,'',Depth,xo+Gx*(x),yo-Gy*(y),width,height);
 with Field do
 begin
  setNewTextFormat(font);
  text:=txt;
 end;
end;

concluant :ccool:

Deuxième test...méthodes héritées :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program Project1;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 32}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8,URealmovie;
 
var mc:Realmovie;
 
begin
  mc:=Realmovie.create(nil,'essai with méthodes héritées',1);
  with mc do
  begin
   setsize(550,400,-10,-10,10,10);
   linestyle(3,$ff0000); //méthode héritée qui passe ! bravo !
   beginFill($00ff00);//idem
   RRectangle(-5,-5,5,5);
  end;
 
end.

ça passe !!:ccool::ccool:

15/06/2012, 10h26
Archimède

Petite remarque à l'utilisation...
Si on ne désire pas ajouter de onFrameEnter, le Frame_rate est inutile et tu devrais ajouter un radiobutton ou un checkbox pour faire le choix de l'introduction de {$FRAME_RATE } ou pas.
tu as toujours ton bouton rétablier :D

sinon nickel grand chef !

Encore un soucis... avec le with....

Code:

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
 
procedure Horloge.onEnterFrame;
var i:integer;
    fig:TArrayofPoint;
begin
  d:=TDate.Create;
  with espace do
  begin
   clear;
   //grande aiguille
   fig :=Rrotationarraypoint(0,0,2*pi*(d.getMinutes+d.getSeconds/60)/60,Gaiguille); //à la place de fig:=espace.Rrotation... ça ne marche pas
   linestyle(3,$000000);
   beginfill($FFD700);
   moveto(Fig[0].x,Fig[0].y);
   for i:=1 to 4 do lineto(Fig[i].x,Fig[i].y);
   endFill();
  //petite aiguille
   fig :=Rrotationarraypoint(0,0,2*pi*(d.getHours+d.getMinutes/60)/12,Paiguille); //idem
   beginFill($FFD700);//ici j'avais oublié espace.
   moveto(Fig[0].x,Fig[0].y);
   for i:=1 to 4 do lineto(Fig[i].x,Fig[i].y);
   endfill();
   //trotteuse
   linestyle(4,$FF4500);
   beginfill($FF4500);
   Rcircle(0,0,2);
   RLine(0,0,42*cos(-2*pi*d.getSeconds/60+pi/2),42*sin(-2*pi*d.getSeconds/60+pi/2));
   RLine(0,0,-7*cos(-2*pi*d.getSeconds/60+pi/2),-7*sin(-2*pi*d.getSeconds/60+pi/2));
   endFill();
  end;
  RTextout(-10.75,-28,250,30,0,myfont2,IntToStr2(d.getHours)+#32#58#32+IntToStr2(d.getMinutes)+#32#58#32+IntToStr2(d.getSeconds));
end;

j'ai un plantage général à cause de la méthode qui permet la rotation de tableau de points...

j'ai remplacé :

Code:

fig := espace.Rrotationarraypoint(0,0,2*pi*(d.getHours+d.getMinutes/60)/12,Paiguille);

par:

Code:

1
2
3
4
5
with espace do
 begin
  ........
  fig :=Rrotationarraypoint()...
 end;

il y peut-être d'autres sources d'erreur mais celle-ci est avérée...

Ce n'est pas facile tout ça....

15/06/2012, 11h41
Archimède

En fait fig est une variable locale, avec le with, ça fait espace.fig et c'est là que ça plante puisque fig n'est pas une propriété d'espace. Il faudrait gérer des exceptions. En delphi, ça passe.
15/06/2012, 12h13
Archimède

La trotteuse ne tourne plus et n'est plus dimensionnée.
Sans doute que espace affecte aussi math.cos, sin...
Lorsqu'un objet est accompagné d'un with, il faudrait que l'affectation ne prenne effet que sur ses méthodes ou ses méthodes héritées (mais ça, c'est déjà fait) et pas sur l'ensemble des objets à l'intérieur du begin end.
A voir.
15/06/2012, 12h39
Roland Chastain

Citation:

Envoyé par Archimède

La trotteuse ne tourne plus et n'est plus dimensionnée.
Sans doute que espace affecte aussi math.cos, sin...
Lorsqu'un objet est accompagné d'un with, il faudrait que l'affectation ne prenne effet que sur ses méthodes ou ses méthodes héritées (mais ça, c'est déjà fait) et pas sur l'ensemble des objets à l'intérieur du begin end.
A voir.

Si je peux me permettre, je trouve que c'est bien compliqué ce que tu demandes. Tu veux un with, mais qui ne soit pas tout à fait un with. Quel est l'intérêt ? Et comment fera-t-on pour comprendre quelque chose à un code bâti sur ce principe ? :roll:
15/06/2012, 12h44
Archimède

Un with selon ta conception aussi réducteur ne présente pas beaucoup d'intérêt...
Vas faire un tour sur lazarus ou delphi, tu comprendras.:D

ps: c'est là d'ailleurs que l'on voit toute la souplesse et la subtilité d'un outil comme delphi. Je mesure toute la difficulté d'arriver au même résultat.
Mais avec Paul Toth rien n'est impossible :D ou presque.
15/06/2012, 13h00
Paul TOTH

Citation:

Envoyé par Archimède

Petite remarque à l'utilisation...
Si on ne désire pas ajouter de onFrameEnter, le Frame_rate est inutile et tu devrais ajouter un radiobutton ou un checkbox pour faire le choix de l'introduction de {$FRAME_RATE } ou pas.
tu as toujours ton bouton rétablier :D

sinon nickel grand chef !

le frame_rate est toujours défini, c'est inhérent à Flash. Quand la directive n'est pas présente il est fixé arbitrairement à 32.
15/06/2012, 13h03
Archimède

Citation:

Envoyé par Paul TOTH

le frame_rate est toujours défini, c'est inhérent à Flash. Quand la directive n'est pas présente il est fixé arbitrairement à 32.

ok, je comprends. C'est un détail...:ccool:
15/06/2012, 14h11
Paul TOTH

pour le bug du with il est lié au code généré...en fait même sous ActionScript il y a une subtilité que je dois reproduire en FlashPascal, le préfix "this" (équivalent du Self) n'est pas obligatoire en ActionScript...mais si tu ne le mets pas dans un with, il ne retrouve pas les membres de la classe.

et en ajoutant Self dans ton code je me suis rendu compte que je ne le gérais pas bien non plus, ça va me corriger deux bugs d'un coup tout ça ;)
15/06/2012, 14h19
Archimède

Citation:

Envoyé par Paul TOTH

pour le bug du with il est lié au code généré...en fait même sous ActionScript il y a une subtilité que je dois reproduire en FlashPascal, le préfix "this" (équivalent du Self) n'est pas obligatoire en ActionScript...mais si tu ne le mets pas dans un with, il ne retrouve pas les membres de la classe.

et en ajoutant Self dans ton code je me suis rendu compte que je ne le gérais pas bien non plus, ça va me corriger deux bugs d'un coup tout ça ;)

Tu nous as demandés de relever des anomalies ou des bugs, je fais mon boulot...:D
Tu prends ton temps.., moi je vois tout simplement le fait de faire avancer ton projet pour lequel j'éprouve beaucoup de considération. (il le mérite !)
voilà, c'est tout.

ce n'est surtout pas pour t'embêter...

Il est déjà génial comme ça :ccool: