Amaliy ish №21. Delphi muhitida matn muharriri yaratish


Download 28.86 Kb.
bet2/3
Sana08.06.2023
Hajmi28.86 Kb.
#1463036
1   2   3
Bog'liq
21-Amaliy ish

Ish tartibi:

  1. RichEdit ( Qo'shimcha yorliq ), MainMenu, RadioButton ( Standart yorlig'i ) va OpenDialog , ColorDialog ( Muloqot oynasi) komponentlarini Form1ga joylashtiring.



  1. Notepad matn muharririga qo'ng'iroq qiling va unda tarkibga ega My_text.txt matn faylini yarating:

Ob'ekt

Mulk

Ma'nosi

Form1

Caption

Tahrirlash

RichEdit

Caption




RichEdit

Alignment

TaLeftJustify

Ctrl+O tugmalarini oching

Caption

Ochiq haqida

-

Caption




Chiqish

Caption

Chiqish

OpenDialog

Filter

Matn fayllari (*.txt ; * .rtf ) |*. txt ; *. rtf

RadioButton

Caption

Oʻzgartirish

GroupBox1

Caption

-

2. Faylni RichEdit jildiga saqlang .
3. Yangi loyihani ishga tushiring va uni darhol RichEdit jildiga saqlang.
4. RichEdit komponentasini formaga joylashtiring va ScrollBars xossasini o'rnating
(aylantirish paneli) qiymati ssBorth, Align xususiyati (joylashtirish) uchun esa
allLeft (shaklning chap tomoni).
5. OpenFile pastki menyusida Click hodisasi (sichqonchani bosish) bilan ishlash protsedurasi kodini yozing :
protsedurasi TForm1.OpenFileClick(Sender: TObject);
boshlanishi
agar (OpenDialog1.Execute) keyin
RichEdit1.lines.LoadFromFile(OpenDialog1.FileName);
oxiri;

  1. Forma yopilganda faylni saqlashga imkon beruvchi kodni yozing:

protsedura TForm1.CloseEditClick(Sender: TObject);


boshlanishi
Form1.Close;
oxiri ;


  1. Dasturni ishga tushiring. Ko'rsatilgan matnga biror narsa qo'shing. Dasturni yoping.

  2. Uni qayta ishga tushiring va tuzatilgan matn yuklanganligiga ishonch hosil qiling.

  3. Uni qayta ishga tushiring va tuzatilgan matn saqlanganligiga ishonch hosil qiling.

  4. Oyna rangini tanlash va tegishli kodni yozish uchun radio tugmalar guruhini (RadioButton) qo'shing.

  5. Shrift hajmini tanlash uchun radio tugmalar guruhini qo'shing.

  6. Shrift turini tanlash uchun radio tugmalar guruhini qo'shing.



Download 28.86 Kb.

Do'stlaringiz bilan baham:
1   2   3




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling