Affichage de plusieurs images

Fermé

chayma ahmed Messages postés 1 Date d'inscription jeudi 18 avril 2013 Statut Membre Dernière intervention 18 avril 2013 - Modifié par chayma ahmed le 18/04/2013 à 17:31
rooky06 Messages postés 20 Date d'inscription samedi 5 octobre 2013 Statut Membre Dernière intervention 8 juin 2017 - 5 oct. 2013 à 23:20

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

A voir également:

Affichage de plusieurs images
Images libres de droit google - Guide
Affichage double ecran - Guide
Images enregistrées - Forum Blender
Windows 11 affichage classique - Guide
Les paramètres d'affichage nvidia ne sont pas disponibles ✓ - Forum Carte graphique

1 réponse

Réponse 1 / 1

rooky06 Messages postés 20 Date d'inscription samedi 5 octobre 2013 Statut Membre Dernière intervention 8 juin 2017 4
5 oct. 2013 à 23:20

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

calcule nombre des pixels "noir" dans un image (noir/blanc)

adele

Leboncoin : j'ai un problème d'affichage

code couleur associé a une image

Discussions similaires

Newsletters