Amaliy ish №21. Delphi muhitida matn muharriri yaratish
Download 28.86 Kb.
|
21-Amaliy ish
- Bu sahifa navigatsiya:
- Obekt Mulk Manosi
Ish tartibi:
RichEdit ( Qo'shimcha yorliq ), MainMenu, RadioButton ( Standart yorlig'i ) va OpenDialog , ColorDialog ( Muloqot oynasi) komponentlarini Form1ga joylashtiring. Notepad matn muharririga qo'ng'iroq qiling va unda tarkibga ega My_text.txt matn faylini yarating:
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; Forma yopilganda faylni saqlashga imkon beruvchi kodni yozing: protsedura TForm1.CloseEditClick(Sender: TObject); boshlanishi Form1.Close; oxiri ; Dasturni ishga tushiring. Ko'rsatilgan matnga biror narsa qo'shing. Dasturni yoping. Uni qayta ishga tushiring va tuzatilgan matn yuklanganligiga ishonch hosil qiling. Uni qayta ishga tushiring va tuzatilgan matn saqlanganligiga ishonch hosil qiling. Oyna rangini tanlash va tegishli kodni yozish uchun radio tugmalar guruhini (RadioButton) qo'shing. Shrift hajmini tanlash uchun radio tugmalar guruhini qo'shing. Shrift turini tanlash uchun radio tugmalar guruhini qo'shing. Download 28.86 Kb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling