Discussion :

[cre3000]

J'aimerais faire appel une procédure (test) sur commande (en cliquant sur un button par exemple) mais le code est déja une procédure et ca ne fonctionne pas.
Je ne suis pas un pro , de qu'elle facon procèder ???

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, CheckLst;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure Button1Click(Sender: TObject);
 
  private
 
    { Déclarations privées }
  public
 
 
 
    { Déclarations publiques }
  end;
 procedure test;
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure test;
begin
 
////  JE NE SAIS PAS QUOI METTRE ........
 
 
end;
 
 
 
 procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with(Control as TListBox).Canvas do  //Le dessin se fait sur le canevas du contrôle, pas dans la fiche
    begin
    //on choisit les couleurs en fonction de l'index
    if Index=7 then
    begin
       //fond
       Brush.Color:=clRed;
       //police
       Font.Color:=clYellow;
    end;
    FillRect(Rect);//efface le rectangle
    //dessin du texte
    TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);//affiche le texte
 
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
test;
 
 
end;
 
end.

Merci de votre précieuse aide

[ero-sennin]

Salut,

Que dois faire la méthode test ? Car j'ai pas trop compris ce qu'elle devait faire.
Tu veux qu'elle appelle ListBox1DrawItem ?

[cre3000]

OUI, ou si il y aurais une facon plus simple pour
afficher de la couleur sur un item spécifique d'un listbox .

auriez vous un exemple de programme ??

merci

[ero-sennin]

Juste une question.
Tu as bien mis la propriété Styles à lbOwnerDrawFixed ?
Car si c'est pour mettre certains items en couleurs, tu n'as rien à faire d'autres que l'événement OnDrawItem. Dans ce cas, la méthode test, n'est pas nécessaire(si j'ai bien compris tes attentes).

[cre3000]

Oui ca été fait, mais si je veux par exemple que se soit l'index 3 6 et 7 qui affiche en couleur en cliquant sur un bouton, comment faire ???

[Dr.Who]

un exemple complet avec bonus : un concept primaire de ramasse miette : voir Zip en PJ.