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

#endif

}

void __fastcall TForm1::FormPaint(TObject *Sender)

{

// fon rasmini tiklash

Canvas->Draw(0,0,back); // fon

}

Banner

Yuguruvchi satr dasturi (1.35-rasm) yuguruvchi satr stiledagi bannerni chiqarish uchun bitli obrazdan foydalanishni namoish etgan. Bitli obraz (yuguruvchi satr) dastur resursidan yuklanadi. Banner formaning o’ng chegarasidan “выплывает”. Banner oyna markaziga yetib kelgan vaqtda, xarakat bir necha sekundga to’xtaydi, keyin esa – yana tiklanadi.



1.35-rasm. Yuguruvchi satr stiledagi bannerni chiqarish

Graphics::TBitmap *banner; // banner - resursdan

// yuklanuvchi rasm

int x,y; // bannerni chiqarish soxasining chap yuqori

// burchagining koordinatlari

int pause; // время (количество тактов таймера)

// приостановки движения баннера

int xp; // banner xarakatini to’xtatish koordinatasi

TColor bc; // bannerning fon rangi

// forma konstruktori

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

banner = new Graphics::TBitmap();

// resursdan bannerni yuklash

banner->LoadFromResourceID((int)HInstance,101);

bc=banner->Canvas->Pixels[0][0];// banner fongi rangi

x=Form1->ClientWidth;//баннер "выплывает" из-за

// oynaning o’ng chegarasi

y = 0;

// вычислить координату X точки приостановки движения

// баннера

xp = (Form2->ClientWidth - banner->Width)/2;

if (xp<0) xp = 0;

}

// taymerdan signal

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{