Discussion :

[ZonZorg]

Bonjour

j'ai deux procedure dont l'une provient d'un combobox et l'autre d'un listbox

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
PROCEDURE Tform1.combobox1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
VAR
      Itemtext: STRING;
      S1:LONGINT;
BEGIN
      WITH control as Tcombobox DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END; {Tform1}
END;
 
PROCEDURE Tform1.list1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
VAR
      Itemtext: STRING;
      S1:LONGINT;
BEGIN
      WITH control as TListbox DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END; {Tform1}
END;

comment puis-je faire pour faire qu'une seule procedure
j'ai tester
WITH control as Tcombobox or TListbox
mais cela ne fonctionne pas
ensuite essayer avec
var sender:Tobject;
mais je ne sais pas comment faire.
merci de me donner quelques suggestions:

ma solution serai de faire

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
 
IF (control is Tcombobox) THEN
      WITH control as Tcombobox DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END
IF (control is TListbox) THEN
      WITH control as TListbox DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END; {Tform1}

mais je veux juste que le WITH soit commun.
j'ai fait des recherches sur le net mais pas trouvé.

[e-ric]

Avis personnel : les mots clé ne majuscule,; c'est pas beau, en tout cas, ça suit les habitudes stylistiques de Delphi.

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
 
PROCEDURE Tform1.list1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
 
  procedure DrawColored(Canvas: TCanvas; aColor: TColor; aText: String);
  begin
    Canvas.Font.Color  := aColor;
    IF Odselected IN STATE THEN THEN
      Canvas.Brush.Color := 0
    ELSE
      Canvas.Brush.Color:= Clwindow
    Canvas.Fillrect(Rect);
    Canvas.Textout(Rect.Left + 2 , Rect.Top, atext);
  End;
 
begin
  if (control is TListbox) then
    with control as TListbox do
      DrawColored(Canvas, TColor(ITEMS.OBJECTS[Index]), ITEMS[Index]);
  if (control is Tcombobox) then
    with control as Tcombobox do
      DrawColored(Canvas, TColor(ITEMS.OBJECTS[Index]), ITEMS[Index]);
 { selon la version de Delphi essayer TCustomListControl :
  if (control is TCustomListControl) then
    with control as TCustomListControl do
      DrawColored(Canvas, TColor(ITEMS.OBJECTS[Index]), ITEMS[Index]);
  qui remplace alors les deux précédents}
End;

La classe TCustomListControl n'existe peut-être pas dans toutes les verison de Delphi (j'ai regardé la doc en ligne actuelle d'Embarcadero).

@+

[ZonZorg]

Merci pour la rapidité de votre réponse marche pour moi.
en ce qui concerne le mots clefs en majuscule c'est parce que
j'utilise une routine en pascal qui me les mets en capitale
(je trouve cela plus jolie pour ma part).

avec la Propriétés TCustomListControl

ITEMS[Index] me génère une erreur: identificateur non déclaré. (DELPHI 7)

[e-ric]

Salut

Je viens de vérifier dans les sources de la VCL D7, TListBox et TComboBox partagent bien l'ancêtre commun TCustomListControl (qui est une classe et une propriété, attention à la terminologie). Mais TCustomListControl n'a pas de propriété Items, celle-ci n'apparaît que dans les types dérivés, pas de bol !

Je pense qu'il va falloir se limiter à la première solution (distinction des classes TComboBox et TListBox). Elle n'est pas très élégante mais elle reste simple à comprendre et à maintenir.

@+

[guillemouze]

Je vois 2 solutions :

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
procedure Traitement(Items:  TStrings; Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
VAR
      Itemtext: STRING;
      S1:LONGINT;
BEGIN
      WITH control DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END; {Tform1}
END;
 
PROCEDURE Tform1.combobox1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
begin
  Traitement(control as Tcombobox).Items, Control, Index, Rect, STATE);
end;
 
PROCEDURE Tform1.list1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
BEGIN
  Traitement(control as TListbox).Items, Control, Index, Rect, STATE);
END;

ou alors, avec le meme evenement pour les 2 :

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.combobox1drawitem(Control: Twincontrol; Index: LONGINT; Rect: TRECT; STATE: Townerdrawstate);
VAR
  items: TStrings;
      Itemtext: STRING;
      S1:LONGINT;
BEGIN
  if control is Tcombobox then
    Items := TCombobox(control).Items
  else if control is TListboxthen
    Items := TListbox(control).Items
  else
    Exit;
 
      WITH control DO
      BEGIN
            Itemtext := ITEMS[Index];
            S1:=LONGINT(ITEMS.OBJECTS[Index]); // doit contenir la couleur
            IF Odselected IN STATE THEN
            BEGIN
                    Canvas.Font.Color  := S1;
                    Canvas.Brush.Color := 0;
            END
            ELSE
            BEGIN
                  Canvas.Font.Color := S1;
                  Canvas.Brush.Color:= Clwindow;
            END;
            Canvas.Fillrect(Rect);
            Canvas.Textout(Rect.Left + 2 , Rect.Top, Itemtext);
      END; {Tform1}
END;

[e-ric]

Petite rectification :

Avis personnel : les mots clé ne majuscule,; c'est pas beau, en tout cas, ça suit les habitudes stylistiques de Delphi.

il fallait lire :

Avis personnel : les mots clé ne majuscule, c'est pas beau, en tout cas, ça ne suit pas les habitudes stylistiques de Delphi.

J'aurais dû me relire. Ce n'est évidemment pas l'argument esthétique (purement perso) qu'il faut retenir.