|
Вопрос # 6 627/ вопрос решён / |
|
Здравствуйте, эксперты!
Загружаю из базы access даты сдачи номеров гостиницы и в stringGrid закрашиваю соответствующие ячейки.
Где а1 и а2 - строки и столбцы ячейки, которую необходимо выделить.
(Их получаем в цикле запросом из базы) Но выделяется только последние номера ячейки. Как сделать так, что бы закрашивались все необходимые ячейки.
Приложение: Переключить в обычный режим- procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
- Rect: TRect; State: TGridDrawState);
- var
- rec:TRect;
- begin
- StringGrid1.Canvas.Brush.Color:=clRed;
- rec := StringGrid1.cellrect(a1, a2);
- stringGrid1.Canvas.FillRect(rec);
- end;
-
 |
Вопрос задал: Елагин Сергей (статус: Посетитель)
Вопрос отправлен: 23 мая 2016, 16:22
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 23 мая 2016, 21:37; участников в обсуждении: 2.
|
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: Статус вопроса изменён на решённый (изменил автор вопроса — Елагин Сергей)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
