Помогите со StringGrid

[maxma777]

Подскажите как сделать StringGrid в виде шахматной доски. И чтобы цифры были видны.

procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
 begin

      if Row mod 2 = 0 then
      if Column.Index= 3 then

      begin
         CoLumn.Padding.Rect:=rectF(0,0,0,0);
        Canvas.Fill.Color:=TAlphaColorRec.Black;
        Canvas.FillRect(Bounds,0,0,[],1);

      end;
    end;

Искал в инете но что не один вариант не подошел.

Вроде должно быть легко, ну что то у меня проблемы с Fire Monkey. 

Приложение делаю на Delphi 10.1 Berlin

[krapotkin]

и там написал и тут напишу -  т.к. вам все равно рисовать руками тотально все кроме сетки, то проще уж все и нарисовать, включая сетку. и не использовать StringGrid.

А в приведенном примере

после черного Canvas.FillRect нужно еще и белый текст нарисовать поверх. а на белых клетках - черный

[RoschinSpb]

Следует также не забыть установить стиль заливки TBrushKind.Solid

Возможно стоит воспользоваться событием OnDrawColumnBackground при этом Options должно включать AlternatingRowBackground.

16 часов назад, krapotkin сказал:

проще уж все и нарисовать

Подозреваю, что в данном случае — не :o)