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

if(h<=4) mes = "Xayirli tun!";

else if(h<12) mes = "Xayirli tong!" ;

else if ( h <= 16) mes = "Xayirli kun!" ;

else mes = "Xayirli kech!";

Form1->Font->Name = "Times New Roman";

//Form1->Font->Color = clBlue;

Form1->Canvas->Font->Size = 20;

// matnni chiqarish soxaning o’lchamini aniqlash

wt = Canvas->TextWidth(mes);

ht = Canvas->TextHeight(mes);

x = (ClientWidth - wt) / 2;

y = ClientHeight / 2 - ht;

// fondagi rasm

Canvas->Draw(0,0,bgp);

// matnni chiqarish soxasi shaffof bo’ladi

Canvas->Brush->Style = bsClear;

Canvas->TextOutW(x,y,mes);

y = y + ht; // chegaraning quyi koordinatlari

// matnni chiqarish soxasi

// sana va xafta kuni

mes ="Bugun "+FormatDateTime("d",Now());

mes=mes+" " +sMonth[MonthOf(Now())]+", "+

FormatDateTime("dddd", Now() );

/* sanani chiqarish shrift o’lchami salomlashish shrift o’lchamidan 4 punktga kichik*/

Canvas->Font->Size -= 4;

wt = Canvas->TextWidth(mes);

ht = Canvas->TextHeight(mes);

x = (ClientWidth - wt) / 2;

y = y + 6;

Canvas->TextOutW(x,y,mes);

}

// foydalanuvchi forma o’lchamini o’zgartirdi

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->Refresh(); // oynani qayta chizish

}