Form trés personnel (design)

Soyez le premier à donner votre avis sur cette source.

Vue 6 415 fois - Téléchargée 1 431 fois

Description

j'éssay de répondre a quel ques questions qu'on ma posé, déplacé une form, resize, creation de composant dynamiquement....

Source / Exemple :


tous est dans le zip (comme on dit :D)

Conclusion :


c'est pas un projet, mais un sort de tutorial malgré que c'est pas trés bien commanté (manque de temps), mais c'est des trucs pas trés défficile affaire aussi, et excuser mon fraiçais ;) .

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ Slander, bien vu et logique, d'habitude je le place dans le oncréate de la fiche, mais comme j'avais vu le problème dans le resize, je l'avais placé la par inadvertance.

@+,

Cincap
Messages postés
26
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
14 décembre 2009

Bonjour à tous et toutes,

Pour information:
le ".Doublebuffered" d'un composant est un état bistable (soit activé soit désactivé) qui se caractérise par un booléen dans le code Delphi.

Il n'est donc pas "nécessaire" de le placer dans un event récurent (tel que l'évènement "OnResize" d'une fiche). En effet, à chaque redimensionnement de la fiche vous le redéfinissez à "True" sans l'avoir au préalable changé d'état, ce qui ne sert à rien...

Il aurait donc été plus judicieux de le placer dans l'évènement "OnCreate" de la Fiche par exemple, car une fois passé à "True", il n'en bougera plus faites moi confiance :p...

Ceci étant dit, à bon entendeur...

Slander
Messages postés
169
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
15 avril 2008

Merci, c gentil,il y à sûrement d'autres améliorations (rien n'est parfait) ça c sure.
pour les deux ligne que t'as ajouté M.cincap , tu peut enlevé la premier, car ça donne la même résulta


//Panel5.doublebuffered := true;
Pmidl.doublebuffered := true;

et Merci encore, ça fai plaisire.
Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour à toutes et à tous,

@ Matrix1, très bonne source, j'ai rajouté dans le onresize de la fiche :

procedure TFarticl.FormResize(Sender: TObject);
begin
Panel5.doublebuffered := true;
Pmidl.doublebuffered := true;

SetWindowRgn(farticl.handle,CreateRoundRectRgn(0,0,farticl.Width,farticl.Height,14,14),true);
imx.Anchors:=[Akright,AKtop];
imr.Anchors:=[Akright,Aktop];
end;

Lors du resize, il y a un léger mieux.

@+,

Cincap

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.