Y'a plus qu'à en faire un screensaver...
C'est très intéressant de jouer avec les paramètres en constantes.
Bravo pour cet excellent code!

Il manque le zip !

amiga68 > lol !
J'avais même pas fait gaffe.
Comme quoi, quand on est pris par la programmation, on ne pense plus qu'à ça... ^^

Hello Delphiprog,

J'avais pourtant lancé une recherche pour être sûr de ne pas poster en double... et je n'avais pas vu ton code.
Je vais étudier tout ça tranquillement, car là (Bruni^^) j'étais passé à autre chose et il faut que je me replonge dans le sujet.
Je note au passage le "DeleteSelected". Diantre, je veux que ça allège le code, je ne sais pas comment je suis passé à côté...
Joyeuses Pâques à toi aussi ^^

A +

Tiens, Florenth, c'est rien que pour toi :

procedure ListBoxToListBoxDragDrop(const Sender, Source: TObject; X, Y: Integer);
var
  i: Integer;
  CursorPos: TPoint;
  Index: Integer;
  List: TStringList;
begin
  List := TStringList.Create;
  try
    with TListBox(Source) do
    begin
      for i := 0 to Items.Count - 1 do
        if Selected[i] then
          List.AddObject(Items[i], Items.Objects[i]);
      for i := Items.Count - 1 downto 0 do
        if Selected[i] then
          Items.Delete(i);
    end;
    CursorPos := Point(X, Y);
    with TListBox(Sender) do
    begin
      Index := ItemAtPos(CursorPos, True);
      for i := List.Count - 1 downto 0 do
        if Index > -1 then
          Items.InsertObject(Index, List[i], List.Objects[i])
        else
          Items.AddObject(List[List.Count - 1 - i], List.Objects[List.Count - 1 - i]);
    end;
  finally
    List.Free;
  end;
end;

J'ai passé les ListBox en const bien que ça ne soit pas indispensable.
Ça marche très bien avec des objets, mais également si l'on ne manipule que des strings.

Bonnes fêtes de fin d'année à tous.

@Florenth
S'il y avait tout dans la VCL, qu'est-ce qu'on s'ennuierait... ^^
Et puis ça permet de créer des librairies perso bien plus performantes que celles fournies par Borland (je déconne).

C'est vrai, j'ai négligé les objets, mais ce n'était pas mon propos au départ. Je vais néanmoins réfléchir à ta suggestion.
Pareil pour une procedure : j'ai voulu rester concret et simple, en pensant plus particulièrement aux débutants (le drag & drop n'a plus de secrets pour les autres).
C'est vrai qu'on pourrait penser la réalisation plus complexe par rapport à l'objectif fixé.

@Caribensila
Ce qui est moderne aujourd'hui sera désuet demain. J'ai décidé que Delphi 4 Entreprise était la version la plus aboutie jamais sortie par Borland/CodeGear... à moins que quelqu'un ne m'offre une version plus récente, auquel cas j'assouplirai peut-être mon point de vue. ^^
Sérieusement, je vérifie toujours la compatibilité avec les versions ultérieures, il n'y a jamais de problème, ce n'est hélas pas toujours le cas dans l'autre sens.

Cha m'a plu.

En remplaçant Repaint par Invalidate, ça va mieux (mais fini le petit feu d'artifice du début).
Il y a une erreur de logique qui fait que même si l'on répond non à la messagebox, ça repart quand même pour un tour ou deux, c'est selon...
Sur fond noir en rajoutant des étoiles, c'est très bô.

Passe un Noël en chanteur... heu... enchanteur, cantador ;-)

Salut.

Enfin un jeu que je peux finir dans des délais raisonnables...^^

Je ne suis pas rentré dans les détails, mais voilà un code clair, agréable à parcourir et bien commenté.
Ça donne envier de s'intéresser d'un peu plus près à OpenGL, si ce n'était déjà fait.

Bravo, merci pour le cadeau, et joyeux Noël à toi aussi.

C'est maintenant quasiment parfait au niveau du fonctionnement.

Moi j'aime bien qu'un accord s'affiche au démarrage, il suffit d'ajouter
  fAgreeLsBx.ItemIndex := 0;
  DoAgreeLstBxChange(nil);
dans TAgreements.Add_Name_Agreements_In_LsBx

Ça serait bien aussi si, quand on clique dessus, les différentes possibilités pour un  accord donné défilaient en boucle plutôt que de s'arrêter sur le dernier.

Mais bon, les goûts et les couleurs...

La TComboBox est plus agréable à mon avis.
En même temps, c'est pas un vrai problème : il suffit de remplacer TListBox par TComboBox à 2 endroits...