Discussion :

[LaurentC33]

Bonsoir à tous,

Je me force à utiliser FMX dans mon projet actuel afin d'approfondir ses possibilités.
Mais sur certains points, je coince ...

Je voudrais changer la couleur du texte et du fond de certaines lignes de mon tableau :

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
 
procedure TMainForm.messages_stringGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  S: string;
  RectForText: TRect;
begin
 
  if messages_sg_rowError.Contains(Row) then
  begin
    with messages_stringGrid.Canvas do
    begin
      Fill.Color := clBlack;
      Stroke.Color := clred;
 
    end;
  end;
end;

messages_sg_rowError est une liste d'entier qui sert à identifier les lignes que je dois colorer.
Vu que sous FMX on n'utilise plus la "Brush" mais plûtot les Fill et Stroke, comment changer la couleur de mes lignes ?

Merci pour votre aide.

[anapurna]

salut

question a 2 francs c'est quoi le canvas que tu passe en paramètre ?

sinon un truc du genre non ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  IsContainsRow :=  messages_sg_rowError.Contains(Row)
  if IsContainsRow then 
  begin
     Canvas.Fill.Color := TAlphaColorRec.Black;
     Canvas.Stroke.Color := TAlphaColorRec.red;
  end
  else 
  begin 
     Canvas.Fill.Color := TAlphaColorRec.red;
     Canvas.Stroke.Color := TAlphaColorRec.Black;
  end;

[SergioMaster]

Bonjour,

lire cette pseudo-discussion (pseudo car je me répondait beaucoup à moi-même) .

Depuis je suis passé à la TMSFMXGrid plus 'conviviale' et n'ai plus les sources de ce que j'avais "trituré"
Attention, avec FMX il faut changer beaucoup de ses habitudes concernant les stringgrids (entre autre les accès aux canvas)

[LaurentC33]

Bonjour messieurs,

Merci pour votre aide!
Voici la solution (enfin une...):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TMainForm.messages_stringGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates);
begin
  with (Sender as TStringGrid).Canvas do
  begin
    if messages_sg_rowError.Contains(Row) then
    begin
      Fill.Color := TAlphaColorRec.Red;
      FillRect(Bounds, 10, 10, [], 0.25);
    end;
  end;
end;

question a 2 francs c'est quoi le canvas que tu passe en paramètre ?

C'est le canvas de la cellule et j'arrive à rien avec.

Depuis je suis passé à la TMSFMXGrid plus 'conviviale' et n'ai plus les sources de ce que j'avais "trituré"
Attention, avec FMX il faut changer beaucoup de ses habitudes concernant les stringgrids (entre autre les accès aux canvas)

Merci Sergio je vais regarder ça !

[SergioMaster]

C'est le canvas de la cellule et j'arrive à rien avec.

Si mes souvenirs sont bons j'avais essayé avec le canvas mais c'était un mauvais plan
en passant sur mon pc de dev. j'ai trouvé ces bouts de codes utilisant TMSFMXGrid

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
 
// Grid est un TMSFMXGrid
procedure TForm19.GridGetCellLayout(Sender: TObject; ACol, ARow: Integer;
  ALayout: TTMSFMXGridCellLayout; ACellState: TCellState);
begin
if ACellState = csFocused then exit;
 
if (Sender as TTMSFMXGrid).RowSelect[Arow]
  then begin
       ALayout.Fill.Color := (Sender as TTMSFMXGrid).StylesData['SelectedCellLayout.Layout.Fill.Color'].AsUInt64;
  end
  else begin
      ALayout.Fill.Color := (Sender as TTMSFMXGrid).StylesData['NormalCellLayout.Layout.Fill.Color'].AsUInt64;
  end;
end;

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
 
// sur un stringgrid
procedure TForm19.StringGrid1ApplyStyleLookup(Sender: TObject);
var
  Cell : TLayout;
  Couleur: TBrushObject;
  I: Integer;
begin
  Cell:=TLayout((Sender as TStringGrid).FindStyleResource('textcellstyle'));
  Couleur := TBrushObject(Cell.FindStyleResource('foreground'));
  if Couleur<>Nil then
  begin
    Couleur.Brush.Color:=clared;
  end;
end;