Discussion :

[JJJJJ]

Bonjour,

malgré des recherches dans la FAQ ainsi que dans les messages du forum Delphi et malgré divers essais, je ne sors pas des EAccessViolation.
Le problème semble pourtant simple. Il s'agit de :
- créer un array de Timages (avec des tailles différentes définies).
- copier, dans chaque Timage de l'array, une image originale unique, nommée PotoInit, qui existe déjà sur Form1 ( Les copies étant faites en mettant à l'échelle grâce la propriété Stretch).
- Rendre visible les images de l'array qui se superposent partiellement (de la plus grande en arrière-plan à la plus petite en avant-plan).
- Bien sûr, il y aura ensuite d'autres instructions qui seront nécessaires avec OnClick, respectivement pour chaque image. Mais ce n'est pas là qu'est le premier problème de violation d'accès.

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
 
var
  Form1: TForm1;
  Photo:array[1..12] of TImage;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
begin
     for i:=1 to 12 do
     begin
 
          {Quel code pour creer photo[i] ?}
 
          photo[i].width:=40+10*(12-i);
          photo[i].height:=photo[i].width;
 
          {Quel code pour copier PhotoInit dans photo[i],
          en la mettant à la taille de Photo[i] avec la propriété Stretch ?}
 
          photo[i].top:=0;
          photo[i].left:=0;
          photo[i].transparent:=false;
          photo[i].visible:=true;
 
     end;
end;

[Aka Guymelef]

Bonjour,

Le problème est que les images dans ton tableau ne sont pas instanciées. Il faut d'abord les créer via un photo[i] := TImage.Create( Self ); puis positionner le Parent de photo[i] ainsi que ses propriétés Top et Left pour qu'il s'affiche ou tu veux.

Enfin pour copier depuis une image originelle tu peux utiliser Assign :

Code :

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

photo[i].Assign( PotoInit );

Et après faire les modifications sur la taille de l'image comme tu veux.

[JJJJJ]

Merci Aka Guymelef

C'est précisément à cet endroit là que je me plante :

Code :

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

1
2
3
4
5
6
7
photo[i]:=TImage.Create( Self );
photo[i].parent:=Form1;
photo[i].top:=0;
photo[i].left:=0;
photo[i].width:=PhotoInit.width;
photo[i].height:=PhotoInit.height;
photo[i].Assign(PhotoInit);   ---> violation d'accès.

[Paul TOTH]

d'où vient PhotoInit ?

[JJJJJ]

Bonjour Paul TOTH,

Je vais essayer d'être très précis pour répondre à ta question. "PhotoInit" est le nom donné à un Timage qui a été crée de la façon habituelle suivante :
- Sur Form1, on a déposé le composant TImage, dont le nom était alors Image1.
- Dans l'inspecteur d'objet, à l'onglet Image1:TImage, dans Propriétés, à la ligne Name, on a effacé Image1 et écrit à la place PhotoInit.
- à la ligne Picture qui portait la mention (vide), le clic fait apparaitre la fenêtre éditeur d'image. En utilisant la commande "Charger", on a été récupérer une image au format .bmp ; Puis clic sur le bouton "OK". L'image devient alors visible sur Form1 sous le nom PhotoInit.
La mention (vide), qui figurait auparavant, a disparu et on lit à sa place (TBitmap).
- La propriété PhotoInit.visible a été mise à false de telle sorte que cette image n'apparaisse pas à l'exécution.

[Paul TOTH]

ok et bien faisons le test

Delphi 5 (j'ai ça sous la main)

Timage, bitmap, renommé en PhotoInit

double clic sur la fiche, je copie colle le code et ajoute une ou deux modifs

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
 
var
  photo: array[1..12] of TImage;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 12 do
  begin
    photo[i]:=TImage.Create( Self );
    photo[i].parent:=Form1;
    photo[i].top:=10 * i;
    photo[i].left:=10 * i;
    photo[i].width:=PhotoInit.width * i div 10;
    photo[i].height:=PhotoInit.height * i div 10;
    photo[i].Assign(PhotoInit);
  end;
end;

impossible d'affecter TImage à TImage

c'est donc :

Code :

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

1
2
 
    photo[i].Picture.Assign(PhotoInit.Picture);