Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];

Вниз

Как выделить дату в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.005 c
15-1222839778
ВадимЛ
2008-10-01 09:42
2008.12.07
Починить Делфи Д5 (пути ?)


2-1225102276
Sw
2008-10-27 13:11
2008.12.07
формы в dll


2-1225142982
MsGuns
2008-10-28 00:29
2008.12.07
"Цветные" проблемы


9-1175779923
ElectriC
2007-04-05 17:32
2008.12.07
Запрет нажатия системных клавиш


15-1223172127
axd
2008-10-05 06:02
2008.12.07
MySQL работает не так как надо





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский