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

if ((r==mrYes)&&(!SaveText()))

return;

}

// faylni ochish

OpenDialog1->FileName = "*.txt";

OpenDialog1->Options << ofPathMustExist

<< ofFileMustExist;

if (OpenDialog1->Execute())

{

RichEdit1->Lines->LoadFromFile(

OpenDialog1->FileName);

RichEdit1->Modified = false;

Form1->Caption = "MEdit - " + OpenDialog1->FileName;

aFileName = OpenDialog1->FileName;

}

}

// Fayl/Saqlash bo’yrug’i

void __fastcall TForm1::Save1Click(TObject *Sender)

{

// matnni faylga yozish

if (SaveText())

{

RichEdit1->Modified = false;

Form1->Caption = "MEdit - " + aFileName;

}

}

// matnni faylga saqlash

bool __fastcall TForm1::SaveText()

{

// SaveText funksiya qiymati false ga teng bo’ladi,

//agarda Saqlash oynasida foydalanuvchi Bekor qilish

//tugmasini bosganda

if (aFileName=="")

{

// foydalanuvchidan fayl nomi olindi

//SaveDialogl->FileName = "Text.txt";

SaveDialog1->Options << ofPathMustExist

<< ofOverwritePrompt;

if (SaveDialog1->Execute())

aFileName = SaveDialog1->FileName;

else

return false; // Bekor qilish tugmasini bosib

// foydalanuvchi oynani yopdi

}

// matnni faylga yozish

RichEdit1->Lines->SaveToFile(aFileName);

return true;

}

// Fayl/Chiqish bo’yrug’i

void __fastcall TForm1::Exit1Click(TObject *Sender)

{

Form1->Close();

/* возникает событие FormCloseQuery, функция которого

проверяет, внесены ли изменения в текст */

}

// foydalanuvchi "Oynani yopish" tugmasini bosdi

// Parametrlar/Asboblar paneli bo’yrug’i

void __fastcall TForm1::Asboblarpaneli1Click(TObject *Sender)

{

// asboblar panelini yaashirish/ko’rsatish

ToolBar1->Visible = !ToolBar1->Visible;

// Parametrlar/Asboblar paneli menyusiga "galochka" ni

// qo’yish/olish

Asboblarpaneli1->Checked=!Asboblarpaneli1->Checked;

}

// Ma’lumotnoma/Dastur xaqida bo’yrug’i

void __fastcall TForm1::Dasturxaqida1Click(TObject *Sender)

{

TAboutForm *AboutForm;

// AboutForm formasining Position xususiyatiga

// poOwnerForm qiymatini o’rnatish kerak

AboutForm = new TAboutForm (this);

AboutForm->ShowModal();

delete AboutForm;

}

// foydalanuvchi "Oynani yopish" tugmasini bosdi