TRadioButton et image

Version imprimable

31/10/2008, 08h13
Napala

TRadioButton et image

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!!!
31/10/2008, 08h53
sat83

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:

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:

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

Merci de ton aide sta83

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

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 ....

comme sa cela doit etre mieux :

Code:

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" .

Code:

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:

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;
Citation:

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?

_______________________________________ C'est le néant ....... :?
(Merci de persévérer pour moi :) )
Code:

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)

31/10/2008, 12h09
sat83

enlève cette ligne qui ne sert a rien :

Code:

RadioGroup1.ItemIndex:=2;

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

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

Code:

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 ~~ ??

31/10/2008, 14h07
Cl@udius

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
31/10/2008, 14h09
sat83

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?
31/10/2008, 14h22
Napala

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 :yaisse2:

:) Mer

+
31/10/2008, 14h26
Cl@udius

Citation:

Envoyé par Napala

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

Et pourquoi ne pas l'utiliser ? Très pratique pourtant.
31/10/2008, 14h29
sat83

Citation:

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.

.

salut

Code:

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

@+Phil

31/10/2008, 15h14
Napala

Ajout balises
Citation:
Envoyé par anapurna

Code:

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 ?
31/10/2008, 15h30
anapurna

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