COMPOSANT LABEL3D TOUTE VERSION DE DELPHI.
Utilisateur anonyme
-
2 sept. 2009 à 12:52
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 4 sept. 2009 à 09:08
Bacterius Messages postés 3792 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 3 juin 2016 - 4 sept. 2009 à 09:08
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/50509-composant-label3d-toute-version-de-delphi
https://codes-sources.commentcamarche.net/source/50509-composant-label3d-toute-version-de-delphi
4 sept. 2009 à 09:08
(petite touche d'humour à prendre au quatrième degré)
Cordialement, Bacterius !
2 sept. 2009 à 16:02
toujours et encore les mêmes remarques que sur tes sources précédentes ...
11 fichiers sont inutiles dans le zip
Mais par dessus tout c'est l'indentation du code qui fait défaut
ça rend le code quasi illisible !!!!
Franchement, c'est pas plus facile à lire comme ça ?
constructor Label3D.Create(Aowner: TComponent);
begin
inherited Create(Aowner);
Color1 := ClBlack;
Color2 := ClRed;
Transparent := True;
ColorFond := clWhite;
Ecart3D := 1;
LabelType := Relief;
Timer := TTimer.Create(Self);
Interval := 500;
Timer.Interval := FTemps;
Timer.OnTimer := OnTimer;
Timer.Enabled := False;
Caption := '© Guy Bidi 2007';
FormAide := TForm.CreateNew(Application);
OnMouseMove := LabelMove;
OnMouseLeave := LabelLeave;
FColorMouse := clHighlight;
ColorMouse := FColorMouse; Index := 0;
Temp := Caption;
with FormAide do
begin
Left := 0;
Top := 0;
BorderIcons := [biSystemMenu];
BorderStyle := bsSingle;
Height := 506;
Width := 367;
Caption := 'Les Propriétés du Composant Label3D';
Position := poScreenCenter;
Icon.LoadFromResourceName(Hinstance, 'AIDE');
Color := clMoneyGreen;
Hint := Bulle;
ShowHint := True;
OnDblClick := MemoDblClick;
end;
Memo := TMemo.Create(Owner);
with Memo do
begin
Parent := FormAide;
Left := 0;
Top := 58;
Hint := Bulle;
Color := clMoneyGreen;
Enabled := True;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clBlack;
Font.Height := -13;
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentShowHint := False;
ReadOnly := True;
ShowHint := True;
Lines.Text := Mess;
Height := 393;
Width := 361;
BorderStyle := bsNone;
WantReturns := True;
OnDblClick := MemoDblClick;
Align := alCustom;
end;
Image := TImage.Create(Owner);
with Image do
begin
Parent := FormAide;
Left := 95;
Top := 10;
Height := 47;
Width := 159;
Picture.Bitmap.LoadFromResourceName(Hinstance, 'IMAGE0');
AutoSize := True;
OnDblClick := MemoDblClick;
end;
end;
et non j'ai pas fait ça à la main
il existe un outil :
http://www.aew.wur.nl/UK/Delforexp/
il est juste configuré sur le "Standard Borland" et c'est tout !!!
2 sept. 2009 à 12:52
Je n'ai pas testé, n'ayant pas delphi sous les yeux. Ceci dit trois remarques :
*l'indentation est à revoir
*Il faut renommer les composants
*Penser à écrire des commentaires