CASSE-BRIQUE EN DELPHI (GESTION DES IMAGES)

Commentaire de Caribensila le 10/06/2007 03:57:48

Je n'arrive pas à le compiler (mais 'suis pas une référence non plus).
Et Lazarus, je n'ai jamais été présenté.
Dommage, ça semblait sympa...

Commentaire de Harvester_ le 10/06/2007 10:56:55

Oh non c'est mieux que ça ;)
C'est un RAD/EDI qui est fait pour rapprocher de Delphi le compilateur FreePascal ( LIBRE et multi plateforme ). Donc Lazarus est libre aussi et l'avantage c'est que la LCL ( ~VCL ) est multiplateformes ( toutes ! ) donc aucun changement de code pour passer de W32 ( je sais pas si Vista est couvert ) à un GNU/Linux ou un MAC ( en prenant des compos compatibles bien sûr ;) ) donc très peu de choses à modifier. Un petit défaut, la LCL est légèrement plus lourde.
Sinon communauté hyper active, les grands composants sont portées pour Lazarus ( GLScene DCPipher... ).
Bref que du bonheur et enfin une alternative gratuite et libre à Delphi... Voilà super HS, sinon pas encore testé le code...

Commentaire de Caribensila le 10/06/2007 13:39:47

@ snakehill
Extrait de l'aide Delphi:  ;)

ClipRect,propriété(TCanvas)
Utilisez la propriétéClipRect pour déterminer oùle canevas a besoin d'être redessiné.ClipRect délimite la zone de dessin de sorte que tout dessin qui se produit àun endroit extérieur àClipRect soit rognéet ne s'affiche pas àl'écran.

Dans la gestion de l'événement OnPaint d'une fiche,la propriétéClipRect du canevas est utilisée pour spécifier le rectangle devant être redessiné.Les parties de l'image qui ne chevauchent pas le rectangle défini par ClipRect n'ont pas besoin d'être dessinées.Les routines OnPaint peuvent donc tirer profit de la valeur de la propriétéClipRect pour optimiser les réaffichages,en améliorant les performances de l'application.

@ autres
Merci, les gars.
Et on a une idée de l'avenir de Delphi?

Commentaire de Caribensila le 10/06/2007 15:58:02

Bein, l'aide de Delphi est généralement bien foutue...
On y trouve ça aussi:  lol

"Cet exemple crée une région et la sélectionne comme rectangle pour le canevas du composant Image.Il définit ensuite la couleur du pinceau du canevas en rouge et appelle FillRecten utilisant ClipRectcomme zone àremplir.Enfin,ClipRect est redéfini àla valeur originale qu'il contenait en appelant SelectClipRectavec nilcomme deuxième paramètre et supprime la région."

procedureForm1.Button1Click(Sender:TObject);
var

MyRgn:HRGN ;

begin

MyRgn :=CreateRectRgn(100,100,200,200);
SelectClipRgn(Image1.Canvas.Handle,MyRgn);
Image1.Canvas.Brush.Color :=clRed;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Invalidate;
SelectClipRgn(Image1.Canvas.Handle,nil);
DeleteObject(MyRgn);

end;

Commentaire de Caribensila le 10/06/2007 17:50:48

Héhéhé
Tu verras, c'est pas plus dur que les torseurs   lol

Commentaire de Albedo039 le 11/06/2007 10:34:17

Pour réduire le scintillement, utilise la fonction "windows.InvalidateRect(...)".
Il y a aussi une fonction qui fait le contraire c.a.d. qui exclue la partie inchangée du rafraichissement... "ValidateRect(...)".

Commentaire de Albedo039 le 11/06/2007 11:44:20

@snakehill:
Hmmm... le principe d'utilisation de InvalidateRect est que tu peux :
1) redessiner "tout" mais
2) actualiser uniquement une certaine partie de l'écran

En fait, "redessiner" est seulement une opération "logique" en préparation d'un refresh complet alors que le rafraichissement physique "manuel" se contente lui d'une portion de l'écran.

De plus, tu peux aussi dire au canvas qu'il "clippe" les actions de dessin (par draw entre autre) c.a.d. tu redéfinis "logiquement" tout le canvas mais "physiquement" seulement une partie.
En gros:
-> instruire le canvas de clipper une petite partie de la planche à dessin.
-> dessiner sur tout le canvas, sans se soucier de la partie concernée.

Je l'avoue, les techniques de type "InvalidateRect" ne sont pas faciles à mettre en oeuvre... mais elles sont très efficaces :)

Commentaire de snakehill le 12/06/2007 00:48:04

