R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

1.95-rasm. Kalendar dasturning formasi va oynasi

#include

#define BACKGROUND

#undef BACKIMAGE

AnsiString stMonth[12] = {"Yanvar","Fevral","Mart",

"Aprel","May","Iyun","Iyul","Avgust","Sentabr",

"Oktabr","Noyabr","Dekabr"};

AnsiString stDay[7]={"DU","SE","CHO", "PAY", "JU",

"SHA","YAK"};

// dd.rm formatdagi bayram kunlari

AnsiString holiday =

"01.01;14.01;08.03;21.03;09.05;01.06;1.09;1.10;8.12;";

Word aYear, aMonth, aDay; // yil, oy, kun

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

DecodeDate (Now(),aYear,aMonth, aDay);

UpDown1->Position = aMonth;

#ifdef BACKIMAGE

// fon rasmni yuklash

backimage = new Graphics::TBitmap();

try {

backimage->LoadFromFile("back.bmp");

}

catch (EFOpenError &e) {

return;

}

#endif

}

// nol bilan boshlanuvchi ikkixonali sonni

// tasvirlaydigan satrni qaytaradi: 01, 02 va x.k.

AnsiString __fastcall IntToStr_(int i)

{

AnsiString s;

if (IntToStr(i).Length()==1) s = "0"+IntToStr(i);

else s = IntToStr(i);

return s;

}

// Paint xodisani qayta ishlash – kalendarni chiqarish

void __fastcall TForm1::FormPaint(TObject *Sender)

{

Word aDayOfWeek; // hafta kuni

AnsiString st; // dd.mm shakldagi sana

int x, y,

dx, dy, // ustun va satr raqamlari qadami

x0,y0; // kalendarni chiqarishning chap yuqori

// burchak soxasi

int i;

x0 = 50; y0 = 40;

dx = 20; dy = 20;

Caption = "Kalendar " + IntToStr(aYear);

#ifdef BACKGROUND

Canvas->Brush->Color = clActiveBorder;