Superposition de composant pour faire une image

Version imprimable

29/12/2005, 22h06
spikto

Superposition de composant pour faire une image

Bonjour,
voila en détails ce que je souhaite faire :
j'ai un TImage et un autre TImage supperposer au premier et autour de ce second TImage j'ai 4 label.
Ce que je veut faire c'est prendre tout les TImage et label qui sont supperposer pour ne faire qu'un en créant une image.

Voila j'espère que j'ai été assez claire si vous voulez des precisions demander.
29/12/2005, 23h02
sofiane44

un peut de détail "Spikto",pour mieux comprendre le problème :wink:
30/12/2005, 00h41
spikto

Le mieux c'est de faire un exemple,

Alors j'ai une image de fond (ex : nuage) qui est dans un TImage
Ensuite j'ai une autre image (ex: un avion) qui est dans un autre Timage
Enfin j'ecrit quelque chose (ex : message,signature) qui est dans un label

donc au final je voudrais que les nuages, l'avion et le message soit crée dans une seul image

Ou sinon comment dans photoshop calque1 les nuages calque2 l'avion et calque3 le message, et la quand tu fais enregistrer sous et que tu choisi jpeg tu a une image unique ou on ne différencie plus les calques. Donc moi je veux faire pareil avec les TImage et les labels pour faire un jpeg

Si c'est pas encore assez claire, à ce moment là je mettrais des images mais la je pense que c'est bon.
30/12/2005, 17h18
spikto

voila avec des images :

voici mon nuage
http://blacksaturne.atomysk.com/nuage.jpg

voici mon avion
http://blacksaturne.atomysk.com/Avion.gif

et le message "bienvenue"

Donc je mets les images dans des timages et le message dans un label
qui sont superposé

Sa donne sa
http://blacksaturne.atomysk.com/resultat.jpg

Voila et moi je veux obtenir la derniere image sous forme jpeg sauf que la je l'ai fais avec photoshop mais ici je voudrais obtenir ceci avec delphi

Il n'y as pas plus clair.
30/12/2005, 17h26
neilbgr

Tu peux faire une capture de la fenetre ( [incorrect]Bitblit()[/incorrect] [correction]BitBlt()[/correction] avec le Handle du desktop), ou mieux, utilises TImage32 ( http://www.g32.org/graphics32/ ) ca gère les calques, la transparence entre eux, ...
30/12/2005, 17h38
spikto

au lieu bitblit c'est pas plutot bitblt ?
30/12/2005, 17h44
neilbgr

Citation:

Envoyé par spikto

au lieu bitblit c'est pas plutot bitblt ?

si si surement... je l'ai ecrit de tete :D (j'ai corrigé mon post)
c bien de l'api windows auquelle je fais allusion... et d'ailleur plus je m'en passe, mieux je m'en porte :roll:
C'est pour cela que je te préconise le TImage32 qui lui encapsule parfaitement le "Bitmap" de windows de façon on ne peut plus efficace.
30/12/2005, 18h11
spikto

J'arrive pas à installer les composants(Graph32) j'ai installer le package et en faite il a rien dedans j'en lance un autre il veut pas l'installer
c'est normal ?
30/12/2005, 18h20
neilbgr

Quelle version de Delphi as-tu ?
30/12/2005, 18h21
spikto

la 7 et j'ai pri le pack correspondant à ma version pourtant
30/12/2005, 18h30
neilbgr

L'aide indique :

Citation:

Unzip the files;

Add location of main installation directory to Tools | Environment Options | Library | Library Path.

Select File | Open... on the menu bar. Set Files of type to Delphi package source, locate and open GR32_DSGN_D6.dpk (GR32_DSGN_D5 for Delphi5, GR32_DSGN_D4 for Delphi4 or GR32_DSGN_B5 for C++ Builder);

A package editor window will appear. Click Compile, then click Install;

A priori, tu aurais brulé l'étape qui consiste a mettre le chemin "de bibliothèque" où se trouvent les sources.
30/12/2005, 18h55
spikto

Toujours pareil quand je compile il me m'ouvre un unit et me mets plein d'erreur, il parle de clx dans l'aide c'est quoi ?

Apparament fodrai installer clx. non ?

salut , peut etre une solution simple est de faire une simple copy de ton image , quand ton montage est fini et se sauvegarder la nouvelle image.

le code ci dessous fait cela :

ZoneImage = Timage qui possede les autres et tes labels ( le font) ,
Img = Timage qui possede le resultat de la copie
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TForm1.Button2Click(Sender: TObject); var Zone1,Sauve: TRect; begin Zone1.Top :=ZoneImage.top ; Zone1.Left :=ZoneImage.left ; Zone1.Right :=ZoneImage.top+ZoneImage.Height; Zone1.Bottom :=ZoneImage.left+ZoneImage.Width; ImgResult.Height :=ZoneImage.Height; ImgResult.Width :=ZoneImage.Width; Sauve.Top := 0; Sauve.Left := 0; Sauve.Right :=ZoneImage.Height; Sauve.Bottom :=ZoneImage.Width; ImgResult.Canvas.CopyRect(Sauve, Form1.Canvas, Zone1); end;

Merci pour ton code il y avait une deformation mais falait inversé deux valeur, voila ce que j'ai mis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button2Click(Sender: TObject); 
var 
  Zone1,Sauve: TRect; 
begin 
   Zone1.Top :=ZoneImage.top ; 
   Zone1.Left :=ZoneImage.left ; 
   Zone1.Right :=ZoneImage.top+ZoneImage.Height; 
   Zone1.Bottom :=ZoneImage.left+ZoneImage.Width; 
 
   ImgResult.Height :=ZoneImage.Height; 
   ImgResult.Width :=ZoneImage.Width; 
   Sauve.Top := 0; 
   Sauve.Left := 0; 
   Sauve.Right :=ZoneImage.Width;  <-----------
   Sauve.Bottom :=ZoneImage.Height;   <-------
 
   ImgResult.Canvas.CopyRect(Sauve, Form1.Canvas, Zone1); 
end;

31/12/2005, 15h18
jcs2

Je viens également de télécharger Graphics32.

Pour l'installation le fichier readme.txt dit de consulter l'aide .chm:
'See Graphics32.chm file for installation'

Quand je l'ouvre, je vois effectivement tout le sommaire mais pour les pages d'informations, nada:
'Internet Explorer ne peut pas ouvrir la page Web requise. La page n'est peut-être pas disponible temporairement.etc...'

Que fais-je de faux?