Discussion :

[boyerf]

Bonjour,

Dans une colonne de ma DBGrid, je souhaite afficher en lieu et place d'une string, une icone suivant la valeur de la string.
Par exemple, mon champ string est CATEGORIE.
Si la valeur dans la base est "X" j'affiche dans la cellule un icone "dossier ouvert"
Si la valeur est "A" j'affiche une autre icone, etc...

Vous avez une idée ?

Merci d'avance

[boyerf]

Bon, pas de réponse...
Peut être faut il que je trouve un autre composant en free ?
Vous avez une idée ?

[Jeankiki]

Salut,

Tu peux aller voir sur ce lien dans les FAQ's Delphi, je pense que tu trouveras ton bonneur.
http://delphi.developpez.com/faq/?pa...eacocherdbgrid

Bonne chance

Jeankiki

[TéBeSsI]

Comment Placer une Icon dans une DBGrid :

OnDrawColumnCell

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
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;  const Rect: TRect; 
DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var Icon: TBitmap; 
 
begin 
Icon:=TBitmap.Create; 
 
if  (Column.FieldName='SHARES' ) then begin   
 
with  DBGrid1.Canvas do begin 
Brush.Color:=clWhite; 
FillRect(Rect); 
 
if (Table1.FieldByName('SHARES').Value>4500)   
then 
ImageList1.GetBitmap(1,Icon) 
else 
ImageList1.GetBitmap(0,Icon); 
Draw(round((Rect.Left+Rect.Right-Icon.Width)/2),Rect.Top,Icon); 
 
end; 
end;

a+

[boyerf]

Super, merci pour ton aide !