Icone dans un Tbgrid
sraverdy
Messages postés
16
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
19 janvier 2007
-
7 févr. 2005 à 21:07
lapucedu88 Messages postés 96 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 22 mai 2008 - 9 févr. 2005 à 08:14
lapucedu88 Messages postés 96 Date d'inscription jeudi 1 avril 2004 Statut Membre Dernière intervention 22 mai 2008 - 9 févr. 2005 à 08:14
A voir également:
- Icone dans un Tbgrid
- Icone delphi ✓ - Forum Delphi / Pascal
- Icone java - Forum Java
- Comment changer icone par default d'une application? ✓ - Forum Delphi / Pascal
- Icone cours - Forum VB.NET
- Icone c# ✓ - Forum C# / .NET
1 réponse
lapucedu88
Messages postés
96
Date d'inscription
jeudi 1 avril 2004
Statut
Membre
Dernière intervention
22 mai 2008
1
9 févr. 2005 à 08:14
9 févr. 2005 à 08:14
Pour ajouter des icônes dans un il faut que tu remplisse le ondrawcell du dbgrid.
Le code qui suit ne marche pas entièrement, il ne met pas les icône comme il le faut dans les cellules, je pense qu'il faut juste faire des réglages de taille
image combo est un TImageList qui devra contenir les images des icônes que tu souhaite voir figurer dans ton grid.
Les codes si-dessous va te mettre la même image partout (désolé j'ai pas encore trouver comment le faire pour qu'elles soient diffèrente, je l'ais fais pour des combo mais encore jamais pour des grid).
J'espère que cela va t'aider un peu, je peux rien faire de plus pour le moment désolé.
procedure TForm1.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
marge,index:integer;
begin
index:=0;
marge := ( Rect.Bottom - Rect.top - Imagecombo.Height ) Div 2;
imagecombo.Draw(dbgrid1.Canvas,rect.left,rect.top,index);
end;
La puce
Le code qui suit ne marche pas entièrement, il ne met pas les icône comme il le faut dans les cellules, je pense qu'il faut juste faire des réglages de taille
image combo est un TImageList qui devra contenir les images des icônes que tu souhaite voir figurer dans ton grid.
Les codes si-dessous va te mettre la même image partout (désolé j'ai pas encore trouver comment le faire pour qu'elles soient diffèrente, je l'ais fais pour des combo mais encore jamais pour des grid).
J'espère que cela va t'aider un peu, je peux rien faire de plus pour le moment désolé.
procedure TForm1.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
marge,index:integer;
begin
index:=0;
marge := ( Rect.Bottom - Rect.top - Imagecombo.Height ) Div 2;
imagecombo.Draw(dbgrid1.Canvas,rect.left,rect.top,index);
end;
La puce
