Discussion :

[rbag]

Salut,

j'utilise une listbox et je voudrais que lorsque l'on sélectionne 2 ou + éléments et que l'on appuie sur un bouton, il se dessine un rectangle autour (éventuellement un fond grisé)... Le problème est le suivant :

-> Comment récupérer les coordonnées des éléments sélectionnés ???
-> Dessiner le rectangle d'accord, mais comment l'effacer (et redessiner ce qu'il y a en dessous.)???
-> Dans le cas ou je mets un fond, comment donner réécrire le texte présent en dessous ???


Merci d'avance

[FWS]

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
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var marge:integer;
begin
 
  if index mod 2<>1 then begin
                          Listbox1.canvas.brush.color:=clwhite;
                          Listbox1.canvas.fillrect(rect);
                          end else begin
                                   Listbox1.canvas.brush.color:=$00F4F3EE;
                                   Listbox1.canvas.fillrect(rect);
                                   end;
  Listbox1.canvas.textout(rect.left+30,rect.top+2,listbox1.items[index]);
 
  if (odSelected in state) then begin
                                Listbox1.canvas.brush.color:=$00F8D1C5;
                                Listbox1.canvas.fillrect(rect);
                                Listbox1.canvas.font.color:=clblue;
                                Listbox1.canvas.font.style:=Listbox1.canvas.font.style +[fsbold]+[fsitalic];
                                Listbox1.canvas.textout(rect.left+30,rect.top+2,listbox1.items[index]);
                                end;
 
  marge := (Rect.Bottom - Rect.Top - imageList1.Height) div 2;
  imagelist1.Draw(Listbox1.canvas, Rect.Left + 4, Rect.Top + marge, Index);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.MultiSelect := True;
end;

Utilise la touche F1 pour le multiselect.

télécharger le source : http://aediumprogrammation.free.fr/listboxfun.zip

[rbag]

Excellent, je crois que je vais pouvoir en faire quelque chose... Merci

[FWS]