Discussion :

[ero-sennin]

Bonjour,

Je viens de créer dynamiquement des Panels et je souhaite maintenant éditer la propriété Anchors de chaqu'un d'entre eux (par ligne de code).

J'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
int i,Nbre_Nature_Coup,haut;
   AnsiString Libelle_Nature_Coup;
   TQuery *Nb_Nature_Coup = new TQuery(this);
   haut=FMatch_En_Cours->ClientHeight;
   Nb_Nature_Coup->DatabaseName="Tennis";
   Nb_Nature_Coup->SQL->Clear();
   Nb_Nature_Coup->SQL->Add("Select count(idT_Nature_Coup) AS Nbre_Nature_Coup From t_nature_coup;");
   Nb_Nature_Coup->Active=true;
   Nbre_Nature_Coup=Nb_Nature_Coup->FieldByName("Nbre_Nature_Coup")->AsInteger;
   TQuery *Libelle_Nature = new TQuery(this);
   Libelle_Nature->DatabaseName="Tennis";
   for (i=Nbre_Nature_Coup;i>=1;i--)
  {
     Libelle_Nature->SQL->Clear();
     Libelle_Nature->SQL->Add("Select S_Libelle From t_nature_coup where idT_Nature_Coup="+AnsiString(i)+";");
     Libelle_Nature->Active=true;
     Libelle_Nature_Coup=Libelle_Nature->FieldByName("S_Libelle")->AsString;
     haut=haut-50;
     TPanel *Panel = new TPanel(this);
     Panel->Parent = this;
     Panel->Left=100;
     Panel->Top=haut;
     Panel->Caption=Libelle_Nature_Coup;
     Panel->Name=Libelle_Nature_Coup;
     Panel->Anchors <<akBottom <<akLeft;
  }

Ce code ne génère pas d'erreur cependant lorque je redimentionne ma fenêtre, mes panels restent ancrés par défaut en haut à gauche.
Pouvez-vous m'éclaircir sur ce point et m'expliquer comment faire (dans le forum j'ai cherché mais j'ai rien trouvé )

Merci

[mike600river]

bonjour,
si tu donnes les coordonnées de top et left apres les anchors, et eventuellement que tu fini par un form->repaint(); ça change qqchose?

ou en utilisant l'evenement OnResize peut etre

[ero-sennin]

Effectivement, ma ligne de code était mal placée mais un autre problème s'ajoute c'est celui des dimensions des Panels! Tous panels se redimensionnent mais l'effet qui en résulte n'est pas celui que je pensé lol.

Le résultat que je souhaiterai obtenir c'est un Panel de la même dimension de départ mais qui se colle à la fenêtre en bas à gauche pour que je puisse utiliser tout l'espace restant

Si vous voyez un peut l'idée ... et si vous avez une autre solution, faites moi en part

EDIT :

J'ai trouvé d'où vient le problème concernant la dimension des panels. C'est en faite que le Panel s'étire (Panel->Top ne change pas). Je vais encore chercher pour voir comment obtenir le résultat que je veux !

[mike600river]

si tu veux que les proprietes height et width garde la meme valeur (si g bien compris ce que tu veux), tu les garde dans 2 variables et quand tu redimensionne ta fenetre et place le panel en bas gauche tu precise aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
panel1->height=VariableHeight;
panel1->width=VariableWidth;

[ero-sennin]

Je n'y arrive pas Le code que je vous ai donné plus haut est dans une procédure et donc la propriété de mes panels ne sont accessible que dans la procédure non? Ce que je ne comprends pas c'est que tous les autres propriétés (akRight,akLeft etc ... marche). Normalement, avec akBottom, c'est la position du Panel en Top qui change!? J'ai essayé de faire cela avec des boutons que j'ai créer via l'interface graphique (donc pas de création dynamique) et là, tout fonctionne ! Je ne comprends pas

Merci

[mike600river]

une fois créés les panels devraient etre accessibles meme en dehors de la procedure, a moins que je me trompe mais il me semble avoir fait qqchose de ressemblant en delphi
par contre si les largeurs et hauteurs st stockées ds des variables, ces variables sont declarées dans le .h (du moins c'est ainsi que je fais dans mon application)