Précisions:
L'astuce du dessus ne fonctionne que depuis NT. Pour 9x/ME, c'est le nom du fichier sans l'extension, et rien d'autre.

Pour nommer votre screensaver avec un nom plus "parlant" que le nom du fichier sans son extension, linkez un fichier res dont la source est la suivante:

STRINGTABLE
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
1, "Le nom de mon screensaver"
}

Enregistrez ce fichier par exemple sous scrname.rc.

Puis pour le linker sous Delphi 7:
Tout d'abord, le compiler: brcc32 scrname.rc
Puis rajoutez cette déclaration dans votre code: {$R scrname.RES}

Sous Delphi 2005 et up:
Ajoutez le fichier scrname.rc aux fichiers du projet, il se compilera lors de la construction de votre application.

"variable Font private de la fiche principale, masque la propriété Font de la dite fiche ..."
Aie oui en effet, j'ai même pas fait attention. Et Delphi me l'a pas fait remarqué.

"remplacement des panels de centrage de la fiche du zoom par des TBevel en mode bsSpacer (plus leger)"
Ah oui en effet j'avais pas pensé à ça.

"vidage preventif du tableau de bitmap avant tout autre chose :"
Tant qu'à faire autant faire for i := Low(Font) ... de plus j'ai une fonction qui fait ça alors autant l'appeller ^^

"preference a utiliser MessageDLG plutot que MessageBoxA (n'est pas une erreur ...)"
J'aime pas MessageDlg. Sinon j'aurais pu faire Application.MessageBox mais bon.

"beaucoup trop d'appel a StrToInt (preferer un stockage en variable integer)"
Ah c'est possible, j'ai pas fait attention :)

"faire attention a ne pas faire des trucs trop alambiqué :

bPrev.Enabled := CurrentIndex > 0;
bNext.Enabled := CurrentIndex < Main_Form.TotalChars-1;"

C'est pour activer/désactiver les boutons de la fenêtre zoom.

"ensuite la routine StrToIndex est beaucoup trop lourde, voici une version allégée :
(ne pas oublier qu'il n'y a que 256 caracteres dans la table Ascii, le type byte est donc suffisant au lieu du type word ou plus grand !)"
OK pour le type Byte j'avais pas pensé non plus ;)

const
   SPECIAL_CHARS_SET    : set of char = ['!','<','>','''',',','-','.',':'];
   SPECIAL_CHARS : array[0..7] of TSpecialChar = (
//    (i: 0 ;  c: ' '), toujours 0 pour espace // ça dépend de ton bitmap
   (i: 1 ;  c: '!'),
   (i: 8 ;  c: '<'),
   (i: 9 ;  c: '>'),
   (i: 7 ;  c: ''''),
   (i: 12 ; c: ','),
   (i: 13 ; c: '-'),
   (i: 14 ; c: '.'),
   (i: 26 ; c: ':')
   );

...
      if C in ['a'..'z'] then Dec(C,$20); //bien vu pour le in ['a'..'z'] :)

Merci bien pour toutes ces précisions :)

Quand à ta deuxième méthode je jetterais un oeil cet après midi peut être.

Evidemment c'est perfectible ;)

"sans parler des nombreuses erreur et lourdeur du code..." lourdeur de code sans doute mais les erreurs je veux bien savoir où histoire de progresser :)

Quand a faire des décalages à la place des divisions j'y pense jamais :/

Et en effet le tableau de bitmap c'est lourd en effet. J'ai fait ce que j'ai pu ^^

Ah ben zut, j'ai refais la roue... encore une fois :/

Effectivement mais c'était pour faire plus simple. Mais qui se soucit de ROMS NES au jour d'aujourd'hui... c'est juste un devoir moral plutôt qu'autre chose.

Je ne pense pas qu'un dégradé soit possible en CSS. Ou peut être avec une propriété que je ne connais pas.

Tu parles des Atoms ?

En tout cas, c'est une belle démo. ;)

=)

Dans ce cas il te servira pour autre chose =)
Tu peux poster ta méthode sur DelphiFr apres tout ;)