Discussion :

[K20]

Bonjour à tous !
Je suis nouveau ici et j'aurais besoin de votre aide sur un problème

Voilà, j'ai une comboxbox qui comporte 3 valeurs, un bouton et une image vide.

Quand je change ma combobox, en fonction du texte, ça définit un chemin qui sera plus tard le chemin de mon image (en JPG)

Ensuite, quand je clique sur le bouton, je veux que le chemin que j'ai défini tout à l'heure soit appliqué à mon image.

Et c'est là que je bloque, je n'y arrive pas

Voici le source de mon programme :

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
unit editeur;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, TeeProcs, TeEngine, Chart, jpeg, ComCtrls,
  ToolWin, ActnMan, ActnColorMaps, ActnCtrls, Menus;
 
type
  Ts_editeur = class(TForm)
    Textures: TComboBox;
    Generer: TButton;
    Image1: TImage;
 
    procedure GenererClick(Sender: TObject);
    procedure TexturesChange(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  s_editeur: Ts_editeur;
  Chemin : string;
 
implementation
 
uses Aide, Apropos;
 
{$R *.dfm}
 
// Bouton générer --> génère la map
procedure Ts_editeur.GenererClick(Sender: TObject);
var
  Texture : string;
  Image2 : TPicture;
begin
  Image2 := LoadPicture (Chemin) ;
	Image1.Picture := Image2;
end;
 
// Change le chemin de la texture utilisée pour le terrain
procedure Ts_editeur.TexturesChange(Sender: TObject);
var
    Texture : String;
begin
Texture := Textures.Text;
if (Texture = 'Herbe')
then Chemin := 'textures/terrains/herbe.jpg';
end;
 
end.

Si quelqu'un pouvait m'aider à résoudre ce problème
Si c'est plus simple, je peux utiliser des bitmap

Merci d'avance !

[sjrd]

Code :

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

1
2
3
4
5
6
7
8
9
// Bouton générer --> génère la map
procedure Ts_editeur.GenererClick(Sender: TObject);
var
  Texture : string;
  Image2 : TPicture;
begin
  Image2 := LoadPicture (Chemin) ;
	Image1.Picture := Image2;
end;

Tu peux faire beaucoup plus simple et probablement plus fonctionnel :

Code :

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

1
2
3
4
procedure Ts_editeur.GenererClick(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(Chemin);
end;

[K20]

ça marche avec des JPG ça ?

[sjrd]

À partir du moment où tu as mis Jpeg dans les uses, oui

[LadyWasky]

écrit plutot

Code :

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

chemin:=ExtractFilePath(Application.ExeName)+'\textures\terrains\herbe.jpg';

(donc avec des backslash au lieu des slash : windows préfère ça)

Function ExtractFilePath(UnCheminVersUnFichier:string):string;
retourne le répertoire d'un fichier (je ne sais plus si c'est avec ou sans Bacslash à la fin)

Application.ExeName renvoie le chemin de ta propre application.

donc si ton exe se trouve dans c:\Delphi\Projets\ProjetTextures, Chemin sera égal à : c:\Delphi\Projets\ProjetTextures\textures\terrains\herbe.jpg

[K20]

Ok merci, je vous tient au courant

[K20]

Super ça fonctionne
Merci beaucoup !

J'ai une autre question : comment faire pour répéter cette image (qui est en faite un motif) dans tout mon TImage ??

[LadyWasky]

Dans un TImage, tu ne peux pas !

A la place, tu peux par exemple prendre un TPaintBox, et dans son évènement OnPaint, tu écris ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TMainForm.PaintBox1Paint(Sender: TObject);
var ABitmap:TBitmap;
begin
  ABitmap:=TBitmap.Create;
  ABitmap.LoadFromFile(Chemin); 
  Canvas.Brush.Bitmap:=ABitmap;
  Canvas.FillRect(GetClientRect); //rempli la surface avec la brosse en cours (ton image)
  ABitmap.Free;
end;

avec ton GenererClick, un poil modifié :

Code :

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

1
2
3
4
5
 
procedure Ts_editeur.GenererClick(Sender: TObject);
begin
  PaintBox1.RePaint;
end;

Je crois que ça devrait marcher

[K20]

Super, je vais tester ça merci

[K20]

Erf, ile me renvoie une erreur sur cette ligne :

Code :

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

 Canvas.Brush.Bitmap := mBitmap;

(j'ai modifié le nom de la variable)
Il me dit que ce n'est pas le bon format

J'utilise que des JPG, ça vient de ça ou pas ?

EDIT : je viens de tester ne mettant mon image en bmp, ça fonctionne mais ça applique la texture sur tout mon programme

Il n'y aurais pas moyen que ça dessine que dans ma PaintBox et de pouvoir utiliser des JPG ? (car passer de 100ko à 786ko ça fait mal )

EDIT 2 : de plus, ça me la mes dès le lancement de mon programme

[LadyWasky]

ha oui, je ma suis trompé, ça remplie le canvas de ta form...

Comme ça, ça marche mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMainForm.PaintBox1Paint(Sender: TObject);
var ABitmap:TBitmap;
begin
  if chemin='' then exit;
  ABitmap:=TBitmap.Create;
  ABitmap.LoadFromFile(Chemin);
  PaintBox1.Canvas.Brush.Bitmap:=ABitmap;
  PaintBox1.Canvas.FillRect(GetClientRect); //rempli la surface avec la brosse en cours (ton image)
  ABitmap.Free;
end;

Sinon, avec les JPEG, je verrais ça demain si tu veux;

[LadyWasky]

Avec le chargement des JPEG, ça donne ça :

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
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var AJPEG:TJPEGImage;
     ABitMap:TBitmap;
begin
  if not FileExists(chemin) then exit; //encore mieux qu'avant...
  AJPEG:=TJPEGImage.Create;
  ABitMap:=TBitmap.Create;
 
  try
     AJPEG.LoadFromFile(Chemin);
     ABitMap.Assign(AJPEG);  //ça "transforme" ton JPEG en Bitmap
     PaintBox1.Canvas.Brush.Bitmap:=ABitMap; 
     PaintBox1.Canvas.FillRect(GetClientRect); //rempli la surface avec la brosse en cours (ton image)
  finally
     //nettoyage après utilisation
    AJPEG.Free;     
    ABitMap.Free;
    PaintBox1.Canvas.Brush.Bitmap:=nil;
  end;
end;

[K20]

ça fonctionne nickel !!!
Merci beaucoup, je vais regarder ton code d'un peu plus près