CREATION ET GESTION DYNAMIQUE D'UN COMPOSANT TSHAPE

Commentaire de JulioDelphi le 10/11/2008 20:47:49 administrateur CS

Main.pas :
----------
1) Renommer TOUS les composants afin de savoir à quoi sert le Button1 ou le RadioButton2 ...
2) Réindentation du code.
3) Modification des 'cast' ex: (Source as TShape).Machin -> TShape(Source).Machin
4) Suppression du OnFormResize qui est inutile car les propriétés "Anchors" des composants servent à ça.
5) Modification de ... :
    case Shape1.Shape of
    stCircle: ComboBox1.ItemIndex := 0;
    stEllipse: ComboBox1.ItemIndex := 1;
    stRectangle: ComboBox1.ItemIndex := 2;
    stRoundRect: ComboBox1.ItemIndex := 3;
    stRoundSquare: ComboBox1.ItemIndex := 4;
    stSquare: ComboBox1.ItemIndex := 5
    end;
--> ... en une seule ligne :
    cb_Shape.ItemIndex := Ord(ShapeDemo.Shape); // Ord() : ordinal d'un type énuméré par exemple.
Pour cela, j'ai dû retrier le contenu de la ComboBox dans le même ordre que le type énuméré.
6) Ajout d'un petite vérif : "if (Objet is TShape) then"

Propr.pas :
-----------
1) Renommer TOUS les composants
2) Modification de ... :
  case ComboBox1.ItemIndex of
  0:Shape1.Shape := stCircle;
  1:Shape1.Shape := stEllipse;
  2:Shape1.Shape := stRectangle;
  3:Shape1.Shape := stRoundRect;
  4:Shape1.Shape := stRoundSquare;
  5:Shape1.Shape := stSquare
  end
--> ... en une seule ligne :
  ShapeDemo.Shape := TShapeType(cb_Shape.ItemIndex);
Hop, un cast avec le type énuméré !
3) Modification de :
procedure TPagesDlg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.GetTextLen > 0) and (not (key in [#8,'0'..'9'])) then key:=#0
end;

procedure TPagesDlg.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.GetTextLen > 0) and (not (key in [#8,'0'..'9'])) then key:=#0
end;

procedure TPagesDlg.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.GetTextLen > 0) and (not (key in [#8,'0'..'9'])) then key:=#0
end;

procedure TPagesDlg.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.GetTextLen > 0) and (not (key in [#8,'0'..'9'])) then key:=#0
end;

Déjà il y a une erreur de copié/collé car tu vérifie toujours "Edit1.GetTextLen", puis quand tu fais 4 procédure identiques, tu ne trouves pas ça un peu inutile ?
Voici une seule ligne :
  if (TEdit(Sender).GetTextLen > 0) and (not (key in [#8,'0'..'9'])) then key:=#0
Tu mets cette procédure pour les 4 TEdit ! Le sender s'occupe du reste.
4) Supression des 2 RadioButton dont tu détournais l'utilisation pour ajouter des ColorBox. Code :
  if Sender=color_Fond then
       ShapeDemo.Brush.Color := color_Fond.Selected
  else ShapeDemo.Pen.Color := color_Contour.Selected;
5) Suppression du Close; dans la procedure du bouton OK, tu es en ShowModal et ton bouton retourne le code mrOK ! A quoi sert le close !?
6) Ajout d'une petite touche perso : une case a cocher pour mettre le shape en pointillé, Code :

procedure TFormPagesDlg.chk_dottedClick(Sender: TObject);
const Styles: array[Boolean] of TPenStyle = (psSolid, psDot);
begin
  ShapeDemo.Pen.Style:= Styles[chk_dotted.Checked]
end;

J'ai aussi modifié les DFM, pour réorganiser un peu, renommer, etc etc
Qu'en penses tu ?

Commentaire de Bacterius le 10/11/2008 23:37:49

Lol JulioDelphi :

"http://diabloporc.free.fr/delphi/lord948.zip garantie sans virus :]"

Le petit sourire à la fin n'est pas fait pour renforcer l'idée de ta phrase ^^
Je veux dire on va se douter d'un truc là ...

:]

Cordialement, Bacterius !

Commentaire de offlake le 14/11/2008 11:12:25

Revaliser sans doute pas!!
By Offlake