APPARITION PROGRESSIVE D'UNE FENÊTRE
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
-
28 sept. 2005 à 20:14
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 22 juin 2008 à 14:27
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 22 juin 2008 à 14:27
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/33998-apparition-progressive-d-une-fenetre
https://codes-sources.commentcamarche.net/source/33998-apparition-progressive-d-une-fenetre
22 juin 2008 à 14:27
19 avril 2007 à 23:39
19 avril 2007 à 16:56
Et les mots pour le dire viennent t'en b...b...bégayant...
japee (in "Lard, peau et tiques")
19 avril 2007 à 16:41
Je me souviens avoir apris un bout de "l'art poetique" de ce grand auteur.
Ce serait-ce pas ceci :
"Ce qui se conçoit bien s'énonce clairement
Et les mots pour le dire ARRIVENT aisément."
A bon entendeur... ;-)
2 oct. 2005 à 10:11
"Ce qui se conçoit bien s'énonce clairement et les mots pour le dire viennent aisément". (BOILEAU)
A bon entendeur...
30 sept. 2005 à 13:13
@+
Nico
29 sept. 2005 à 22:38
Le fait que nous soyons d'accord comfirme l'utilité de l'usage de Screen.Height ;)
@+
Nico
29 sept. 2005 à 22:35
j ai survolé ton commentaire croyant, vu le titre "Epanouie Version corrigée "
Qu il avait pris en compte tes changements ...
Et c est vrai que j ai du telecharger le fichier pour savoir a quoi correspondait ce prog au juste et la description ... n en ai pas vraiment une !
29 sept. 2005 à 22:07
wolf691300 : pourquoi n'as-tu pas pris en compte les modifications que je t'avais proposées (notamment sur le centrage des composants et la désactivation du timer par le statut enabled) ?
PS : la variable flag n'a pas lieu d'être ici : autant modifier tout de suite la hauteur de la form...
PS2 : le titre de la source n'est toujours pas plus explicite...
@+
Nico
29 sept. 2005 à 20:56
au lieu de devoir changer manuellement la hauteur de l ecran
tu peux utiliser Screen.height qui renvoie la hauteur de l ecran !
Ciao
Nico
28 sept. 2005 à 22:14
Pour ceux qui viendraient par ici, je donne une petite description :
il s'agit d'un programme où la fenêtre apparaît progressivement en s'étirant sur la hauteur pour afficher l'image d'une rose (d'où le nom de la source... On y pense pas tout de suite lol :p)
L'effet de 'DoubleBuffered := true' est complètement dénaturé par l'ajout du code de repositionnement de la fenêtre 'Form1.Position:=poScreenCenter'. Donc pour éviter les scintillements, gère toi-même la position de la fenêtre (Form1.Top := ...)
Voici donc quelques améliorations :
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=true; // Pour éviter bien sûr les scintillements
Form1.Height := 0; // Initialisation de la hauteur de la Form
// 1 : pour l'alignement des contrôles, il suffit de modifier leurs propriétés Anchors (et Center pour les labels). Voir l'aide de Dephi pour plus d'infos
// 2 : l'intervalle du timer peut être réglé dans l'inspecteur d'objets
// 3 : le code suivant peut être entré directement dans l'inspecteur d'objets :
Fond.Align := alClient;
Fond.Stretch := true; // L'image est ainsi étirée plutôt que affichée par étapes, mais là, c'est un choix personnel, selon les goûts :p
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Height:=Height+12; // Height désigne Form1.Height (la déclaration Form1. n'étant pas nécessaire, on ne l'écrit pas)
Top := Trunc((Screen.Height-Height)/2); // Top:idem que pour Height, désigne Form1.Top ; On recentre la Form par rapport à l'écran
if Height >= 600 then Timer1.Enabled := false; // On désactive le timer une fois que la valeur limite est atteinte
end;
procedure TForm1.TExitClick(Sender: TObject);
begin
Beep;
// Application.Terminate; >> privilégier l'instruction Close.
Close;
end;
@+
Nico
28 sept. 2005 à 21:47
Le titre et la description ne disent rien du logiciel (qu'est-ce que c'est en fait???)
ça n'encourage pas trop à télécharger...
@+
Nico
28 sept. 2005 à 20:14
merci