Discussion :

[avogadro]

bonjour,

j'ai trouvé quelques procédure pour déssiner sur des forms etc.. et dans les manipulations revenait plusieurs commandes, j'ai donc essayer d'en faire une a ma sauce pour faire un dégradé sur une listbox, mon code par contre ne marche pas, la couleur initial de la listbox reste la meme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
     for x := 0 to ListBox1.Height do
     begin
       ListBox1.Canvas.Pen.color := RGB(0,x,0);
       ListBox1.Canvas.MoveTo(0,x);
       ListBox1.Canvas.LineTo(ListBox1.Width,x);
       ListBox1.Repaint;
       ListBox1.Refresh;
     end;

[avogadro]

personne??

[anapurna]

salut

utilise la methode drawitem

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Procedure Tmaform.ListBox1DrawItem(Control: TWinControl;  Index: Integer; Rect: TRect; State: TOwnerDrawState);
  begin
 with Sender as TListbox do
 begin
 // erase
 Canvas.FillRect (Rect);
 // draw item
 Canvas.Font.Color :=    TColor (Items.Objects[Index]);
 Canvas.TextOut(Rect.Left, Rect.Top,Items[Index]);
 Degrade(Canvas,ColorDeb,ColorFin);
 if (odFocused in State) and (odSelected in State) then
    Canvas.DrawFocusRect(Rect);
end;
end;

@+ Phil

[avogadro]

pour ça il faut utiliser degrade et je ne l'ai pas :s

[anapurna]

salut

degrade c'est une bete fonction qui va degrader un canvas
d'une couleur A à une couleur B

je ne l'est pas mis
je pensai que tu savait 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Type
  TRGbColor = Record
    R : word;
    G : word;
    B :  word;
  end;
procedure Degrade(Canvas : Tcanvas;Arect : Trect;fromColor, toColor: TColor);
var
  aBand        : TRect; { Bande rectangulaire de couleur courante }
  i, nbDgrad   : integer; { Compteur pour parcourir la hauteur de la fiche }
  RGB_Start : TRGbColor; { RGB de la couleur de départ }
  RGB_Dif   : TRGbColor; { RGB à ajouter à la couleur de départ pour atteindre la couleur de fin }
  RGB_Cur   : TRGbColor; { RGB de la couleur courante }
begin
 // Calcul des valeurs RGB pour la couleur courante
  RGB_Start.R := GetRValue(ColorToRGB(fromColor));
  RGB_Start.G := GetGValue(ColorToRGB(fromColor));
  RGB_Start.B := GetBValue(ColorToRGB(fromColor));
 
  // Calcul des valeurs à ajouter pour atteindre la couleur de fin
  RGB_Dif.R := GetRValue(ColorToRGB( toColor )) - RGB_Start.R ;
  RGB_Dif.G := GetgValue(ColorToRGB( toColor )) - RGB_Start.G ;
  RGB_Dif.B := GetbValue(ColorToRGB( toColor )) - RGB_Start.B ;
 
  With Canvas do
  begin
    Pen.Style := psSolid;
    Pen.Mode := pmCopy;
    Pen.Width := 1;
    nbDgrad := 255;
 
    if ARect.Bottom - ARect.Top < 255 then
      nbDgrad := ARect.Bottom - ARect.Top;
 
    for i:= 0 to nbDgrad do // Degradé de um max. de 255 cores ...
    begin
      aBand.Left   := ARect.Left;
      aBand.Right  := ARect.Right;
      aBand.Top    := ARect.Top + MulDiv(i   , ARect.Bottom - ARect.Top, nbDgrad+1 );
      aBand.Bottom := ARect.Top + MulDiv(i+1 , ARect.Bottom - ARect.Top, nbDgrad+1 );
 
     // Calcul de la couleur courante
      RGB_Cur.R := (RGB_Start.R + MulDiv( i, RGB_Dif.R, nbDgrad ));
      RGB_Cur.G := (RGB_Start.G + MulDiv( i, RGB_Dif.G, nbDgrad ));
      RGB_Cur.B := (RGB_Start.B + MulDiv( i, RGB_Dif.B, nbDgrad ));
      Brush.color:=RGB(RGB_Cur.R,RGB_Cur.G, RGB_Cur.B);
      FillRect(aBand);
    end;
  end;
end;

@+ Phil

PS : attention il faut que tu calcul les couleur de deb et de fin selon item ou il se trouve

[avogadro]

wahou, pas super facile pour un dégradé, et sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Degrade(Canvas,ColorDeb,ColorFin);

il y a je pense trop de paramètre selon la fonction et colordeb je ne sais pas ce que ça représente :s pck il n'est pas déclaré en plus... de la couleur donc je pense un integer enfin la je sais pas, j'ai jamais manipuler des couleurs en codages comme ça sous delphi alors je sais pas

apres si je la déclare comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
   colordeb: TColor;

il y a type incompatible trect et tcolor