Euh ... Que je sache le language Utilisé dans Lazarus est le Delphi , je ne crois pas que dans Cppfr ils refusent les source codées sous borland et n'acceptent que celles codées sous VCpp xD ...

Enfin , certes la majorité utilise le logiciel de programmation Delphi , mais il ne faut pas oublier que Delphi reste un langage quelquesoit la plateforme utilisée pour coder ...

Après c'est sûr que je peux vous donner quelques indications en plus pour arriver à porter mon code lazarus sous delphi , mais je pense qu'il vaut mieux lire le code attentivement et voir les objets utilisés , et réfléchir plutot que d'ouvrir bêtement un fichier projet et compiler :p

Sinon , pour ceux qui ne veulent pas se casser la tête :
Dans le form il faut :
- Un TTimer qui sappelle Timer1
- Un TPaintBox qui sappelle PaintBox1
- La form s'appelle Form1.
- Pour le menu il ya new_game , MenuItem1 et MenuItem2 ...
Voilà a vous de créer votre fichier ressource ^^ sur ce , bonne nuit ! :)

Commentaire de WhiteHippo le 12/06/2007 08:35:18

SnakeHill, je suis sans doutes un débutant en Delphi... Le souci, c'est que ton code n'est pas facilement adaptable (le simple fait de créer une fiche ne solutionne en rien le problème).

P.S. Quand j'aurais plus de temps à disposition (j'espère dans la soirée), je posterais mes remarques liées au code.

Cordialement.

Commentaire de WhiteHippo le 12/06/2007 13:22:31

SnakeHill, le fait de dire "je suis sans doutes un débutant en Delphi... " était une boutade.... ;P

Je n'ai rien contre Lazarus, mais je pense à la majorité des membres.
Personnellement, je n'ai pas beaucoup de temps disponible, j'essaye donc de l'optimiser lorsque j'interviens sur le site.
Un code non compilable directement à tendance à me gener. Pourquoi ? Non pas que j'ouvre betement chacun des projets, mais je prefere garder mon temps pour l'analyse de ceux ci.
Je teste presque toujours au préalable les améliorations et/ou les solutions que je propose. Donc, si je devais, en plus, passer du temps à rendre les codes compilables, ... :(

Voici, quelques remarques sur ton code :

* Déjà dans le découpage des unités de ton programme. Une réorganisation de celles-ci s'impose.
C'est uniquement la fiche principale qui devrait utiliser les autres unités et non l'inverse.

Le TElement par exemple classe parente de TJoueur, TBall, TBonus, ... devrait être définie dans une unité à part, appelée par UPlayer, UBall, UBonus,...

La dépendance vient également du fait que tu utilises Form1.PaintBox1.Canvas dans ces mêmes unités. Il serait plus judicieux d'utiliser par exemple un "FCanvas : TCanvas" définie dans la classe commune à tous, c'est à dire TElement, FCanvas qui sera initialisée au moment de la création de l'objet. Tu peux également le passer en paramètre à tes "Draw" et "Redraw".

* T'es faché avec le "else" ? J'ai beau regardé, ben non j'en vois pas :)
Par exemple dans TBalle.Redraw :

if Balle[id].Boolclick=FALSE then
  Begin
    x_n:=trunc(joueur.fx+joueur.fwidth/2);
    y_n:=trunc(joueur.fy-Balle[id].fheight);
  End;
if Balle[id].Boolclick=TRUE then
   Begin
    x_n:=Balle[id].fx+Balle[id].fVx;
    y_n:=Balle[id].fy+Balle[id].fVy;
   End;

Comme tu l'as écrit, tu fais deux fois le même test. Une fois pour voir si il est vrai, une fois pour voir si il est faux. C'est soit l'un soit l'autre...
Ecrit ainsi, cela serait beaucoup plus propre :

  if ( not Balle[id].Boolclick ) then
  Begin
    x_n:=trunc(joueur.fx+joueur.fwidth/2);
    y_n:=trunc(joueur.fy-Balle[id].fheight);
  End else
  Begin
    x_n:=Balle[id].fx+Balle[id].fVx;
    y_n:=Balle[id].fy+Balle[id].fVy;
  End;

Il existe pleins d'endroits comme celui ci (TBonus.bonustaille,TJoueur.collision_ball,...)

* La constante Maxballes devrait être définie dans UBall et MaxLignes dans UBrick.

* Le type tableau = array [1..MaxLignes,1..10] of char; est défini à deux endroits UPrincipale et UBrick, une fois de trop dans UPrincipale. D'ailleurs une constante à la place du 10 serait préférable.

* De même, pourquoi TBriquier est redéfini dans UBall ???

* TBriquier, TBonuss, TBalles gagneraient à être définies en tant que classes plutôt que des tableaux statiques.

Bon, je vais arrêter là pour l'instant, juste par manque de temps ;P

P.S. Je ne peux pas juger de l'ergonomie, ni du résultat final, faute de pouvoir le tester, mais ça viendra.

Cordialement.

Commentaire de Harvester_ le 12/06/2007 15:53:36

Euh faut dire que vous vous plaigniez d'un passage Delphi->Lazarus...mais le passage Lazarus-Delphi n'est-il pas plus contraignant? Si vous voulez compiler, vous télécharger Lazarus qui est libre et gratuit...pour Delphi autre histoire, Delphi 6 est bridé, en version personnelle, impossible de déployer une version commerciale... Donc pour avoir un bon Delphi, il faut obligatoirement passer à la caisse... Bref je pense que Delphifr devrait se moduler un peu ( à moins que se soit un fief du propriétaire extrême, j'espère que ce n'est pas le cas ) pour proposer une catégorie Lazarus en attendant que la compatibilité de Lazarus avec Delphi soit accrue ;)

