Страница 1 из 1

Delphi календарь!

Добавлено: 26 апр 2009, 14:31
Даша:)
Подскажите пожалуйста, как сделать так чтобы в календаре первое число каждого месяца было выделено цветом???? Заранее спасибо!!!! :)

Re: Delphi календарь!

Добавлено: 26 апр 2009, 18:13
Naeel Maqsudov
Что за календарь? Имеется ли в виду визуальных компонент Календарь? Если да, то какой именно?

Re: Delphi календарь!

Добавлено: 27 апр 2009, 10:23
Даша:)
Вот такое задание.Создайте приложение, при выполнении которого на экране появляется окно формы с двенадцатью компонентами Calendar, отображающими месячные календари на текущий год с первым днем недели – понедельником и с выделенным днем: для текущего месяца – текущим днем, для остальных месяцев – первым днем месяца-вот это не знаю! Пожалуйста подскажите!!!!

Re: Delphi календарь!

Добавлено: 27 апр 2009, 12:16
BHy4ok
Стандартный компонент не может данных вещей, он работает лишь с текущей датой. Если надо не закрасить а просто каким-то образом пометить, то могу предложить выделить первое число каждого месяца жирным шрифтом(вешать на ongetmonthinfo):
[syntax='Delphi']
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
begin
MonthCalendar1.BoldDays([1],MonthBoldInfo);
end;
[/syntax]

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

Во всех остальных случаях, либо писать функции самому к стандартному компоненту, либо использовать сторонний компонент, что опять-же маловероятно т.к. проект в другом месте уже не запустится.

Re: Delphi календарь!

Добавлено: 27 апр 2009, 14:25
Naeel Maqsudov
&quot писал(а):Стандартный компонент не может данных вещей
Может, может.
Используйте свойства MinDate и MaxDate. Присвойте обоим первое число соответствующего месяца. Все дни в указанном интервале выделяются точно также как и текущий день.