Redimensionnement composants après modif taille fenetre

Version imprimable

Bonjour,
j'ai une appli que je veux pouvoir agrandir en plein écran mais je ne sais pas si je gère bien le redimensionnement des composants de ma fiche.
Il y a surement un moyen plus simple pour gérer la mise en page après changement de la taille de la fenêtre.
Merci de m'éclairer là-dessus.

Code:

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
void __fastcall TForm1::FormResize(TObject *Sender)
{
        // Redimensionnement des Memo
        Memo1->Left = 8;
        Memo2->Left = 8;
        Memo1->Width = Form1->Width - 24;
        Memo2->Width = Form1->Width - 24;
 
        if (Memo1->Width < 610)  // Taille d'origine
        {
                Memo1->Height = 81;
                Memo2->Height = 81;
                Memo1->Top = 184;
                Memo2->Top = 288;
                Label8->Top = 272;
        }
        else  // Adaptation des tailles pour le plein écran
        {
                Memo1->Height = 162;
                Memo2->Height = 162;
                Memo2->Top = Memo2->Top + 81;
                Label8->Top = Label8->Top + 81;
        }
 
        // Redimensionnement des TCapture
        TCapture->Left = 8;
        TCapture->Width = Form1->Width - 24;
        TCapture2->Left = 8;
        TCapture2->Width = Form1->Width - 24;
}

05/07/2007, 12h08
slylafone

Je n'écris jamais une ligne de code pour gérer un redimensionement.

Il faut utiliser la propriété Align des composants (et des TPanel pour subdiviser la fenêtre)... Le truc bien avec Builder est que tu peux immédiatement tester le redimensionement sans compiler.
05/07/2007, 12h44
say

j'ajouterai qu'une bonne gestion des Anchors associée au Align devrait en effet répondre à la problématique.

Salut,
Je n'ai jamais vu une solution propre et facile à mettre en place pour adapter n'importe quelle application à n'importe quelle résolution d'écran.

J'ai fait un petit code très basique dans le genre:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 int i; TControl *Component; double dx = (double)Screen->Width/(double)Form1->Width; double dy = (double)Screen->Height/(double)Form1->Height; Form1->Top = 0; Form1->Left = 0; Form1->Width = Form1->Width * dx; Form1->Height = Form1->Height * dy; for(i=0;i<Form1->ControlCount;i++) { Component = dynamic_cast<TControl *>(Form1->Components[i]); Component->Width = Component->Width * dx; Component->Height = Component->Height * dy; Component->Top = Component->Top * dy; Component->Left = Component->Left * dx; }
Mais ca ne remet en place la taille et la position des composants, pas les structures internes (composants dans TPanels, cellules de grilles ...)

Il faudrait construire une application en 600*800, et n'avoir qu'à augmenter la taille de ceux ci, car les alignements ne sont pas disponibles sur tous les composants et les ancres effaces parfois les petits composants lorsque la fenêtre est redimensionnée plus petite.
C'est très difficile à gérer.

05/07/2007, 14h42
say

Citation:

Envoyé par bandit boy

les ancres effaces parfois les petits composants lorsque la fenêtre est redimensionnée plus petite.
C'est très difficile à gérer.

c'est clair... c bizarre que BCB prévoit pas mieux que ça tout seul comme un grand :aie:
06/07/2007, 10h54
Revan777

Si j'ai bien compris, il n'y a pas de méthodes particulières, seulement quelques bidouilles. Mon code fonctionne pas mal, je ne vais pas y toucher pour l'instant mais je vais étudier l'utilisation des TPanel et Align pour voir.
Merki.