Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 627

/ вопрос решён /

Здравствуйте, эксперты!
Загружаю из базы access даты сдачи номеров гостиницы и в stringGrid закрашиваю соответствующие ячейки.



Где а1 и а2 - строки и столбцы ячейки, которую необходимо выделить.
(Их получаем в цикле запросом из базы) Но выделяется только последние номера ячейки. Как сделать так, что бы закрашивались все необходимые ячейки.

Приложение:
  1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  2. Rect: TRect; State: TGridDrawState);
  3. var
  4. rec:TRect;
  5. begin
  6. StringGrid1.Canvas.Brush.Color:=clRed;
  7. rec := StringGrid1.cellrect(a1, a2);
  8. stringGrid1.Canvas.FillRect(rec);
  9. end;
  10.  


Елагин Сергей Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: Елагин Сергей (статус: Посетитель)
Вопрос отправлен: 23 мая 2016, 16:22
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 23 мая 2016, 21:37; участников в обсуждении: 2.
DNK

DNK (статус: Студент), 23 мая 2016, 19:41 [#1]:

Цитата:

Где а1 и а2 - строки и столбцы ячейки, которую необходимо выделить.

:grammarnazi:строка и столбец:/grammarnazi:

логика должна быть другой:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (ACol = <столбец ячейки>) and (ARow = <строка ячейки>) then begin
    <Закрашиваем область ячейки>(Rect);
  end;
end;
"Digital Networked Knight"
Елагин Сергей

Елагин Сергей (статус: Посетитель), 23 мая 2016, 21:37 [#2]:

DNK: Разобрался! Спасибо за помощь!
Прости меня, я стал ничтожным прахом,
Холодный дождь смешал меня с землёй.
Нет больше боли, нет любви, нет страха.
Лишь только грусть осталась нам с тобой.....

23 мая 2016, 21:37: Статус вопроса изменён на решённый (изменил автор вопроса — Елагин Сергей)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 23 сентября 2020, 12:26
Выполнено за 0.02 сек.
Рейтинг@Mail.ru