Discussion :

[ysr1]

Bonjour à tous,

Je crée dynamiquement des panels sur lesquels j'affiche des images...
Voici le code pour faire cela :

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
for(int l=0;l<nb_ligne;l++){
    for(int c=0;c<nb_colonne;c++){
        if(i<game->ImagesFileNameList->Count){
            TPanel* panel=new TPanel(View3D);
            TImage* image=new TImage(panel);
            panel->Parent=View3D;     
            panel->Height=hauteur-2;
            panel->Top=hauteur*l+2;
            panel->Width=largeur-5;
            panel->Left=largeur*c+2;
            panel->Color=clBlack;
            panel->Tag=i+1;
            ListPanel->Add(panel);
            image->Parent=panel;
     img->Stretch=true;
            image->OnClick=Panel2Click;
            AnsiString* file_name=(AnsiString*)(game->ImagesFileNameList->Items[i]);
            image->Picture->LoadFromFile(*file_name);
            image->Tag=i+1;
            ListImage->Add(image);
            i++;
        }
    }
}

Je ne comprends pas ce qu'il se passe car le résultat, c'est que mes panels sont bien construits mais les images sont toutes affichées sur le meme panel alors qu'ils sont différents dans le code.
Elles se superposent toutes sur le premier panel rien sur les autres.

Avez vous une idée pour m'expliquer le comment du pourquoi ?

Merci.

[henderson]

Salut !

Puisque les bords du panel ne sont pas pris en compte dans la zone
client, est-ce que tu as essayé quelque chose dans le genre (avec Align = alClient):

Code :

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

1
2
3
4
panel->BevelInner = bvLowered;
panel->BevelOuter = bvRaised;
panel->BevelWidth = 3;
panel->BorderWidth = 1;

ou bien :

Code :

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

1
2
3
4
panel->BevelInner = bvLowered;
panel->BevelOuter = bvRaised;
panel->BevelWidth = 1;
panel->BorderWidth = 4;

Il reste toujours la possibilité du SetBounds(...)

A plus !

[ysr1]

C'est bon, ça fonctionne.
Ce n'est pas exactement comme je le veux mais je vais adapter.

Merci et à +.

Salut !

Puisque les bords du panel ne sont pas pris en compte dans la zone
client, est-ce que tu as essayé quelque chose dans le genre (avec Align = alClient):

Code :

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

1
2
3
4
panel->BevelInner = bvLowered;
panel->BevelOuter = bvRaised;
panel->BevelWidth = 3;
panel->BorderWidth = 1;

ou bien :

Code :

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

1
2
3
4
panel->BevelInner = bvLowered;
panel->BevelOuter = bvRaised;
panel->BevelWidth = 1;
panel->BorderWidth = 4;

Il reste toujours la possibilité du SetBounds(...)

A plus !