Delphi désigne le RAD ou le langage? Ou les deux?

Commentaire de snakehill le 12/06/2007 17:09:49

@Oniria :
Ah bon ? notre prof nous a pourtant affirmé que le Delphi était une version évaluée du Pascal (avec gestion des objets, Form , etc etc ... ) o_Ô

Commentaire de Oniria le 13/06/2007 07:59:23

BOnjour,

Snakehill : On est bien d'accord, mais delphi améliore l'interface. Turbo Pascal 7 permet également de faire de la programmation objet, de la programmation windows, de programmer en assembleur , j'en passe  et des meilleurs. C'est certain que delphi est plus évolué que Turbo pascal mais delphi reste et restera un environnement et non un langage. Regarde chez Borland, ils ont un nouvel environnement pour le langage PHP qui s'appelle ... Delphi PHP.
D'ailleur, encore heureux que l'on fait évoluer les choses dans la programmation pascal sinon le langage serait mort depuis longtemps face à des langages comme C++ (Visual C++ est sympa) pour programmer sous un environnement graphique tel windows ou XFree

Commentaire de Caribensila le 14/06/2007 11:20:42

' Faudrait p'têt d'ailleurs songer à changer le titre du film. C'est enduisant d'erreur : "CASSE-BRIQUE EN DELPHI"...  
( Ceci dit sans vouloir être casse-cou... , hein ;)

Commentaire de Oniria le 14/06/2007 22:29:16

Pour ma part, je pense qu'il serait vraiment pas mal que delphifr ajoute une petite section lazarus. Il existe bien une section turbo pascal alors qu'un source turbo pascal n'estpas directement compilable sous delphi. De même Kylix n'est compatible avec delphi que si et seulement si on utilise les composants CLX. Lazarus est tout de même un environnement très proche de delphi. Il a franchement des atouts que delphi n'a pas (le nombre de plateformes supportées est impressionant). Mais bon, je pense que la question devait être posée. De plus, si vous regardez le site de lazarus, vous verez que c'est un groupe de développeur très actif.

La décision reste entière....

Commentaire de cirec le 19/06/2007 15:55:59 administrateur CS

Salut,

@Barbichette :
il n'existe pas de PascalFr.com ... oui mais il existe une section bien a part dans DelphiFr.com
nommé : "Turbo Pascal" voir menu "Catégories des codes"
Tout comme sur ASMFr.com il existe une section nommé : "Delphi et ASM"

La demande était de créer une nouvelle section dans DelphiFr.com nommé (par Ex) : "Lazarus" et pas un nouveau site

@+
Cirec

Commentaire de Caribensila le 19/06/2007 23:26:28

Barbichette n'a pas tort.
L'Open-Source c'est gratuit, ok.
Mais on devrait se demander pourquoi cela n'existe que pour les logiciels.
Je crois que même s'il y a de grands talents et de l'inventivité chez les auteurs de ce genre de progs, il faut bien admettre qu'il est très facile de pomper sur un logiciel, qui a demandé des mois d'études et de travail, ce qu'il a de plus intéressant; d'y ajouter sa touche perso; et de s'en approprier la paternité (à part Linux qui est une vraie création, mais combien d'autres de simples reprises...). Car enfin, pourquoi n'y aurait-il pas un like-Open-Source pour l' ingénierie par exemple? Où les clients pourraient choisir entre des ingénieurs coûteux et d'autres (grand coeur) gratos?
Si cela était, je ne suis pas sûr que l'INRA