4-Ma’ruza Borland C++ Builder Standard komponentlar Palitrasi Reja: Standard komponentlar

2- Misоl 
Ilova formasini loyihalash 
Bo‘sh formaga TPanel – komponentasini o‘rnatamiz va Align xossasiga 
alTop qiymat beramiz, Caption xossasiga bo‘sh satr.
Formaga TMemo komponentasini o‘rnatamiz va Align xossasiga 
alClient, ScrollBar xossasiga ssVertical qiymat beramiz, Lines xossasiga 
bosh satrlar massivi. 
Fayllar bilan ishlash uchun formaga TOpenDialog va TSaveDialog 
komponentalarini o‘rnatamiz. OpenDialog1 komponentasi Filter xossasini 
Filter Editor dialog paneli orqali o‘zgartiramiz. 
Formaga StatusBar komponentasini o‘rnatamiz va Panels xossasini 
muharrir yo‘rdamida tahrirlaymiz. 
Panel1 komponentasiga 9 ta TSpeedButton komponentasini o‘rnatamiz. 
Bu komponentalar Glyph xossasiga qiymat beramiz. Buning uchun 
CBuilder\Images\Buttons 
katalogidan 
Doorshut.bmp,Filenew.bmp, 
Fileopen.bmp, Fileclose.bmp, Filesave.bmp, Cut.bmp, Copy.bmp, Paste.bmp, 
Help.bmp fayllarni tanlaymiz.

---

Tugmalarni guruhlab o‘rnatamiz va ShowHint xossasiga True qiymat, 
Hint xossasiga - "Выход", "Создать", "Открыть", "Сохранить", "Сохранить 
как...", "Вырезать", "Копировать", "Вставить", "О программе" qiymatlarini 
beramiz.
 
Xodisalarni qayta ishlovchilarni yaratish
Endi tugmalar OnClick xodisasi uchun kod yo‘zamiz.
SpeedButton3 tugmasi faylni tahrirlash va fayl nomini panelda 
akslantirish uchun javob beradi:
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{ 
if 
(OpenDialog1->Execute()) 
Memo1->Lines-
>LoadFromFile(OpenDialog1->FileName); 
StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName; 
}

---

SpeedButton5 tugmasi faylni tanlangan nom bilan saqlash va fayl nomini 
panelda akslantirish uchun javob beradi:
void __fastcall TForm1::SpeedButton5Click(TObject *Sender) 
{ 
if 
(SaveDialog1->Execute()) 
Memo1->Lines-
>SaveToFile(SaveDialog1->FileName); 
StatusBar1->Panels->Items[0]->Text=SaveDialog1->FileName; 
}
SpeedButton2 tugmasi tahrirlash oynasini tozalash uchun javob beradi.
Agar buferda matn mavjud bo‘lsa, uni saqlash kerakligini so‘rash maqsadga 
muvofiq. Buning uchun Windows API MessageBox funktsiyasidan 
foydalanish qulaydir.
Matnni saqlash uchun SpeedButton5Click funktsiyasidan foydalanish 
mumkin:
void __fastcall TForm1::SpeedButton2Click(TObject *Sender) 
{ 
if (Memo1->Lines->Count>0) 
{ 
if (MessageBox(0,"Сохранить содержимое окна редактирования? ", 
"Подтвердите сохранение",MB_YESNO)==IDYES) 
{ 
SpeedButton5Click(Sender) 
} 
}; 
Memo1->Clear(); 
StatusBar1->Panels->Items[0]->Text="Без имени"; 
}
SpeedButton1 tugmasi ilova oynasini berkitadi. Matnni saqlash 
kerakligini so‘rash uchun SpeedButton2Click funktsiyasidan foydalanish 
mumkin:
void __fastcall TForm1::SpeedButton1Click(TObject *Sender) 
{ SpeedButton2Click(Sender); 
Close(); 
} 
SpeedButton4 tugmasi faylni saqlash uchun javob beradi:
void __fastcall TForm1::SpeedButton4Click(TObject *Sender) 
{ 
if (StatusBar1->Panels->Items[0]->Text=="Без имени") 
SpeedButton5Click(Sender); 

---

else 
Memo1->Lines->SaveToFile(StatusBar1->Panels->Items[0]-
>Text) 
} 
SpeedButton6 va SpeedButton7 tugmalari ajratilgan matn qismini 
buferga yoki joyida saqlab ko‘chirish uchun javob beradi:
void __fastcall TForm1::SpeedButton6Click(TObject *Sender) 
{ 
Memo1->CutToClipboard(); 
} 
//-------------------------------------------------------- 
void __fastcall TForm1::SpeedButton7Click(TObject *Sender) 
{ 
Memo1->CopyToClipboard(); 
}
SpeedButton8 tugmasi faylni saqlash uchun javob beradi:
void __fastcall TForm1::SpeedButton8Click(TObject *Sender) 
{ 
Memo1->PasteFromClipboard(); 
}
SpeedButton9 tugmasi ekranga "О программе" dialog panelini chiqarish 
uchun javob beradi. Buning uchun C++ Builder Ob’ektlar Хаzinаsidagi About 
paneli shablonidan foydalanamiz. File/New menyu punktini tanlab New Items 
dialog panelidagi Forms sahifasidan Copy optsiyali AboutBox shablonini 
tanlaymiz va tahrirlaymiz:
Endi ilova 2 formadan iborat. Asosiy forma bu Form1. Loyiha optsiyalari 
panelini chaqirib (Options/Project menu punkti) AboutBox ni Available Forms 
ro‘yxatga ko‘chiramiz

---

SpeedButton9 tugmasi uchun quyidagi kod kiritamiz:
void __fastcall TForm1::SpeedButton9Click(TObject *Sender) 
{ 
Application->CreateForm(__classid(TAboutBox), &AboutBox);
AboutBox->ShowModal(); 
AboutBox->Free(); 
}