| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как выделить дату в MonthCalendar? [D7, XP]

Uno-84 ©   (2008-10-31 08:49:00) 

Здравствуйте! Подскажите пожалуйста! Я извлекаю из БД записи имеющие дату выполнения задания к примеру WORKDATE

SQL.CLEAR;
SQL.ADD('select WORKDATE from WORK where USER_ID = :USER_ID');
ParamByName('USER_ID').AsInteger := Us_ID;
Open;
Date := FieldByName('WORKDATE').AsDateTime;
Close;
как в MonthCalendar выделить полученные даты красным? Заранее спасибо!

---

Anatoly Podgoretsky   (2008-10-31 10:25:00) [1]

> Palladin  (31.10.2008 10:01:10)  [10]

Можно только выделить жирным, смена цвета не предусмотрена

---

Uno-84   (2008-10-31 10:15:00) [2]

Мне в принцепе достаточно наверно и жирным будет, мне просто главное чтобы они выделялись, т.к. я дописываю что-то вроде органайзера по служебным заданиям(думал что красным заметнее) спасибо большое за помощь!

---

Palladin   (2008-10-31 10:01:00) [3]

> Uno-84   (31.10.08 09:56) [9]

Во первых, с самого начала тема "Выделение красного" не раскрыта, как мне показалось это выделение красным кружочком, но телепатор на этот раз подвел.
Во вторых, именно цветом - вряд ли получится, жирным шрифтом да, см. Анатоль[8], но красным...

---

Uno-84   (2008-10-31 09:56:00) [4]

Несколько дат только он пока мне ни одной не окрасил)))))))

---

Anatoly Podgoretsky   (2008-10-31 09:53:00) [5]

> Uno-84  (31.10.2008 9:11:02)  [2]

BoldDays

---

Palladin   (2008-10-31 09:49:00) [6]

> Из БД извлекается не одна дата а несколько, их пересчитывает
> значение count

Ааа... дошло... то бишь, ты с чего то вдруг решил, что TMonthCalendat способен "выделять красным" несколько дат... понятно...

---

Uno-84   (2008-10-31 09:44:00) [7]

Из БД извлекается не одна дата а несколько, их пересчитывает значение count, AsDateTime вазвращает в дату

---

Palladin   (2008-10-31 09:25:00) [8]

Во первых, какой смысл имеет присвоение в цикле св-ву Data значений?
Во вторых, ты посмотрел какое значение возвращает AsDateTime при ошибке?

---

Uno-84   (2008-10-31 09:21:00) [9]

ошибка такая 'Failed to set selected range'

---

Palladin   (2008-10-31 09:14:00) [10]

и ошибка имеет статус top secret в течении 50 лет после возникновения?

---

Uno-84   (2008-10-31 09:11:00) [11]

возможно я что-то упустил, но когда я далаю

SQL.CLEAR;
SQL.ADD('select count(*) from WORK where USER_ID = :USER_ID');
ParamByName('USER_ID').AsInteger := Us_ID;
Open;
j := FieldByName('count').AsInteger;
Close;
SQL.CLEAR;
SQL.ADD('select WORKDATE from WORK where USER_ID = :USER_ID');
ParamByName('USER_ID').AsInteger := Us_ID;
Open;
for k := 0 to j-1 do
begin
WorkMonthCalendar.Date = FieldByName('MESSAGE_WORK_DATE').AsDateTime
WorkMonthCalendar.CalColors.TextColor := clRed;
end;
Close;
мне выдает ошибку и даты не красит

---

Palladin   (2008-10-31 08:58:00) [12]

свойства его, я так полагаю, ты уже изучил, но нужного не увидел?

---

Наверх