WALLPAPER - CHANGEMENT AUTOMATIQUE DU FOND D'ECRAN
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
13 avril 2007 à 16:45
pulco42 Messages postés 1 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 29 août 2007 - 29 août 2007 à 09:51
pulco42 Messages postés 1 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 29 août 2007 - 29 août 2007 à 09:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/42234-wallpaper-changement-automatique-du-fond-d-ecran
https://codes-sources.commentcamarche.net/source/42234-wallpaper-changement-automatique-du-fond-d-ecran
29 août 2007 à 09:51
13 avril 2007 à 23:17
13 avril 2007 à 21:08
13 avril 2007 à 19:50
- Le titre "WALLAPER" devrait au moins être "WALLPAPER" ou mieux : "MODIFIER ALÉATOIREMENT LE WALLPAPER"
- Si la modification est aléatoire, ce n'est pas comme "bon nous semble" (cf. description) ^^ :-)
13 avril 2007 à 16:45
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