Перейти к содержанию
Fire Monkey от А до Я
  • 0

Помогите со 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

2016-11-24_203724.jpg

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

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

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

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

Ссылка на комментарий
  • 0


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

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

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

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

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

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...