Discussion :

[Revan777]

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 :

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
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;
}

[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.

[say]

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

[bandit boy]

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 :

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
 
    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.

[say]

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

[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.