JEU DE PAPILLON SYMPA

Commentaire de Bacterius le 05/10/2008 20:44:04

Pas mal Offlake, l'effet est réussi pour moi, même si il doit y avoir moyen d'améliorer la vitesse.
Bonne idée d'utiliser BitBlt, car c'est une manière très rapide de copier des blocs de couleur.

Il y a certaines choses qui me chiffonnent néanmoins :

"//stop and then start the game if it is running
  //or just show help window"

Ces commentaires ne viennent pas de toi je présume ... mais tu as dû t'en inspirer pour résoudre un problème. Passons ...

"Application.Terminate"

Mauvaise idée ... toujours utiliser Close, parce que Application.Terminate est l'équivalent d'une fermeture forcée de Windows. Close n'est pas appelé, certains composants créés dynamiquements ne sont pas libérés, bref ...
Utilise plutôt Close.

Tu utilises un Buffer (ce qui est correct), mais en tant que composant TImage.
Pas bon ...
Utilise TBitmap :

Buffer := TBitmap.Create; // Création

Buffer.Free; // Libération

Tu verras ça tournera déjà mieux.

"Form1.Cursor:=crDefault;" dans le bouton Exit (avant Application.Terminate).
Inutile de remettre le curseur à default quand tu quittes l'application, l'utilisateur n'en a pour ainsi dire rien a faire. Et c'est 1 ou 2 millisecondes de perdues ...

"if Not Timer1.enabled then exit;
  CurX:=x-10;
  CurY:=y-10;
  if y>= buffer.Height then Form1.Cursor:=crDefault
  else Form1.Cursor:=crNone;"

Dans le OnMouseMove

C'est à cause de ces quelques lignes que le curseur a des difficultés à bouger.
Arrange tout ça :)

Cordialement, Bacterius !

Commentaire de Forman le 06/10/2008 13:14:52

Bacterius: tu écris
"[...] Application.Terminate est l'équivalent d'une fermeture forcée de Windows. Close n'est pas appelé, certains composants créés dynamiquements ne sont pas libérés [...]"

Là je ne suis pas d'accord (et de plus je ne comprends pas pourquoi cette idée est autant répandue). Par défaut, la méthode Close(); de TForm est équivalente à la méthode hide();. En effet, à moins de définir l'événement OnClose avec Action:=caFree (la valeur par défaut étant caHide, qui se contente de cacher la form) c'est donc Hide(); qui est appelée en fin de compte (pas Free ou Destroy).

Il se trouve que lorsqu'on fait Close() sur la fiche principale (c'est à dire si Self=Application.MainForm) la méthode définie dans Forms.pas appelle tout simplement Application.Terminate. La preuve, un copier-coller de Delphi 7 (Forms.pas, ligne 4608):

procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

Ca parle de soi-même, non?

Il n'y a donc aucune différence entre MainForm.Close et Application.Terminate... Close ne détruit aucun objet, c'est le paradigme Delphi de hiérarchie des composants qui s'en charge. En effet, si l'Owner de toutes les forms est l'Application (c'est le cas par défaut quand on fait Application.CreateForm) c'est au moment où Application est détruite que tous ses sous-composants vont être eux-même détruits, en transmettant à leurs sous-composants, etc...

Commentaire de cirec le 06/10/2008 14:45:57 administrateur CS

@Forman:
je suis pas d'accord avec toi ... d'ailleurs un simple teste le prouve:

une Form 2 Button
dans l'évènement du premier bouton on utilise "Close" et dans le deuxième "Application.Terminate"

et dans l'évènement OnClose de la Form ajouter:
"ShowMessage('Adieu');" par Ex.


procedure TForm1.btn_CloseClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btn_TerminateClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('Adieu');
end;


et lors du teste on remarque que si on passe par Application.Terminate l'évènement OnClose n'est pas exécuté.

Commentaire de Forman le 06/10/2008 15:02:11

Un autre argument en faveur de Application.Terminate: ça peut être appelé depuis une autre fiche, sans avoir à mentionner explicitement la fiche principale (et devoir la mettre dans les uses).

Bien sûr je ne prétends pas qu'il y a unicité des façons de programmer, mais quand même je pense que c'est mieux d'utiliser Terminate. Ton argument du OnClose non appelé je le trouve dangereux, car typiquement OnClose ne doit servir qu'à poser la question à l'utilisateur de savoir s'il veut vraiment quitter (identique à OnCloseQuery) ou à définir un comportement spécifique différent de celui par défaut (par exemple détruire les fiches MDI au lieu de les minimiser). En aucun cas ça ne devrait servir à libérer des resources!

Commentaire de cantador le 06/10/2008 16:13:06

du moins avec close l'application s'arrête mais reste
néanmoins active..

Commentaire de Bacterius le 06/10/2008 17:40:42

Moi je ne sais pas il me semble que Application.Terminate est assez brutale comme terminaison d'un processus ... Et Close semble plus propre également.
Et puis : il y a une procédure Close dans une fiche ; autant s'en servir !
De toute façon Application.Terminate est appelé en interne lorsque Application.Terminated a la valeur True.

Cordialement, Bacterius !

Commentaire de Nicolas___ le 06/10/2008 20:18:36

"il y a une procédure Close dans une fiche ; autant s'en servir !", si tu n'écris rien dans ton Close, autant s'en passer !

Commentaire de offlake le 06/10/2008 23:04:04

JE SUIS AUSSI UN DEVELOPEUR C/C++

Commentaire de offlake le 06/10/2008 23:24:54

Je suis entrain de publié mes mini projet fait durant l'année 2008/2007
les derniers sont déjà fait!!
c tune chose bien non?
Pour Bacterius
OFFLAKE

Commentaire de cantador le 07/10/2008 09:52:08

Je suis entrain de publié mes mini projet fait durant l'année 2008/2007

Pas sûr que ça soit une bonne idée OFFLAKE..

Attention à faire du tri de ce que tu proposes(voir si la même chose n'existe pas déjà..)
et ne pas perdre à l'esprit l'intérêt apporté pour l'ensemble de la communauté.

cantador