TRadioButton et image

**Napala** · 31/10/2008, 08h13

Salut,

Voilà j'aimerai faire qque chose de très ambitieux pour mon niveau actuelle ...

J'ai trois boutons "TRadioButton" et une zone TImage avec un composant non visuel ImageList.

En faite l'image ne doit pas être la même suivant ce que coche l'utilisateur .....

J'ai regardé l'aide en ligne, lu plusieur tutorial mais bon c'est trés dur pour un début ...

Merci vraiment des aides!!!

**sat83** · 31/10/2008, 08h53

Un premier conseil :

utilise plutôt le composant TRadioGroup plutôt que plusieurs TRadioButton. Tu ajoute 3 lignes dans la propriété Items et tu obtiendra le même résultat.

Ensuite, pour savoir quel est le RadioButton qui est coché tu utilise :

Code :

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

RadioGroup1.ItemIndex

Ensuite est ce que tu as beaucoup d'images? Est-ce qu'elles sont lourde? Sinon peut etre est-il envisageable de les charger en cours de programme depuis le disque dur (imaginons un répertoire avec toutes tes images nommées '0.bmp', '1.bmp', ...., 'N.bmp', et selon l'ItemIndex de ton RadioGroup tu charge telle ou telle image).

Code :

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

Image1.Picture.LoadFromFile( IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ) ;

**Napala** · 31/10/2008, 09h50

Merci de ton aide sta83

Voici ce que j'ai essayé de faire .....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
chemin : string;
begin
RadioGroup1.ItemIndex:=2 ;
Case RadioGroup1.ItemIndex of
   0 : Image1.Picture.LoadFromFile( IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ) ;
   1 :
   2 :
 end;
 
end;

Le problème est que lorsque je compile le prog on ne voie pas les boutons options.
Puis il faut bien rentrer le chemin de l'image pour que le prog puisse charger l'image ....

**Napala** · 31/10/2008, 10h00

comme sa cela doit etre mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
RadioGroup1.ItemIndex:=2 ;
Case RadioGroup1.ItemIndex of
   0 : Image1.Picture.LoadFromFile('C:\Documents and Settings\utili\Mes documents\Mes images\image.jpeg'  ) ;
   1 :  Image1.Picture.LoadFromFile('C:\Documents and Settings\utili\Mes documents\Mes images\image2.bmp'  ) ;
   2 :Image1.Picture.LoadFromFile('C:\Documents and Settings\utili\Mes documents\Mes images\image3.bmp'  ) ;
 end;
 
end;

mais je ne vois tjrs pas comment l'utilisateur peut entre le nombre "2" ou "1" .

**sat83** · 31/10/2008, 10h08

Code :

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

RadioGroup1.ItemIndex:=2 ;

Tu ne dois pas affecter toi même ItemIndex, sinon tu chargera toujours la même image!

En admettant que tes images se trouvent dans un répertoire 'Images' qui se trouve dans le même répertoire que ton exécutable :

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
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
chemin : string;
fichier : string;
begin
//récupératiuon du chemin de l'executable
  chemin = ExtractFilePath( Application.ExeName ) ;
  fichier = chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;
//test de l'existance du fichier  
  if FileExists( fichier ) then
  begin
    Image1.Picture.LoadFromFile( fichier ) ;
  end ;
 
end;

Le problème est que lorsque je compile le prog on ne voie pas les boutons options.

Est ce que tu as compléter la propriété Items de ton RadioGroup?

**Napala** · 31/10/2008, 10h30

_______________________________________ C'est le néant .......

(Merci de persévérer pour moi

)

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
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
chemin : string;
fichier : string;
begin
RadioGroup1.ItemIndex:=2;
 
//récupération du chemin de l'executable
  chemin := ExtractFilePath( Application.ExeName ) ;
  fichier := chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;
//test de l'existance du fichier
  if FileExists( fichier ) then
  begin
    Image1.Picture.LoadFromFile( fichier ) ;
  end ;
 
end;

Le prog s'exécute mais lorsque je clique sur la zone TRadioGroup : rien ne se passe.. (j'ai bien ajouté le composant TImage avec Name:Image1)

