Закрасить ячейку StringGrid

@sobakabobik · Регистрация: 04.01.2013

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

Нужно закрасить ячейки по диагонали. Но закрашивает не полностью. В чём дело?

Pascal

procedure TForm1.aMatrixDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  aMatrix.Canvas.Brush.Color := clred;
  if ACol = ARow then
    aMatrix.Canvas.FillRect(Rect);
end;

@sobakabobik · 29.07.2013, 13:27 **[ТС]**

Решил проблему. Надо добавить в код

Pascal

1 2	aMatrix.DoubleBuffered:= False; aMatrix.DefaultDrawing := False;

Добавлено через 3 минуты
Теперь новая проблема: из-за

Pascal

1	aMatrix.DefaultDrawing := False;

нельзя брать ячейки в фокус.

@sobakabobik · 29.07.2013, 13:29 **[ТС]**

И ещё не отображаются значение, записанные в ячейках.

@northener · 29.07.2013, 14:20

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

DefaultDrawing := False

Если выбрал такой режим, то должен сам рисовать содержимое всех ячеек во всех случаях.

@sobakabobik · 29.07.2013, 14:22 **[ТС]**

Альтернативы есть?

@northener · 29.07.2013, 14:29

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

Альтернативы есть?

Только сторонние компоненты.

@sobakabobik · 29.07.2013, 14:31 **[ТС]**

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

Только сторонние компоненты.

Не подскажете что-то по первому вопросу?

@northener · 29.07.2013, 14:32

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

Не подскажете что-то по первому вопросу?

Какому вопросу?

@sobakabobik · 29.07.2013, 14:34 **[ТС]**

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

Какому вопросу?

По тому, что в шапке. Левую сторону ячейки не закрашивает.

@northener · 29.07.2013, 14:44

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

Левую сторону ячейки не закрашивает.

У меня закрашивает всю ячейку.

@sobakabobik · 29.07.2013, 14:45 **[ТС]**

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

У меня закрашивает всю ячейку.

Какой версией Delphi пользуетесь?

@northener · 29.07.2013, 14:50

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

Какой версией Delphi пользуетесь?

Д2007

@sobakabobik · 29.07.2013, 14:52 **[ТС]**

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

Д2007

Тогда понятно. У меня ХЕ3. И с ним что-то намудрили.

@northener · 29.07.2013, 15:22

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

У меня ХЕ3. И с ним что-то намудрили.

Включили поддержку тем.
Из исходников ХЕ2:

Delphi

begin
  if DefaultDrawing then
  begin
    if StyleServices.Enabled then
    begin
      ARect.Left := ARect.Left + 4;

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,487
	29.07.2013, 14:44	10
	Сообщение от sobakabobik Левую сторону ячейки не закрашивает. У меня закрашивает всю ячейку. 0

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 14:45 [ТС]	11
	Сообщение от northener У меня закрашивает всю ячейку. Какой версией Delphi пользуетесь? 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,487
	29.07.2013, 14:50	12
	Сообщение от sobakabobik Какой версией Delphi пользуетесь? Д2007 0

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 13:29 [ТС]	3
	И ещё не отображаются значение, записанные в ячейках. Миниатюры 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,487
	29.07.2013, 14:20	4
	Сообщение от sobakabobik DefaultDrawing := False Если выбрал такой режим, то должен сам рисовать содержимое всех ячеек во всех случаях. 0

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 14:22 [ТС]	5
	Альтернативы есть? 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,487
	29.07.2013, 14:29	6
	Сообщение от sobakabobik Альтернативы есть? Только сторонние компоненты. 0

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 14:31 [ТС]	7
	Сообщение от northener Только сторонние компоненты. Не подскажете что-то по первому вопросу? 0

@northener пофигист широкого профиля 4754 / 3191 / 860 Регистрация: 15.07.2013 Сообщений: 18,487
	29.07.2013, 14:32	8
	Сообщение от sobakabobik Не подскажете что-то по первому вопросу? Какому вопросу? 0

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 14:34 [ТС]	9
	Сообщение от northener Какому вопросу? По тому, что в шапке. Левую сторону ячейки не закрашивает. 0

@sobakabobik 42 / 42 / 51 Регистрация: 04.01.2013 Сообщений: 105
	29.07.2013, 14:52 [ТС]	13
	Сообщение от northener Д2007 Тогда понятно. У меня ХЕ3. И с ним что-то намудрили. 0

	29.07.2013, 15:22