Problème d'affichage d'image de fond

**Print'** · 31/03/2007, 20h56

Rebonjour à tous (désolé si je flood le forum ^^).

J'ai un petit problème avec l'affichage de l'image de fond de mon programme.
J'ai suivi la procedure indiquée dans la FAQ : http://www.developpez.com/delphi/faq...ion#imagefiche
Chez moi tout marche très bien, mais quand je veux le passer à un ami, il a la fenêtre sans l'image et a un message d'erreur précisant que l'image est introuvable (puisqu'il ne l'a pas sur son pc). Comment remédier à ce problème d'image pour que tout le monde puisse l'ouvrir correctement ?

Merci d'avance pour les réponses.

Print'

**Archimède** · 31/03/2007, 21h06

je n'ai pas regardé ton lien mai moi je charge mon image dans un timage etje fais un copyrect dans le canvas d'une paintbox ou de la form.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

canvas.copyrect(paintbox1.ClientRect,image1.picture.Bitmap.canvas,rect(0,0,430,430));

le rect source correspond à la dim de mon image bmp.
plus besoin de se trimbaler l'image avec l'exe, il est dans le Timage (image1 ici) !

**Print'** · 31/03/2007, 21h23

Mais le problème du TImage c'est qu'il masque tout le reste

.
A moins que ta technique ne masque pas les label et compagnie, je pense que le TImage ne soit pas la solution

.

**Pedro** · 31/03/2007, 21h50

Salut

Envoyé par Print'

Comment remédier à ce problème d'image pour que tout le monde puisse l'ouvrir correctement ?

Tu as plusieurs solutions:

Mettre l'image dans un TImage invisible
Mettre l'image dans un TImageList
Mettre l'image en resource
Fournir l'image avec ton prog

**Print'** · 31/03/2007, 22h22

Bonjour Pedro.

Pour le TImage invisible, comme faire ? puisque je suppose qu'il ne fait pas mettre visible=False
Pour mettre l'image en ressource, comment faire également ?

Comme t'as dû le voir je débute donc excusez moi si je ne comprends pas tout

.

Merci d'avance.

**Pedro** · 31/03/2007, 22h28

Envoyé par Print'

Pour le TImage invisible, comme faire ? puisque je suppose qu'il ne fait pas mettre visible=False

Si. C'est pas franchement propre mais bon...
La méthode du TImageList est mieux

Envoyé par Print'

Pour mettre l'image en ressource, comment faire également ?
Comme t'as dû le voir je débute donc excusez moi si je ne comprends pas tout

.

Ce n'est pas une excuse pour ne pas avoir recherché

http://delphi.developpez.com/faq/?pa...ererresdansexe

**LadyWasky** · 31/03/2007, 22h41

Salut,

Ton problême vien du fait que tu ne livre pas l'image à ton ami (elle doit se trouver dans le même répertoire que ton application)

Pour pouvoir afficher ton image, elle doit bien exister quelque part, non ?

D'où deux méthodes :

1 ) Soit sur le disque dur :
C'est ce que te suggère en effet la FAQ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Bitmap.LoadFromFile('MyBitmap.bmp');

cette instruction charge l'image à partir d'un fichier image (Load From File = Charge Depuis Fichier)

Dans ce cas, il te faut fournir ET ton exe, ET ton image (toutes les deux dans le même répertoire)

2)Soit directement intégrée dans l'executable de ton application :
c'est la méthode suggérée par exemple par Pédro
On appelle celà mettre un fichier en tant que resource.

Dans ce cas, puisque ton image est "fusionnée" à ton executable, tu n'as plus besoin que de livrer ton programme (par contre il sera plus gros, si ton image fait 1Mo, ton executable, grossis de 1Mo)

**Archimède** · 31/03/2007, 22h43

Ecoute, je viens de tester en rajoutant un bouton sur ma fiche...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
37
38
39
40
41
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.ExtCtrls, System.ComponentModel, Borland.Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Image1: TImage;
    Button1: TButton;
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées}
    fonddefiche:Tbitmap;
  public
    { Déclarations publiques}
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.nfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
fonddefiche:=tbitmap.create;
fonddefiche.assign(image1.Picture.Graphic);
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.Canvas.Draw(0,0,fonddefiche);
end;
 
end.

pas de problème...
en effet, j'avais oublié de te dire de mettre avec ton timage visible à false.
salut

**Archimède** · 31/03/2007, 22h50

+paintbox1.align:=alclient autant pour moi.
et ma photo est au format jpeg.
sinon à la place de graphic--->bitmap.

**Print'** · 01/04/2007, 00h07

Ca ne change pas le problème, on ne voit toujours pas le texte que je dois afficher

.
Et puis si je mets Visible=False, on ne voit plus le fond du tout

.

Je ne sais vraiment pas quoi faire ~~.

**Archimède** · 01/04/2007, 10h32

je ne vois pas pourquoi en modifiant le canvas de ta form par exemple, tu changerais le fait que tes contrôles ne soient pas visbles ?
c'est pas logique....

**Print'** · 01/04/2007, 14h09

Désolé mais je n'ai pas très bien compris ce que tu as dit :s.
Ce que je veux faire en fait c'est afficher un fond que j'ai réalisé puis superposer du texte dessus (j'ai fait un fond noir avec un cadre vert pour écrire les résultats dessus), or le TImage masque tout le texte

.
J'ai essayé ton code et ça masque toujours les TLabel.

**Archimède** · 01/04/2007, 14h14

attends le timage, tu ne le vois pas !
sa propriété visible est à false !
!!!!!!!!!!!!!!!!!!!!!!!

**Fabrice ROUXEL 1** · 01/04/2007, 17h01

Je ne vois plus où se situe le probleme dans la mesure ou Waskol et Pedro t'ont apporté la solution.
Ton image-> dans une ressource.
Tu la charge dans le canvas de la fiche à la création ( Canvas.Draw ou Canvas.StretchDraw)
Dans le OnResize de la fiche tu écrit un Repaint.

Bon développement
@+

---
Ne pas oublier le Tag

ou :delestage:

**Archimède** · 01/04/2007, 17h40

oui avec stretchdraw,c'est encore une solution.

je vois pas où ça marche pas !!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Image1: TImage;
    Label1: TLabel;
    procedure FormResize(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    w,h:integer;
    fond:tbitmap;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
width:=screen.Width div 2;
height:=screen.Height div 2;
position:=poscreencenter;
fond:=tbitmap.Create;
fond.assign(image1.Picture.Graphic);
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
paintbox1.Canvas.stretchdraw(paintbox1.ClientRect,fond)
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
w:=form1.clientwidth;
h:=form1.ClientHeight;
 
with paintbox1 do begin
width:=w ;
height:=h;
left:=0;
top:=0
end;
 
end;
 
end.

tu as la solution clé en main..................

Problème d'affichage d'image de fond

Delphi

Discussions similaires

Partager

Partager