**sat83** · 31/10/2008, 12h09

enlève cette ligne qui ne sert a rien :

Code :

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

RadioGroup1.ItemIndex:=2;

Sinon se sera toujours l'image 2 qui sera chargée!

**Napala** · 31/10/2008, 13h24

oui excuse moi j'ai oublié de l'enlevez; mais bon voici le code

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
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
chemin : string;
fichier : string;
begin
case RadioGroup1.ItemIndex of
    0:
 begin
//récupération du chemin de l'executable
  chemin := ExtractFilePath( Application.ExeName ) ;
  fichier := chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;
//test de l'existance du fichier
  if FileExists( fichier ) then
  begin
    Image1.Picture.LoadFromFile( fichier ) ;
  end ;
end;
    1: showmessage('a');
end;

Lorsque je coche la case 2 j'ai bien le message 'ah' Sinon lorsque je coche la 1 j'ai rien qui ne s'affiche.............
D'où peut venir se problème ~~ ??

**Cl@udius** · 31/10/2008, 14h07

Salut

Est-ce que le fichier 0.bmp existe bien dans le sous-dossiers Images ?
Ajoute un else au if FileExists() pour afficher un message dans le cas contraire.

@+ Claudius

**sat83** · 31/10/2008, 14h09

Met des points d'arrêts dans ta fonction, et exécute en pas à pas (F8) pour avancer ligne après ligne dans ton programme.

Ainsi tu pourra voir les valeurs de chaque paramètre et vérifier qu'elles ont des valeurs correcte.

Vérifie également que tu passe dans le test (et donc que le fichier existe bien). N'oublies pas que les ItemIndex commence a zéro et non à 1. Donc ton premier bouton aura l'ItemIndex 0, ton 2nd l'ItemIndex 1, etc... Vérfie également que tu as bien une image appelée '0.bmp'.

Autre question pourquoi utilise un caseof?

**Napala** · 31/10/2008, 14h22

Toutes mes plates excuses ............................
Jm'étais trompé de répertoire .............

Et puis j'ai également comprit pourquoi il ne fallai pas utiliser de case..of

Mer

+

**Cl@udius** · 31/10/2008, 14h26

Envoyé par Napala

Et puis j'ai également comprit pourquoi il ne fallai pas utiliser de case..of

Et pourquoi ne pas l'utiliser ? Très pratique pourtant.

**sat83** · 31/10/2008, 14h29

Envoyé par Cl@udius

Et pourquoi ne pas l'utiliser ? Très pratique pourtant.

Parce que d'après la question qu'il posait, le case of n'apportais rien.

Si par contre NAPALA, tu souhaite effectuer des actions différentes en fonction du radiobutton qui est coché, là tu peux utiliser le case of.

.

**anapurna** · 31/10/2008, 14h56

salut

Code :

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

1
2
3
 
  Image1.Picture.Bitmap := Nil;
  ImageList.GetBitmap(radiobutton1.itemIndex,Image1.Picture.Bitmap)

@+Phil

**Napala** · 31/10/2008, 15h14

Envoyé par anapurna

Code :

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

1
2
  Image1.Picture.Bitmap := Nil;
  ImageList.GetBitmap(radiobutton1.itemIndex,Image1.Picture.Bitmap)

Salut
anapurna,

ton code m'intéresse:
si j'ai bien comprit dans la premier ligne tu di qu'il y a que dalle dans ton composant image1
Puis dans la seconde ligne tu ajoute au composant "ImageList" l'image qu'à choisi l'utilisateur via le bouton ?

**anapurna** · 31/10/2008, 15h30

salut

le Timagelist est un composant non visuel ayant plusieurs images en sont sein
le seul truc c'est que je lui demande d'affecter l'image numero x
au TIMAGE pose sur ta fiche

je n'ajoute rien dans le timaglist
pour cela il faut passer par le add du timagelist

@+ phil

TRadioButton et image

Composants VCL Delphi

Discussions similaires

Partager

Partager