Discussion :

[Oxygn44]

Bonjour à tous,

je voudrais changer une image en cliquant dessus en fonction de ce qu'elle contient. Voilà ce que j'ai écrit.
Mais apparemment ça ne marche pas.
J'ai fait des showmessages pour afficher les variables Path et le Path de l'image9. J'ai des contenus bizarres.
Je n'y comprends rien.
Pour le Path, il me met '\' dedans...
Et pour l'image, le getnamepath renvoie 'Tpicture'...
je ne sais pas pourquoi...
Quelqu'un peut m'expliquer ce qui se passe quie je puisse ciomprendre?
je vous remercie pour toutes vos aides.

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
 
.
.
.
Path:=Application.GetNamePath+'\';
.
.
.
 
procedure TForm1.Click6(Sender: TObject);
      begin
        if image4.Picture.GetNamePath=Path+'Good.bmp' then
          image4.Picture.Bitmap.LoadFromFile('Moins.bmp')
        else
          if image4.Picture.GetNamePath=Path+'Moins.bmp' then
            image4.Picture.Bitmap.LoadFromFile('Good.bmp')
          else
            if image4.Picture.GetNamePath=Path+'Bad.bmp' then
              image4.Picture.Bitmap.LoadFromFile('Plus.bmp')
            else
              image4.Picture.Bitmap.LoadFromFile('Bad.bmp');
      end;

[Linkin]

reagrde l'aide sur getNamePath, elle est réservée à un usage interne.

Je ne pense pas que le TPicture garde le chemin de l'image qui est cahrgée. Cela va être à toi de le gérer.

[Oxygn44]

J'ai codé avec une variable qui me dit quelle image j'ai dans mon Timage.
En VB, c'est directement faisable de questionner le path de la picture. je pensais qu'en delphi ça l'était aussi.

Merci pour ton aide.

[Fxg]

C'est plutôt ExtractFilePath qu'il faut utiliser.

[Lung]

C'est plutôt ExtractFilePath qu'il faut utiliser.

???

Quel rapport avec le TImage ?

[Linkin]

C'était pour le Application.GetNamePath

ça serait plutôt

Code :

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

1
2
 
ExtractFilePath(Application.ExeName)

[Linkin]

Sinon en conception, avoir le chemin dans l'image, je ne pense pas que ce soit une très bonne chose. On mélange l'affichage avec l'état de l'objet.

Je mettrais plus quelque chose du genre:

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
 
type TMonEtat = (meGood,meBad, meMoins, mePlus);
 
const 
  cstImageNames = array[TMonEtat] of String = ('Good.bmp','Bad.bmp','Moins.bmp','Plus.bmp');
var
gState : TMonEtat; // Cette vraible peut-être n'importe où, dans un objet, dans la partie implémentation, dans la form
 
procedure TForm1.Click6(Sender: TObject);
      begin
 
 
case gState of
meGood:gState := meMoins;
meBad:gState := mePlus;
meMoins:gState := meGood;
mePlus:gState := meBad;
end;
 
  image4.Picture.LoadFromFile(Path+cstImageNames [gState]);
end;