Поиск сообщества
Показаны результаты для тегов 'Цвет'.
Найдено: 1 результат
-
Подскажите как сделать 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
