begin process at 2012 02 11 07:59:08
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > SUPERPOSITION D'IMAGES , DÉSSINER UN BMP

SUPERPOSITION D'IMAGES , DÉSSINER UN BMP


 Information sur la source

Note :
Aucune note
Catégorie :Graphique Niveau :Débutant Date de création :02/03/2003 Date de mise à jour :02/03/2003 22:16:12 Vu / téléchargé :3 558 / 239
Auteur : Remixgame

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

Voici un code simple mais très utile qu'on ne peux inventer de tête surtout pour un débutant ...

Je poste cette exemple pour montrer un peu l'utilisation de Canva ...

Voila ...

Source

  • procedure TForm1.Button1Click(Sender: TObject);
  • var
  • Image2: TBitmap;
  • Image3: TBitmap;
  • begin
  • Image2 := TBitmap.Create;
  • Image3 := TBitmap.Create;
  • {Chargement de l'image1}
  • image2.LoadFromFile('Votreimage1');
  • {Chargement de l'image2}
  • image3.LoadFromFile('Votreimage2');
  • {On assemble}
  • image1.Canvas.Draw(0,0,image2);
  • image1.Canvas.Draw(15,20,image3);
  • image1.picture.SaveToFile('c:\cooll5555.bmp');
  • end;
procedure TForm1.Button1Click(Sender: TObject);
var
Image2: TBitmap;
 Image3: TBitmap;
begin
Image2 := TBitmap.Create;
 Image3 := TBitmap.Create;
 {Chargement de l'image1}
image2.LoadFromFile('Votreimage1');
{Chargement de l'image2}
 image3.LoadFromFile('Votreimage2');
 {On assemble}
image1.Canvas.Draw(0,0,image2);
image1.Canvas.Draw(15,20,image3);
image1.picture.SaveToFile('c:\cooll5555.bmp');
end;

 Conclusion

Pas de MAJ prévu

Bon coding ;-)

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   Doubleimage2
    • Project2.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier434 octets
    • Project2.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 015 octets
    • Project2.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier188 octets
    • Project2.resTélécharger ce fichier [Réservé aux membres club]876 octets
    • Unit1.~ddpTélécharger ce fichier [Réservé aux membres club]51 octets
    • Unit1.~dfmTélécharger ce fichier [Réservé aux membres club]753 octets
    • Unit1.~pasTélécharger ce fichier [Réservé aux membres club]865 octets
    • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]4 210 octets
    • Unit1.ddpTélécharger ce fichier [Réservé aux membres club]51 octets
    • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]753 octets
    • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier865 octets

Télécharger le zip


 Sources du même auteur

LES THREADS EN DELPHI
MODIFIER UN EXE ( INTÉGRER DES VARIABLES , MOT DE PASSE )
Source avec Zip CONVERTISSEUR BIN -> HEXA -> DEC -> ASCII
IDHTTP , IDPOP3 ,IDSMTP EN GRANDE PARTIE EXPLIQUÉE
Source avec Zip [IDPOP3] INDY POP3 , RECEVOIR LES HEADERS ET LE NOMBRE DE MA...
Toutes les sources de Remixgame

 Sources de la même categorie

Source avec Zip Source avec une capture LE CERCLE ENCHANTÉ D'ANDRES GÎT EN NOS MÉMOIRES par Caribensila
Source avec Zip Source avec une capture COMPARATIF ALGO CERCLES par barbichette
Source avec Zip Source avec une capture RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING) par Bacterius
Source avec Zip Source avec une capture TEXTE SUR COURBE DE BEZIER par pseudo3
Source avec Zip Source avec une capture YEUXROUGES par pseudo3
Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de Nono40 le 03/03/2003 00:08:30

Il manque une chose TRES importante : la libération des variables locales ! Si l'utilsateur répète cette procédure N fois, il va vite user la mémoire...

procedure TForm1.Button1Click(Sender: TObject);
var
Image2: TBitmap;
Image3: TBitmap;
begin
Image2 := TBitmap.Create;
Image3 := TBitmap.Create;
Try
  {Chargement de l'image1}
  image2.LoadFromFile('Votreimage1');
  {Chargement de l'image2}
  image3.LoadFromFile('Votreimage2');
  {on assemble}
  image1.Canvas.Draw(0,0,image2);
  image1.Canvas.Draw(15,20,image3);
  image1.picture.SaveToFile('c:cooll5555.bmp');
Finally
  Image2.free;
  Image3.free;
end;
end;

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Renewable Energy is Within Reach
Photo beach 1 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,156 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)