Discussion :

[Polimax]

Bonjour, cela fait maintenant pas mal de temps que je cherche à changer la couleur d'une ligne dans un StringGrid.

J'ai trouvé pas mal de solutions pour une fiche VCL, mais j'utilise une fiche Firemonkey et il n'y a pas d'évènement OnDrawCell ou DrawCell dans les stringgrid, canvas.brush n'existe pas non plus, et je ne peux pas désactiver l'autopaint des cellules.

Je voudrais changer la couleur des lignes à la création de la grille (la grille se crée ligne par ligne et se remplie à partir d'une base de données) et lors d'une modification dans une cellule (l'évènement Strngrd.KeyDown existe déjà et fonctionne sans la coloration).

Si changer la couleur de fond est impossible, est-il possible de changer la bordure, ou la couleur du texte?

Merci de votre aide,
Cordialement,

Polimax

[Papy214]

Tu devrais trouver des réponses par ici

http://www.raize.com/Articles/FmxStr...dCellFonts.asp
http://monkeystyler.com/blog/entry/f...ls-and-columns

http://members.adug.org.au/2012/03/0...y-tstringgrid/

[Polimax]

Premièrement merci de me répondre aussi vite.
J'ai encore fais des essais toute l'aprem' mais je n'y arrive pas. J'ai essayé avec des TRect, passé du temps sur les 3 sites de papy214, mais rien n'y fait.
SergioMaster, j'utilise Firemonkey XE2 et les méthodes du XE4 ne sont pas les mêmes...
Cela fait deux jours que j'essaye sans succès.
J'avais trouvé une méthode pour colorer le texte, mais en faisant défiler la Stringgrid les colorations restaient au même endroit sur l'écran, la première ligne affichée restait colorée par exemple, alors que la première ligne de la Stringgrid ne l'était pas.
Cordialement,
Polimax

[Polimax]

J'ai réussi à colorer le texte d'une cellule en donnant un style à ma fenêtre grâce à Personnalisation des applications FireMonkey avec les styles, puis en créant un style dans le fichier .style et en faisant:

Code :

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

1
2
3
4
5
Procedure TfrmMain.changecaserouge(Sender: TObject; Col, Row: Integer);
Begin
  grdLibelles.Columns[Col].CellControlByRow(Row).StyleLookup := 'redtextcellstyle';
  grdLibelles.Columns[Col].CellControlByRow(Row).applyStyleLookup;
End;

J'ai juste changé la couleur dans le style par défaut:

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
object TLayout
    StyleName = 'redtextcellstyle'
    Position.Point = '(359,390)'
    Width = 107.000000000000000000
    Height = 22.000000000000000000
    DesignVisible = False
    object TBrushObject
      StyleName = 'foreground'
      Brush.Color = clared
    end
    object TBrushObject
      StyleName = 'selection'
      Brush.Color = x802A8ADF
    end
    object TContent
      StyleName = 'content'
      Align = alContents
      Position.Point = '(3,3)'
      Locked = True
      Width = 101.000000000000000000
      Height = 16.000000000000000000
      Padding.Rect = '(3,3,3,3)'
      HitTest = False
    end
  end

Je colore une cellule après un test sur son contenu déclenché par un évènement OnKeyDown. Mais quand je scroll, la coloration reste sur la cellule affichée à l'emplacement de la cellule qui a a été colorée. Par exemple si j'ai coloré la cellule 1 alors que j'étais tout en haut de ma stringgrid, en défilant, la cellule affichée tout en haut sera toujours colorée.

Screen juste après coloration :


Screen après un scroll :


Je voudrais qu'une cellule soit colorée ou pas, mais que ça dépende seulement de son contenu et non de sa position à l'affichage.

Avez-vous des idées de comment faire?

Cordialement

Léo Fazendeiro

[SergioMaster]

Bonjour, et bienvenue sur le forum

Si changer la couleur de fond est impossible, est-il possible de changer la bordure, ou la couleur du texte?

impossible ! pas si sur , c'est possible avec la TMSFMXGrid en tout cas , je n'ai pas gardé mes essais fait avec XE2 et la Grid "classique" , mais cette partie (changer de couleur) je suis sur d'y être arrivé