Affichage de plusieurs images
chayma ahmed
Messages postés
1
Statut
Membre
-
rooky06 Messages postés 20 Statut Membre -
rooky06 Messages postés 20 Statut Membre -
Bonjour,
salut je suis debutant en delphi svp je veut faire affichage de plusieurs images(la méme image afficher 10 fois au plus) suite a un click sur une boutton comment ca merci d'avance
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i :=1 to 10 do
begin
Image1.Picture.LoadFromFile( 'g.bmp' );
end;
end;
end.
je fait ca mais ne marche pas
salut je suis debutant en delphi svp je veut faire affichage de plusieurs images(la méme image afficher 10 fois au plus) suite a un click sur une boutton comment ca merci d'avance
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i :=1 to 10 do
begin
Image1.Picture.LoadFromFile( 'g.bmp' );
end;
end;
end.
je fait ca mais ne marche pas
1 réponse
-
En gros, tu dois declarer, dans une boucle, un Timage que tu crees, auque tu affectes l image desiree et que tu positionnes là où tu le desires
Si il s agit de la meme image que tu repetes à intervales reguliers (image de 10*10)
MyBitmap : TBitmap;
...onclick...
var
y: Integer;
begin
y:=100;
MyBitmap := TBitmap.Create;
MyBitmap.LoadFromFile('Brick4.bmp');
for i:=1 to 10 do
Canvas.Draw(i*10, y, MyBitmap);
end;
au close du form tu liberes to image MyBitmap.Free
enfin j espere avoir ete clair mais rien n est mois sur...en tous les cas tu as une piste
