WALLPAPER ET CALENDRIER

Commentaire de f0xi le 17/04/2008 02:58:36 administrateur CS

Salut!

premier point, Le zip :

pas besoin des fichiers .DOF, .CFG et .DCU

deuxieme point, Les commentaires :

parfait! une source commentée, même avec un code "bancal" c'est toujours mieux!

troisieme point, TForm1.Create :

ON UTILISE JAMAIS LA VARIABLE GLOBALE DE LA FICHE (FORMx) A L'INTERIEUR DE LA CLASSE (TFORMx)!
on utilise Self ou rien tout simplement.
ce qui donne la premiere correction :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Top         := 0;
  Left        := 0;
  Width       := Screen.Width;
  Height      := Screen.Height;
  BorderStyle := bsNone;
end;


Quatrieme point, Indentation du code!
Un code indenté est un code lisible.
l'indentation c'est l'espace et la marge que l'on laisse entre les lignes de codes (methode dite de l'escalier) afin de delimiter chacunes des portions de codes :

procedure ....;[a la ligne]
begin[a la ligne]
  [2 espaces]portion de code
  [2 espaces]boucle, bloc try, begin etc
  [2 espaces]+[2 espaces]portion de code du bloc
  [2 espaces]end;
end;

exemple :

function UnTruc(parametres): resultat;
var
  n : integer;
  UnObjet : Classe;
begin
  UnObjet := Classe.Create;
  try
    for n := 0 to 10 do
    begin
      UnObjet.Propriété[n] := Parametre[n];
      UnObjet.MiseAJours;
    end;
  finally
    UnObjet.Free;
  end;
end;
  
beaucoup plus lisible que :

function UnTruc(parametres): resultat;
var n : integer; UnObjet : Classe;
begin
UnObjet := Classe.Create;
try
for n := 0 to 10 do begin
UnObjet.Propriété[n] := Parametre[n]; UnObjet.MiseAJours;
end;
finally
UnObjet.Free;
end;
end;  


Cinquieme point, Les mots réservés :

For, If, Begin, End etc ne sont pas a mettre tout en majuscules!
ça rend le code illisible et ça fait mal au yeux.
exemple bon :
tout en minuscules :
for ... to/downto ... do ...
if ... then ... else ...
repeat ... until
try ... finally ... end

notation "phrase" :

For ... to/downTo ... do
If ... then ... else ...
Repeat ... until
Try ... Finally ... end

remarque la notation en "dos de chameau" du downTo.
c'est la notation la plus utilisé en Delphi, Java et ActionScript.
elle permet de mieux lire les identifiants et mots réservés du langage,
et donc le code.

exemples illisibles donc déconseillés :
networkcablestatus
NETWORKCABLESTATUS

exemples lisibles donc conseillés :
NetworkCableStatus -> notation Delphi/VB/Java
NETWORK_CABLE_STATUS -> notation C/C++/Microsoft
networkCableStatus -> notation AS
network_cable_status -> notation quelquonque mais valable.


Sixiemement, les longues imbrication de IF THEN ELSE :

on peut les remplacer la plupart du temps par un Case ... Of.

    case Bcl1 of
      1..3 : Ordo[Bcl1].Y := 010;
      4..6 : Ordo[Bcl1].Y := 180;
      7..9 : Ordo[Bcl1].Y := 350;
    else
      Ordo[Bcl1].Y := 520;
    end;

    case (Blc1 mod 3) of
      1 : Ordo[Bcl1].X := Screen.Width - 555;
      2 : Ordo[Bcl1].X := Screen.Width - 370;
    else
      Ordo[Bcl1].X := Screen.Width - 185;
    end;

Les cases sont plus performantes et moins lourdes de code que les long if then else a la chaine.


Septiemement, Objet, creation/liberation en bloc sécurisé :

cela evite les Leak lors d'erreur du programme. si delphi nous mache beaucoup le travail dans les creations et liberation d'objet, il vaut toujours mieux sécuriser les blocs afin d'assurer la liberation d'objet, de reference ou de pointeur afin de laisser une memoire toujours clean aprés l'arret de notre programme.

donc :

Bmp := TBitmap.Create;
try
  (... code ...)
finally
  Bmp.Free; {ou FreeAndNil(Bmp) }
end;

cela nous assure la liberation de Bmp même en cas d'exception du programme.


Huitiemement, sortie "propre" du programme :

Eteindre un PC en coupant l'alimentation, ça marche. c'est bourrin mais le resultat et que le PC est eteint.
par contre, ça peut bousiller les disques durs, voir la carte mere.

Pour un programme c'est pareils. Application.Terminate c'est bien, mais c'est a réserver pour l'extinction du programme lors d'un cas d'erreur particulier (ressource manquante, condition d'execution non remplie), certe les risques materiels sont quasi-inexistant, par contre cela peut etre risqué pour les données.
Pour quitter un programme proprement, il faut appeler la methode Close de la fiche principale.
soit ici a la fin de ta routine :
  Self.Close;
ou tout simplement
  Close;

cela permet de conserver la chaine évènementielle de la fermeture des fiches.


pour ce qui est de ça :

DeskTopHandle := GetDeskTopWindow;    
DeviceContext := GetDC(DeskTopHandle);

GetDesktopWindow renvois le handle du bureau windows, en gros, la reference a l'objet correspondant a ce dernier.

GetDC quand a lui, fournit, si il existe, la reference au contexte de dessin d'un objet selon son handle. donc la zone ou l'on peut dessiner.

on peut même dans certain cas faire abstraction d'une variable pour le handle de la fiche en faisant tout simplement :
DesktopDC := GetDC(GetDesktopWindow);

Commentaire de f0xi le 17/04/2008 15:44:26 administrateur CS

Et je t'encourage dans cette voie!
y'a longtemps qu'on as pas eu de petits nouveaux comme toi ici.

Pour ce qui est de la notation du code, tu fait comme tu le sens, mais le mieux est d'appliquer les conventions borland, comme ça, tout le monde ecrit le code de façon identique et donc lisible par tous.
L'indentation est quand a elle plus importante que la notation.
Tu peu jeter un oeuil aux sources des top 50 (DelphiProg, Florenth, GrandVizir, Cirec, Japee, Debiars, Mauricio, Caribensila etc) de DelphiFR, faire un tours dans les tutos aussi.

bon courage et bonne continuation.

Commentaire de VERTY le 21/04/2008 09:39:40

Bonjour

Je n'ais plus le temps de developper
mais je suis ravi que ma source est fait des adeptes
Un peu larguer maintenant sur les versions delphi,je n'ais d'ailleurs pas reinstallé ma version delphi depuis un plantage de micro
Bonne continuation dans le developpement
j'essaierais de m'y remettre un jour
@plus