Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.12.07;
Скачать: CL | DM;

Вниз

Как выделить дату в MonthCalendar?   Найти похожие ветки 

 
Uno-84   (2008-10-31 08:49) [0]

Здравствуйте! Подскажите пожалуйста! Я извлекаю из БД записи имеющие дату выполнения задания к примеру 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 выделить полученные даты красным? Заранее спасибо!


 
Palladin ©   (2008-10-31 08:58) [1]

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


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

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

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 09:14) [3]

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


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

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


 
Palladin ©   (2008-10-31 09:25) [5]

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


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

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


 
Palladin ©   (2008-10-31 09:49) [7]


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

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


 
Anatoly Podgoretsky ©   (2008-10-31 09:53) [8]

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

BoldDays


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

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


 
Palladin ©   (2008-10-31 10:01) [10]


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

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


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

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


 
Anatoly Podgoretsky ©   (2008-10-31 10:25) [12]

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

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



Страницы: 1 вся ветка

Текущий архив: 2008.12.07;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.012 c
2-1225113127
Nil
2008-10-27 16:12
2008.12.07
Зашифровать содержимое TStringList


6-1196064124
botaniQ
2007-11-26 11:02
2008.12.07
Select в WebBrowser


2-1225171109
Fynjy84
2008-10-28 08:18
2008.12.07
TDBLookupComboBox открыть список сверху от эдита


15-1220124057
KilkennyCat
2008-08-30 23:20
2008.12.07
Кто-нибудь, или знакомые кого-нибудь не сдают ли квартиру около


15-1223126568
Урсулапов_
2008-10-04 17:22
2008.12.07
RSS-поток в кодировке UTF-8