Discussion :

[SergioMaster]

Bonjour,

ce post est en quelque sorte relié à ma question précédente grid/stringgrid vers presse-papier.
Constatant que l'option RangeSelect n'existait pas (concevable pour les OS non desktop pour des questions pratqiue de sélection, c'est quand même dommage)
et voulant tester l'helper que j'ai pondu (bientôt dispo

je me suis lancé dans les évènements OnCellDraw et OnHeaderDraw pour tenter de visualiser les sélections au sein du tableau



J'y suis presque ci-dessus les tests pour les 4 premiers boutons. Une seule chose ennuyeuse, objet de ma question.

Lorsque je clique sur un entête de colonne, celui-ci change bien de couleur conformément au code

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
procedure TFormTest.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  aRowColor: TBrush;
  aNewRectF: TRectF;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
 
  if rdbRowselected.IsChecked
    AND (Cols.Contains(Column.Index) OR Rows.Contains(Row))
    then  aRowColor.Color := TAlphaColors.Blue
    else  aRowColor.Color := TAlphaColors.white;
 
  aNewRectF := Bounds;
  aNewRectF.Inflate(3, 3);
  Canvas.FillRect(aNewRectF, 0, 0, [], 1, aRowColor);
  Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
 
  aRowColor.free;
end;
 
procedure TFormTest.StringGrid1DrawColumnHeader(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
var
  aRowColor: TBrush;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
 
  if Cols.Contains(Column.Index)
    then  aRowColor.Color := TAlphaColors.Blue
    else  aRowColor.Color := TAlphaColors.white;
 
  Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);
  Column.DefaultDrawCell(Canvas, Bounds, 0, Column.Header,[]);
end;
 
procedure TFormTest.StringGrid1HeaderClick(Column: TColumn);
begin
if Cols.IndexOf(Column.Index)>-1
  then cols.RemoveItem(Column.Index,TDirection.FromBeginning)
  else Cols.Add(Column.Index);
end;

Cependant les cellules ne se colorient pas immédiatement, il faut que je sélectionne une cellule (ou une autre colonne).
J'ai essayé sans succès les StringGrid1 BeginUpdate/EndUpdate, Repaint et même un positionnement sur une cellule par code (comme dans l'image), rien n'y fait !

Que me reste-t-il comme alternatives ?

En bonus :
- je pense mélanger les "couleurs" (lignes et colonnes) ou jouer sur l'opacité (ce qui aurait ma préférence)
- étudier une version "jouer avec le style" pour les changements de couleur

[SergioMaster]

Mon erreur a été d'essayer de forcer le rafraichissement de la Grille au sein de l'évènement OnDrawColumnHeader
Le faire dans l'évènement OnHeaderClick a réglé ce problème donc objectif principal

Jouer sur l'opacité a été relativement facile

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
procedure TFormTest.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  aRowColor: TBrush;
  aNewRectF: TRectF;
  aopacity : single;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
  aOpacity:=1;
  if rdbRowselected.IsChecked
    AND (Cols.Contains(Column.Index) OR Rows.Contains(Row))
    then  begin
          aRowColor.Color := TAlphaColors.Blue;
          if  Rows.Contains(Row) AND Cols.Contains(Column.Index)
           then aOpacity:=0.8
           else aOpacity:=0.5;
    end
    else  aRowColor.Color := TAlphaColors.white;
 
 
 
  aNewRectF := Bounds;
  aNewRectF.Inflate(3, 3);
  Canvas.FillRect(aNewRectF, 0, 0, [], aOpacity, aRowColor);
  Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
 
  aRowColor.free;
end;
 
procedure TFormTest.StringGrid1DrawColumnHeader(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
var
  aRowColor: TBrush;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
 
  if Cols.Contains(Column.Index)
    then  aRowColor.Color := TAlphaColors.AliceBlue
    else  aRowColor.Color := TAlphaColors.white;
 
  Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);
  Column.DefaultDrawCell(Canvas, Bounds, 0, Column.Header,[]);
 
  StringGrid1.InvalidateRect(StringGrid1.CellRect(Column.Index,0));
end;
 
procedure TFormTest.StringGrid1HeaderClick(Column: TColumn);
begin
if Cols.IndexOf(Column.Index)>-1
  then cols.RemoveItem(Column.Index,TDirection.FromBeginning)
  else Cols.Add(Column.Index);
StringGrid1.Repaint;
end;

J'ai donc presque tout pour vous pondre un billet, dès que ma dernière option (une sélection de cellules) sera opérationnelle et testée

[pprem]

Tu devrais tenter un coup de InvalidateRect pour voir ce que ça donne.

(posté trop tard, ça m'apprendra à pas faire de refresh de la page avant d'écrire quand c'est une question de Serge)

[SergioMaster]

Tu devrais tenter un coup de InvalidateRect

Merci, j'avais aussi essayé ça, le hic étant : quel Rect quand j'étais dans mon Header

(posté trop tard, ça m'apprendra à pas faire de refresh de la page avant d'écrire quand c'est une question de Serge)

oui, j'ai tendance à m'acharner une fois posée la question. Hier étant, mes divers essais étaient ratés je m'étais résolu ce matin à faire appel à vous.
Mais comme d'habitude, une fois mieux exprimée, la question est plus facile résoudre.

[SergioMaster]

Mes divers essais se retrouvent dans un dépot GitHub
et un billet est ouvert https://www.developpez.net/forums/bl...presse-papier/

[SergioMaster]

Avancées :

• Prise en compte du style.
• Utilisation du TagObject pour initialiser les sélections. Oui, je sais, certains voudraient ( pprem) que le tagObject reste disponible. L'autre solution serait de surclasser le StringGrid mais pour l'instant, j'aimerais éviter à moins d'avoir une solution pour l'inclure ou non dans l'unité qui je le rappelle était prévue comme un simple Helper.

Il reste encore quelques bugs :

1. Image1, encore un peu de travail nécessaire sur la transparence ! je n'ai toujours pas trouvé moyen d'initialiser l'opacité en fonction d'un TAlphaColor
2. Image2, les entêtes de colonnes car, pour l'instant, c'est un simple TAlphacolor que j'utilise et non un TBrush. Encore du travail en perspective sur les différents types de styles, à mettre dans mon carnet de plongée (qui s'étoffe) sur les styles FMX

[pprem]

Puisque tu étais sur les styles et le relookage, c'est tombé en même temps que cette question sur la personnalisation des lignes de header :
https://stackoverflow.com/questions/...color/72902298