WALLPAPER - CHANGEMENT AUTOMATIQUE DU FOND D'ECRAN

Commentaire de f0xi le 13/04/2007 16:45:25 administrateur CS

ou sont les unité de TXiPanel et TPiconeBarreTache ??!

pense a nettoyer ton zip...

pense a indenter ton code correctement...

apprend a utiliser les blocs try ... finally :

  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('\Software\Wallpaper',True) then
    begin
      WriteString('Historique',cheminAStocker);
      CloseKey;
    end;
  finally
    Free;
  end;


     ImageJpg := TJPEGImage.Create ;
     try
       Bmp := TBitmap.Create ;
       try
         ImageJpg.LoadFromFile(Tableau[Aleatoir]);
         Bmp.Width  := ImageJpg.Width;
         Bmp.Height := ImageJpg.Height;
         Bmp.Canvas.Draw(0,0,ImageJpg);
         Tableau[Aleatoir]:= WindowsDirectory + '\ConvertImageWallpaper.bmp' ;
         Bmp.SaveToFile(Tableau[Aleatoir]);
       finally
         Bmp.Free;
     finally
       ImageJpg.Free;
     end;


Randomize ne s'appel qu'au debut du programme...


il n'est pas necessaire de mettre des paramthese a une condition unique :

If FindFirst(Chemin+'*.bmp',faAnyFile,Info) = 0 Then

sauf dans ce cas :

If not ( (Info.Attr And faDirectory) = 0 ) Then


on n'indique jamais la valeur TRUE ou FALSE d'un booléen dans une condition :

If CheckBox1.Checked = true Then <--- Mauvais
If CheckBox1.Checked = false Then <--- Mauvais
If CheckBox1.Checked Then <--- Bon
If not CheckBox1.Checked Then <--- Bon

pour gagner du temps, lors de la modification d'une liste (combobox, listbox, memo etc) :

ComboBox1.Items.BeginUpdate;
ComboBox1.Clear;
For i  := 1 to 365 do
    ComboBox1.Items.Add(IntToStr(i));
ComboBox1.Items.EndUpdate;


on respecte les convention de la langue francaise ;) :
Jour(s)
Heure(s)
Minute(s)
Seconde(s)
cochez la(les) case(s) correspondante(s)

on ne mets jamais d'espaces entre le mots et l'ajout, sinon ça donne

cochez la (les) case (s) correspondante (s)

et on comprend moins vite...



ça par contre :

   font.Style:=[fsBold];
   font.Style:=[fsItalic];

ça sert a rien puisque tu vire le style bold pour italic...

soit tu fait :

   font.Style := [fsItalic]; // italic uniquement

ou

   font.Style := [fsBold, fsItalic]; // italic + bold

Commentaire de redrad le 13/04/2007 23:17:38

Ok merci pour ces commentaires je ferai mieux quand j'aurai un peu plus de temps.