Discussion :

[tintin22]

Salut à tous,

J'ai un peu petit souci en mode conception (Delphi 7),
J'ai plusieurs panels superposés (avec align=alClient sur une certaine zone) qui contiennent des composants ... Je trovue pas comment faire pour les masquer/afficher un peu à la photoshop (calques).

Merci.

[Aka Guymelef]

Bonjour,

Malheureusement ce n'est pas une fonctionnalité offerte par l'EDI donc à moins de créer des panels personnalisés qui deviennent transparent lorsqu'ils sont mis à Visible := False en mode conception tu ne pourras pas faire cela.

[ShaiLeTroll]

Après pour la maintenance des panels superposés, ce n'est pas très pratique, difficile de comprendre que selon la variable A, tu affiche le PanelA, ... et ça avec plein de panel partout, je le subit actuellement, donc quand je peux, je remplace cela par un PageControl dont je cache les TabSheet (TabVisible) en RunTime, et j'ai un confort absolu en DesignTime, le seul soucis, c'est qu'il faut anticiper que l'aspect va changer (la hauteur des composants, et donc la hauteur de la fenêtre, mais avec les Align ça ne pose aucun problème)

[tintin22]

aie ... je me disais bien que ça n'existait pas, j'ai regardé partout sur l'EDI et googlé ... J'avais des PageControl auparavant que j'ai transformé en panels, je crois que je vais les remettre en utilisant ta méthode ShaiLeTroll.

Merci à vous.

[Mac LAK]

En général, pour ce genre de problème, je procède ainsi :

• Je mets ma fiche à une dimension acceptable.
• Je pose les composants les uns à côté des autres : ils sont ainsi facilement accessibles.
• Lors du OnCreate de la fiche, je vais alors :
  • Redimensionner la fiche à la taille convenable.
  • Réaligner tous les composants sur une origine commune.
  • Modifier leurs propriétés d'alignement.
• Ensuite, plus qu'à terminer le OnCreate, et tout est redevenu "propre" à l'affichage.

Toutefois, j'ai quand même tendance à préférer l'utilisation des onglets pour ce genre de choses, mais avec les onglets visibles. Je trouve que c'est plus pratique côté utilisation.

[Andnotor]

On peut aussi créer plusieurs fiches et les "docker" dans la fiche principale par ManualDock . Le code par unité est ainsi plus légé.

[tintin22]

Merci pour vos propositions.

[Mac LAK]

Pour ma part, je me sers beaucoup de fonctions de ce genre :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
    // Utilitaires de positionnement dynamique.
    TGraphUtils = Class
 
      // Renvoie, sous forme de TPoint, la taille d'un contrôle.
      Function GetSize ( Const Control : TControl ) : TPoint ;
 
      // Convertit à la volée deux coordonnées en un TPoint.
      Function Point ( Const X, Y : Integer ) : TPoint ;
 
      // Renvoie l'encadrement d'un contrôle (un pixel autour). Assigner à un BoundsRect.
      Function OuterBounds ( Const Control : TControl ) : TRect ;
 
      // Renvoie l'encadrement d'un contrôle (un pixel à l'intérieur). Assigner à un BoundsRect.
      Function InnerBounds ( Const Control : TControl ) : TRect ;
 
      // Renvoie le TRect contenant les deux contrôles donnés.
      Function UnionBounds ( Const Control1, Control2 : TControl ) : TRect ;
 
    End ;
 
 
{ TGraphUtils }
 
function TGraphUtils.GetSize(const Control: TControl): TPoint;
begin
     Result.X:=Control.Width;
     Result.Y:=Control.Height;
end;
 
function TGraphUtils.InnerBounds(const Control: TControl): TRect;
begin
     Result:=Control.BoundsRect;
     With Result Do
          Begin
          Inc(Left);
          Inc(Top);
          Dec(Bottom);
          Dec(Right);
          End;
end;
 
function TGraphUtils.OuterBounds(const Control: TControl): TRect;
begin
     Result:=Control.BoundsRect;
     With Result Do
          Begin
          Dec(Left);
          Dec(Top);
          Inc(Bottom);
          Inc(Right);
          End;
end;
 
 
function TGraphUtils.Point(const X, Y: Integer): TPoint;
begin
     Result.X:=X;
     Result.Y:=Y;
end;
 
function TGraphUtils.UnionBounds(const Control1, Control2: TControl): TRect;
begin
     With Result Do
          Begin
          Left:=Min(Control1.BoundsRect.Left,Control2.BoundsRect.Left);
          Top:=Min(Control1.BoundsRect.Top,Control2.BoundsRect.Top);
          Right:=Max(Control1.BoundsRect.Right,Control2.BoundsRect.Right);
          Bottom:=Max(Control1.BoundsRect.Bottom,Control2.BoundsRect.Bottom);
          End;
end;

Libre à toi après d'adapter à ta sauce, bien sûr. Pour ma part, quand j'ai besoin d'une routine de ce genre, je la rajoute à mon unité d'utilitaires histoire de l'avoir sous le coude au prochain coup.

[Andnotor]

Mac, tu peux remplacer tes procédures par ceci:

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
//Function GetSize ( Const Control : TControl ) : TPoint ;
= Point(Control.Width, Control.Height); //Défini dans Classes (Types)
 
 
//Function Point ( Const X, Y : Integer ) : TPoint ;
Idem ci-dessus. 
 
//Function OuterBounds ( Const Control : TControl ) : TRect ;
R := Control.BoundsRect;
InflateRect(R, 1, 1);
 
//Function InnerBounds ( Const Control : TControl ) : TRect ;
R := Control.BoundsRect;
InflateRect(R, -1, -1);
 
//Function UnionBounds ( Const Control1, Control2 : TControl ) : TRect ;
IntersectRect(RDest, RDest, RSource);

[BuzzLeclaire]

Salut,

Je m'en melle un peu.

J'ai le cas dans mon installateur, ou j'ao des boutons suivant..suivant ..Etc...
mais au lieu d'utiliser des panels supperposé. Tu en créé 1 et du créer 4 forms par exemple, qui sont tous invisble à l'execution. ensuite tu les mets parent du panels au fur et a mesure de tes besoins !!!

Ce qui te permet aucune limite de superposition et en mode conception c'est beaucoup plus claire...

Bye.

[Mac LAK]

Mac, tu peux remplacer tes procédures par ceci:

InflateRect n'existe pas sur Delphi 7, qui est le compilateur que j'utilise...
Tu comprends mieux pourquoi j'ai fait cette petite classe ?

[Paul TOTH]

InflateRect n'existe pas sur Delphi 7, qui est le compilateur que j'utilise...
Tu comprends mieux pourquoi j'ai fait cette petite classe ?

si, dans Windows.pas, c'est une fonction de l'API Windows

sinon pour ce genre de problème j'utilise des TFrame que je viens placer à la main dans la fiche.

[Mac LAK]

si, dans Windows.pas, c'est une fonction de l'API Windows

Mmmm, je suis allé voir sur MSDN, j'ai vu ça sur cette fonction : "Minimum supported client : Windows 2000 Professional"...
Pour ça que je ne l'utilisais pas, cette unité date de l'époque où j'étais encore avec 98 sur ma machine perso, ce qui n'est effectivement plus d'actualité désormais.

(Je sens que le jour où ça va me prendre de remettre à jour mes unités helpers, je vais avoir du taf, moi... ).