TadvStringGrid fixed col/row brush

[NIZARD_OUARDIANE]

Hello,

I created a new project with only a default AdvStringgrid without changing any property.

I implemented the event GetCellColor with this code :

ABrush.Style := bsSolid;
If ((Arow mod 2)<>0) Then ABrush.Color := clwhite else ABrush.Color := $00F4F3EE;

The resulat I have :

Why fixed col/row print a gradient instead of solid color ?

Thanks in advance

[brunofierens]

Please turn gradients off for fixed cells:

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
  ABrush.Style := bsSolid;
  if ((Arow mod 2)<>0) then
    ABrush.Color := clwhite
  else
    ABrush.Color := $00F4F3EE;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advstringgrid1.ControlLook.FixedGradientTo := clNone;
  advstringgrid1.ControlLook.FixedGradientMirrorFrom := clNone;
  advstringgrid1.ControlLook.FixedGradientMirrorTo := clNone;
  advstringgrid1.TMSGradientTo := clNone;
end;

[NIZARD_OUARDIANE]

Perfect thank you !

TMSGradientTo seems to not be available on the component editor, so it can only be set to clNone programmatically right ?

[brunofierens]

Yes, it is a public property.
The alternative for design-time would be to select a grid.Look setting with a solid fixed cell color.

[NIZARD_OUARDIANE]

Ok, a big thank you for the reactivity