Discussion :

[yannba]

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 :

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
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 :

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

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

Alors quel est l'interet de ce code ?

Code :

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

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

Merci

[SergioMaster]

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

[yannba]

Bonjour SergioMaster,

Tout dépend de votre version de Delphi ?

XE3

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 :

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
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.

[SergioMaster]

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

[yannba]

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

Merci