Изменить шрифт в колонке StringGrid

@DianaZ · Регистрация: 25.05.2017

Author24 — интернет-сервис помощи студентам

Доброго времени суток, необходимо изменить цвет шрифта в 2 колонках StringGrid. Ниже приведенный код не работает, никаких ошибок, просто не работает.

Delphi

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  Rect: TRect; aState: TGridDrawState);
begin
  if (aCol=6) or (aCol=7) then
   begin
   StringGrid1.Canvas.Font.Color:=clRed;
   Canvas.TextOut(Rect.Left+2, Rect.Top+2, StringGrid1.Cells[ACol, ARow]);
   end;
end;

@edukra · 17.08.2017, 11:21

canvas.textout - это вывод на форму. Нужно stringgridid1.canvas.textout ну и перед выводом, чтобы не было артефактов от старой надписи лучше очистить ячейку с помощью fillrect

@DianaZ · 17.08.2017, 11:28 **[ТС]**

Спасибо, как всегда попалась на элементарном

@volvo · 17.08.2017, 13:19

Сообщение от DianaZ

необходимо изменить цвет шрифта в 2 колонках StringGrid

В Лазарусе для этого вообще не надо лезть в отрисовку через OnDrawCell, достаточно в OnPrepareCanvas задать нужным ячейкам нужный цвет шрифта:

Pascal

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var grid : TStringGrid;
begin
  grid := sender as TStringGrid;
  if (arow >= grid.FixedRows) and ((aCol = 6) or (aCol = 7)) then // первое условие - чтобы не менялся цвет в фиксированных ячейках
    grid.Canvas.Font.Color := clRed;
end;

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты слияния (merge) в Git bytestream 22.01.2025 Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках кода. Эти конфликты представляют. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

Изменить шрифт в колонке StringGrid

Решение

Решение

@edukra 602 / 550 / 210 Регистрация: 24.01.2012 Сообщений: 1,352
	17.08.2017, 11:21	2
	Сообщение было отмечено DianaZ как решение Решение canvas.textout - это вывод на форму. Нужно stringgridid1.canvas.textout ну и перед выводом, чтобы не было артефактов от старой надписи лучше очистить ячейку с помощью fillrect 1

@DianaZ 0 / 0 / 0 Регистрация: 25.05.2017 Сообщений: 26
	17.08.2017, 11:28 [ТС]	3
	Спасибо, как всегда попалась на элементарном 0

	17.08.2017, 13:19

Опции темы