changer image en fonction de la selection d'une Listbox

Version imprimable

Bonjour,
en fait j'ai plusieur tableau, tab_image et tab_param qui me servent a stocker des timage et des strings, lors de la création d'une image j'utilise la fonction suivante :

Code:

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
function CreerImage(name_img : string; position_left : integer = 0): integer;
var
   i : integer;
begin
     try
        for i := 0 to length(tab_image)-1 do
        begin
             if(tab_image[i].left = position_left) then
             position_left := position_left + tab_image[i].Width;
        end;
     finally
     SetLength(tab_image,length(tab_image)+1);
     tab_image[length(tab_image)-1] := TImage.Create(Form1);
     with tab_image[length(tab_image)-1] do
          begin
               Parent := Form1;
               Name := 'image' + IntToStr(length(tab_image));
               picture.LoadFromFile('C:\Documents and Settings\Administrateur\Bureau\projet\bmp\'+ name_img + '.bmp');
               Visible := true;
               Left := position_left;
               AutoSize := true;
               OnDragOver := Form1.ImageDragOver;
               OnMouseDown := Form1.ImageMouseDown;
               OnEndDrag := Form1.ImageEndDrag;
               PopupMenu := Form1.PopupMenu1;
          end;
     result := length(tab_image)-1;
end;
end;

Par la suite la procedure qui utilise cette fonction pour par exemple rajouter l'image d'un pc est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.PC1Click(Sender: TObject);
var
   tmp : string;
   res : boolean;
begin
     res := true;
     while (tmp = '') and (res) do
       begin
            res := InputQuery('Nom du pc','PC',tmp);
       end;
     if (res) then
        if CleanForm() = mrok then
         begin
              ListBox1.Items.Add('PC ('+tmp+')');
              SetLength(tab_param,length(tab_param)+1);
              with form2 do tab_param[CreerImage('pc')] := CreerParam(Edit1.text, edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit8.text,edit9.text,edit10.text,RadioButton7.Checked,RadioButton6.Checked,RadioButton2.Checked,RadioButton4.Checked,RadioButton1.Checked,RadioButton5.Checked,RadioButton3.Checked,RadioButton8.Checked,RadioButton10.Checked,RadioButton9.Checked,RadioButton12.Checked,RadioButton11.Checked);
              StatusBar1.Panels.Items[0].Text := tab[8];
         end;
end;

lorsque je selectionne un item de la listbox1, je voudrais que l'image créé précedemment (fond blanc) se change en une autre image (fond jaune) et qu'elle fasse l'opération inverse lorsque je la déselectionne.

Pour les photos a fond jaune la syntaxe est de ce type :

Code:

picture.LoadFromFile('C:\Documents and Settings\Administrateur\Bureau\projet\bmp\'+ name_img + '_selected.bmp');

mais je ne sais pas dans quel évènement placer ça et la manière dont formuler le code :s, des idées?

25/04/2006, 23h34
avogadro

Je pense qu'il faut aller chercher l'image qui correspond a la ligne de tab_param qu'on a selectionné dans la listbox, mais bon :s

Personne? :lol:
26/04/2006, 03h00
denokan

ben moi je passerai par le OnClick de ta listbox, avec une variable pour stoquer le dernier index cliqué, et une autre pour l'index cliqué actuellement
26/04/2006, 13h08
avogadro

Citation:

vec une variable pour stoquer le dernier index cliqué, et une autre pour l'index cliqué actuellement

pourquoi??

en cliquant juste sur la listbox il voit qu'il y a écrit pc, routeur, etc...mais il ne sait pas a quel élément ce nom réfère, il faut regarder ça dans le tableau, comme les lignes ds tab_image et dans la listbox sont créés en meme temps!

le probleme si je boss sur le onclick, c'est que si apres je clic sur la form et non sur la listbox pour déselectionner l'item choisi bah l'image restera avec un fond jaune :roll: ! enfin d'apres moi ...

tu peux faire une procedure style :
Code:

1 2 3 4 5 6 7 8 9 procedure doSelection(index : Integer); begin if index = OldIndex then // si rien à faire on s'en va Exit; // charge l'image OldIndex avec un fond blanc // charge l'image Index avec le fond jaune OldIndex := index; end;
et tu appelle cette routine depuis le OnClick de ta ListBox, mais aussi dans le OnClick de ta Form

26/04/2006, 21h18
avogadro

oui mais de cette façon lorsque je créé une image je dois tout de suite charger l'image avec le fond jaune, ça bouffe de la mémoire, et comme il faut optimiser son code un minimum c'est pas bon :s
28/04/2006, 00h42
avogadro

up !! j'en ai vraiment besoin -__- ya pas un surdoué delphien dans les parage?? lol c'est un petit chalenge a prendre !!
28/04/2006, 00h48
denokan

tu ne peux pas modifier ta procédure de chargement pour lui donner en paramètre la couleur de fond à charger, comme ça tu le fais directement au chargement ?
28/04/2006, 10h26
avogadro

tu peux pas changer la couleur d'un jpg que tu charge -__-# ou bien?? a la limite si je prend une image a fond transparent mais sinon !
28/04/2006, 10h40
denokan

au lieu de charger l'image en fond blanc, puis de remplace par celle à fond jaune, tu charges directement celle avec le fond jaune
28/04/2006, 17h18
avogadro

huhu le principe de la procédure est, je le rappel, que lorsque je selectionne une ligne d'une listebox, l'élément désigné par cette ligne change pour avoir un fond jaune, ça me sert donc a rien de la chargé jaune des le début :lol: