Couleur gradient dans un StringGrid

Bonjour,

Apres plusieurs recherches, pour afficher une couleur gradient, j'ai reussi à adapter ce code trouvé sur les forums. Sauf que je ne le comprends pas.
StringGrid avec pour seule Option : RowSelect

Dans Form1.GridDrawCell

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TFormMenu.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin ........ {Tracer un rectangle dans la cellule} Rect:=CellRect(ACol,ARow); // Enlever les marges pour remplir entierement la cellule FillRect(Rect); // Remplir la zone rectangulaire avec le pinceau en cours if (gdSelected in State) then begin DrawingStyle:=gdsGradient; Brush.Style:=bsClear; // Rect est transparent   GradientFillCanvas(Canvas, GetShadowColor(clHighlight, 45), GetShadowColor(clHighlight, 10), Rect, gdVertical);   StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor1, StartColor); StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor2, EndColor);

---

Si je ne mets pas cette ligne, rien ne s'affiche :

Code:

---

GradientFillCanvas(Canvas, GetShadowColor(clHighlight, 45), GetShadowColor(clHighlight, 10), Rect, gdVertical);

---

Alors quel est l'interet de ce code ?

Code:

---

1 2	StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor1, StartColor); StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor2, EndColor);

---

Merci

Bonjour,

Tout dépend de votre version de Delphi ?
StyleServices fait référence à un gestionnaire de style reste à savoir s'il s'agit d'un interne Delphi (à partir de XE3 je crois) ou d'un composant tiers

Bonjour SergioMaster,

Citation:

---

Tout dépend de votre version de Delphi ?

---

XE3

Citation:

---

StyleServices fait référence à un gestionnaire de style reste à savoir s'il s'agit d'un interne Delphi (à partir de XE3 je crois) ou d'un composant tiers

---

Je n'utilise jamais de composant tiers seulement ce que Delphi me donne.

Je viens de relire mon post precedent et je n'ai pas été assez clair. J'ai bien compris ces 2 lignes avec l'aide de Delphi.
Sauf que si j'ai bien compris, on a pas besoin d'utiliser GradientFillCanvas et qu'il suffit de donner une couleur aux 2 variabales : StartColor et EndColor
Ce qui donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TFormMenu.GridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin ........ {Tracer un rectangle dans la cellule} Rect:=CellRect(ACol,ARow); // Enlever les marges pour remplir entierement la cellule FillRect(Rect); // Remplir la zone rectangulaire avec le pinceau en cours if (gdSelected in State) then begin DrawingStyle:=gdsGradient; Brush.Style:=bsClear; // Rect est transparent   StartColor:=GetShadowColor(clHighlight, 45); EndColor:=GetShadowColor(clHighlight, 10); StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor1, StartColor); StyleServices.GetElementColor(StyleServices.GetElementDetails(tgCellSelected), ecGradientColor2, EndColor);   {DrawText affiche le texte} DrawText(Handle,PChar(Cells[ACol,ARow]),-1,Rect,DT_VCENTER or DT_CENTER or DT_SINGLELINE); // Alignement vertical ou horizontal

---

Et là, ce ne marche plus.

re,

StyleServices.GetElementColor ne permet que d'obtenir une valeur du style pas de la changer
pour changer une valeur dès qu'un style est appliqué voir cet article

Ca a l'air plus compliqué que je ne pensais.
Je vais essayer de comprendre.

Merci