Création d'un array de Timage

Version imprimable

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:

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;

23/03/2009, 10h27
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:

photo[i].Assign( PotoInit );

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

Merci Aka Guymelef

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

Code:

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.

23/03/2009, 11h53
Paul TOTH

d'où vient PhotoInit ?
23/03/2009, 13h35
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.

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:

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:

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

Oui, c'était le assign(Timage) qui était la cause des ennuis.
Entre temps je me suis apperçu que ca marche très bien, tout simplement avec copyrect.
Je m'apprêtais à signaler que le Pb est résolu.
Voici mon code. Mais le code de Paul THOT, que je remercie, doit aussi bien convenir.

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
 
var
  Form1: TForm1;
  Photo:array[1..12] of TImage;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   i,w0,h0,w,h:integer;
begin
     for i:=1 to 12 do
     begin
          photo[i]:=TImage.Create( Self );
          photo[i].parent:=Form1;
          photo[i].top:=0;
          photo[i].left:=0;
          w0:=PhotoInit.width;
          h0:=PhotoInit.height;
          w:=40+10*(12-i);
          h:=40+10*(12-i);
          photo[i].width:=w;
          photo[i].height:=h;
          photo[i].stretch:=true;
          photo[i].canvas.copyrect(rect(0,0,w,h),photoInit.canvas,rect(0,0,w0,h0));
          Photo[i].visible:=true;
     end;
end;