Position d'objet dans un autre objet

Bonjour,
J'ai créé un objet (TCustomControl) dans lequel je place d'autres "petits" objets, ils ont une place bien définit par rapport au parent. C'est à dire qu'un "petit" objet peut ce trouver à 1/8 du début, l'autre à 1/2 l'autre au 1/10 leur nombre et leur place sont fonction de l'utilisateur.

Mes objets ce placent comme il faut mais quand je redimentionne le parent tout fonctionne correctement mais le positionnement de tous les petits objet est long, trop long
Voici mon code (je place dans un tableau la liste des composants créés) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var y : integer; begin   y:=1; while (Sous_periodes.cells[9,y]<>'') and (Sous_periodes.cells[6,y]='Visible') do begin with (components[strtoint(Sous_periodes.cells[9,y])] as TSousPeriode) do begin left:=Position_sur_ligne(Sous_periodes.cells[2,y]); width:=Position_sur_ligne(Sous_periodes.cells[3,y])-Position_sur_ligne(Sous_periodes.cells[2,y]); end;   inc(y); end; end;

---

La question est : Y a t'il une méthode pour que le repostionnement des sous objets se fasse plus rapidement.

J'espère avoir été claire et je vous remerci pour vos conseils

Je suppose que le code fourni est celui du positionnement de tes objets (au début ou à chaque redimmensionnement du parent)?
Tu peux d'abord essayer, à chaque redimmensionnement :
*Rendre visible:=false tous les objets.
*Les positionner.
*Les rendre tous visible:=true
Il est possible que ça aille plus vite (sans que je sache pourquoi) mais surtout ça va plus vite subjectivement pour le client.
Et en plus ce n'est pas long à faire.

Citation:

---

Envoyé par philnext

Je suppose que le code fourni est celui du positionnement de tes objets (au début ou à chaque redimmensionnement du parent)?

---

Heu oui biensur, j'avais oublié de le préciser.

Bien je viens de tester visible:=false et mouvenet puis visible=true, et bien j'ai gagné en rapidité mais c'est pas encore ça.

Je te remerci, je vais tester de tout cacher puis déplacer puis tout rafficher pour voir si ça ira encore plus rapidement

merci encore

Citation:

---

Envoyé par Speed41

je vais tester de tout cacher puis déplacer puis tout rafficher pour voir si ça ira encore plus rapidement

---

et ben c'est pas encore ça

Bonjour,

Peut-être que la propriété components[<component_name>] prend du temps.

Il faudrait essayer de faire qqchose du type :

Code:

---

1 2 3 4 5

//initialisation Sous_periodes.objects[x,y]:=components[strtoint(Sous_periodes.cells[9,y])] ; ... // utilisation Sous_periodes.objects[x,y] TsousPeriode(Sous_periodes.objects[x,y]).left:=...

---

essaie peut-être de désactiver la rafraichissement auto du canvas avec

Code:

---

1 2 3 4 5

DisableAlign; try finally EnableAlign; end;

---

Utilise aussi SetBounds au lieu de Left/Width.

Et avec les propriétés Anchors de tes objets, ce ne serait pas plus simple?

Citation:

---

Envoyé par Gaadek

Et avec les propriétés Anchors de tes objets, ce ne serait pas plus simple?

---

Désolé je ne connais pas

Je vais tester toutes vos solutions

Merci de votre aide

Masquer avant le mouvement et rendre visible après m'a permis de gager un peu de vitesse, l'utilisation de Setbounds ma donné de la vitesse et de l'agrément à l'affichage.

Par contre

Code:

---

1 2 3 4 5

//initialisation Sous_periodes.objects[x,y]:=components[strtoint(Sous_periodes.cells[9,y])] ; ... // utilisation Sous_periodes.objects[x,y] TsousPeriode(Sous_periodes.objects[x,y]).left:=...

---

ne semble pas avoir apporté beaucoup tout du moins rien de visible, mais je le garde

avec

Code:

---

1 2 3 4 5

DisableAlign; try finally EnableAlign; end;

---

je pense voir un peu mieux.

Ne soyont peut être pas plus royaliste que le roi.

Je pense que c'est ma liste (while) qui me prend du temps car même quand je ne gére pas leur affichage (ils sont masqué) cela prends autent de temps. N'est il pas possible d'avoir une action sur tous les enfants en même temps (comme avec la propriété Align) et c'est là que je gagnerais de la rapidité.

De toute manière je vous remerci pour votre aide et du temps que vous m'avez fait gagné.

Bonjour,

Essayer aussi de n'affecter les propriétés left et top que quand c'est necessaire :

Code:

---

if mycompo.left<>newleft then mycompo.left:=newleft ;

---

Ca c'est probablement vérifié en interne, par contre.

Citation:

---

Ca c'est probablement vérifié en interne, par contre.

---

En fait non, parce qu'on gagne réellement des performances en faisant le test.

Je vais tester quand même le test

Mais si on regarde le code initiale, je ne gère ques les objets avec "visible" dans la colone 6

Code:

---

while (Sous_periodes.cells[9,y]<>'') and (Sous_periodes.cells[6,y]='Visible') ...

---

Si je masque tous les objets le simple fait de tester toutes les lignes pour savoir si l'objet doit être déplacé ou pas, prend à quelque ms près le même temps. Tout ce que vous m'avez apporté a accéléré l'affichage de façon non néglieable mais le plus à gagné est dans cette boucle (je pense)

merci

Je viens de m'appercevoir que c'est tout mon programme qui vien de ce ralentir et je ne sais pas pourquoi mais ce n'est plus le problème des objets (je les ai enlevé)

Merci de votre aide