Задача 49. Календарь

Программа Календарь (Рис. 59)выводит изображение календаря на текущий месяц. Имеется возможность задать праздничные дни. Демонстрирует вывод графики на поверхность формы, работу с функциями манипулирования датами. Форма и окно программы приведены на рис. 1.75. Как видно, заголовок окна во время работы программы не отображается (значение свойства Borderstyle равно bsNone), однако пользователь все-таки может переместить окно, "захватив" мышью сам календарь. Непосредственное перемещение календаря (окна программы) выполняет функция обработки события Mouseup, которое возникает в момент отпускания кнопки мыши.

Рис 59

Вывод: В этом задании мы создали Календарькоторый выводит изображение календаря на текущий месяц.

Листинг

fastcall TForml::TForml(TComponent* Owner) : TForm(Owner)

{

DecodeDate (Now() , aYear, aMonth, aDay) ,UpDownl->Position = aMonth; #ifdef BACKIMAGE // загрузкафоновойкартинки backimage = new Graphics::TBitmap(); try { backimage->LoadFromFile("back.bmp"); } catch (EFOpenError &e) { return; } #endif

// возвращаетстроковоепредставлениедвузначногочисла •// сведущемнулем: 01, 02 ит.д. AnsiString fastcall IntToStr_(int i) { AnsiString s; if ( IntToStr(i).Length() ==1) s = "0"+IntToStr(i); else s = IntToStr(i); return s;

// обработкасобытия Paint - вывестикалендарь void fastcall TForml::FormPaint(TObject *Sender)

Игры и другие полезные программы 243

{

Word aDayOfWeek; // деньнедели AnsiString st; // датавформате dd.mm

int x, у, dx< dy, // шаг столбцов и строк цифр хО,уО; // левый верхний угол области вывода календаря int i;

хО = 50; уО = 40; dx = 20; dy = 20;

Caption - "Календарь " + IntToStr(aYear);

#ifdef BACKGROUND Canvas->Brush->Color = clBackground; #endif

#ifdef BACKIMAGE Canvas->Draw(0, 0,backimage) ,#else Canvas->Pen->Color = Canvas->Brush->Color; Canvas->Rectangle(O,O,ClientWidth,ClientHeight); #endif // вывестикалендарьнатекущиймесяц Canvas->Brush->Style = bsClear; Canvas->Font->Size = 12; Canvas->Font->Color = clBlack; Canvas->TextOutA(xO,yO-35, stMonth[aMonth-1]);

Canvas->Font->Size = 10;

// первая колонка - название дней недели х = хО - 30;

244 Часть 1. Примерыизадали

У = уО; for ( i = 0; i < 7; i++) { if ( i < 5 ) Canvas->Font->Color • clBlack; else Canvas->Font->Color • clRed;

Canvas->TextOutA(x,y, stDayfi]); У += dy;

/* определим день недели, с которого начинается месяц */ aDayOfWeek = DayOfTheWeek( EncodeDate(aYear,aMonth,1))

x = xO; у = yO + dy * (aDayOfWeek-1);

for ( i = 1; i <= DaysInAMonth(aYear,aMonth); i++ ) { // проверим, неявляетсялиденьпраздничным st = IntToStr_(i) + "." + IntToStr_(aMonth); if ( holiday.Pos(st) 1=0 ) Canvas->Font->Color = clRed; // праздничный else // обычный if ( aDayOfWeek <б ) Canvas->Font->Color = clBlack; else // субботаиливоскресенье Canvas->Font->Color = clRed;

Canvas->TextOutA(x,у, IntToStr(i));

if ( i »« aDay) {

Игры и другие полезные программы 245

// выделить сегодняшнее число // рамка Canvas->Brush->Style = bsClear; Canvas->Pen->Color = clGray; Canvas->Rectangle(x-3,y-1,x+dx-2,y+dy-1);

if ( aDayOfWeek != 7 ) {

У += dy; aDayOfWeek ++;

} else { aDayOfWeek =1; x += dx; У = yO;

// щелчокнакнопкекомпонента UpDown void fastcall TForml::UpDownlClick(TObject *Sender, TUDBtnType Button)

switch (UpDownl->Position) { case 0 : UpDownl->Position = 12; aYear--; break; case 13: UpDownl->Position = 1; aYear++; ,- break;

aMonth = UpDownl->Position; Paint(); // обновитькалендарь

}

// отпущенакнопкамыши void fastcall TForml::ForrriMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)

246 Часть 1. Примеры и задачи

// переместить окно в ту точку экрана, // в которой находится указатель мыши Forml->Left = Forml->Left + X; Forml->Top = Forml->Top + Y;

// нажатиеклавиши void fastcall TForml::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

if ( Key == 27) // клавиша <Esc> Forml->Close(); // завершить работу программы