Alqoritm, xassələri və təsvir üsulları

azıb 
E
nter
klavişini basın. Beləliklə, ilk File menyusu yaradılacaqdır və Delphi ilə menyuya 
avtomatik olaraq Nl adı verəcəkdir. Bu menyudan sağ tərəfdə, boş yerdə, mausun 
düyməsini basıb analoji qayda ilə Edit menyusunu və eyni qayda ilə Font and color 
menyusunu yaradın. Yenidən File 
menyusu 
üzərində mausun düyməsini basın. Bu 
menyuda yeni bir seçiləcəkdir. Obyektlər inspektorunda Caption xassəsinə Open mətni 
daxil edin. Gələcəkdə hansı prosedurun hansı menyu bəndini icra etdiyini başa düşmək 
üçün menyu bəndlərinə adlar verək (Name xassəsi). Bu menyuların bir neçəsini klavişlər 
kombinasiyası ilə icra etmək üçün Exit bəndinin ShortCut xassəsinə Ctrl+E, Undo 
bəndinə Ctrl+U, SelectAll bəndinə Ctrl+A qiymətləri seçin (öz arzunuzla istənilən menyu 
bəndi üçün klavişlər kombinasiyası təyin edə bilərsiniz). File menyusunda Exit bəndini 
digər bəndlərdən ayıraq. Bunun üçün Save as. . . menyu bəndini yaratdıqdan sonra, 
növbəti təklif olunan bəndin Caption xassəsinə ad deyil, Enter klavişini basın. 
Kontekst menyunu yaratmaq üçün, PopupMenu komponentini seçərək, analoji 
əməliyyatları icra edin. Kontekst menyunun bəndlərini isə belə adlandırın (Name 
xassəsi): mkExit, mkReset, mkColor, mkFont. 
Menyu konstruktorunu bağlayın. Mətn redaktorunda menyu sətri yaradılmış 
olacaqdır. 
İndi Memol komponentini seçin. Redaktorun müştəri oblastının bütün pəncərəni 
əhatə etməsi üçün onun Align xassəsinə alClient qiyməti verin. Redaktor bütün pəncərə 
boyu açılacaqdır. Redaktorda fırlatma zolaqlarının olması üçün onun ScrollBars 
xassəsinə ssBoth (hər iki zolaq var) qiyməti verin. Redaktorun sərlövhəsini (Memol) 
pozun. Bunun üçün Lines xassəsi qarşısındakı üç nöqtə təsvirli düyməni iki dəfə basaraq 
açılan pəncərədən Hemol sözünü pozun. 
OpenDialogl komponentini seçib Filter xassəsi qarşısında mausun düyməsini basaraq 
Filter Editor 
redaktorunu çağırın. Bu redaktorun birinci sütununun birinci sətrinə 
Mətn 
faylları *.txt, *.doc, 
ikinci sütununun həmin sətrində 
*.txt, *.doc 
yazın. İkinci sətrin 
birinci sütununda 
Bütün fayllar *.*, 
ikinci sütununda isə *.* yazıb 
Ok 
düyməsini basın. 
Obyektlər inspektorunda CefaultExt xassəsinə 
'txt' 
qiyməti daxil edin. Bütün bu 
əməliyyatları SaveDialogl komponenti üçün təkrar edin. 
Layihə modulunda bütün prosedurlar menyu bəndləri üzərində, OnActivate (forma 
aktivləşdikdə) proseduru isə forma üzərində mausun düyməsini bir dəfə basmaqla 
downloaded from KitabYurdu.org

---

222 
yaradılacaqdır. Əslində modulun bütün prosedurlan (kontekst menyudan başqa) əvvəlki 
redaktorda düymələr üçün yaradılmış prosedurlardır. Kontekst menyular üçün 
prosedurlarda isə yeni kodlar yazılmayacaq, sadəcə olaraq əsas menyu bəndlərini 
imitasiya kodu yazılacaqdır. 
Beləliklə, menyularla idarə olunan məm redaktorunun modulunun tam mətni belə 
olacaqdır: 
unit Unitl; 
interface 
uses 
Windows, Messages, SysUtils, Classes, 
Graphics, Controis, Forms, Dialogs,
Menus, StdCtrls; 
type
Tforml = class(TForm)
Memo1: TMemo;
MainMenul: TMainMenu;
Nl: TMenuItem; 
Yl: TMenuItem; 
N2: TMenuItem;
mnuOpen: TMenuItem; 
mnuSave: TMenuItem;
mnuSaveAs: Tmenu İtem;
N6: TMenuItem;
mnuExit: TMenuItem; 
mnuUndo: TMenuItem; 
mnuSelectAll: TMenuItem;
mnuReset: TMenuItem;
mnuFont: TMenuItem; 
mnuColor: TMenuItem; 
PopupMenul: TPopupMenu; 
mkExit: TMenuItem; 
mkReset: TMenuItem; 
mkColor: TMenuItem; 
downloaded from KitabYurdu.org

---

223 
mkFont: TMenuItem;
OpenDialogl: TOpenDialog; 
SaveDialogl: TSaveDialog; 
FontDialogl: TFontDialog; 
ColorDialogl: TColorDialog; 
procedure FormActivate(Sender: TObject); 
procedure mnuOpenClick(Sender: TObject); 
procedure mnuSaveClick(Sender: TObject); 
procedure mnuSaveAsClick(Sender: TObject); 
procedure mnuExitClick(Sender: TObject); 
procedure mnuUndoClick(Sender: TObject); 
procedure mnuSelectAHClick (Sender:TObject);
procedure mnuResetClick (Sender: TObject); 
procedure mnuFontClick(Sender:TObject); 
procedure mnuColorClick(Sender: TObject); 
procedure FormClose(Sender:TObject; 
var Action:TCloseAction); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var
Forml: TForml; 
FormColorYad,
 
MemoColorYad:
 Longİnt;
FAYL: String; 
implementation
{
SR *.D
E
M} 
procedure TForml.FormActivate(Sender: TObject);
 
begin
OpenDialogl.Title:= ' Mətn faylları ';
 
O
penDialogl.Filter:=
“
Mətn faylları[*.TXT,*.DOC] 

|*.TXT;*.DOC|Bütün fayllarf*.*]I*.**;
 
OpenDialogl.DefaultExt:= 'TXT'; 
 
SaveDialog
1
.Title:= ' Mətn faylları '; 
 
SaveDialog
1
.Filter:= ' Mətn faylları*.TXT;*.DOC
]
downloaded from KitabYurdu.org

---

224 

*.TXT;*.DOC|Bütün fayllar*.* I *.*'; 
SaveDialog1.DefaultExt:='TXT';
FormColorYad:= Form1.Color; 
 MemoColorYad:= Memo1.Color;
Memo1.Lines.Clear; 
 Memo1.PopupMenu:= PopupMenu1; 
 end; 
procedure TForml.mnuOpenClick(Sender: TObject); 
begin 
 Memol.Lines.Clear; 
 if OpenDialogl.Execute then
begin 
FAYL:= OpenDialog1.FileName;
Form1.Memol.Lines.LoadFromFile(FAYL);
Form1.Caption:= FAYL;
end; 
 end; 
proscedure TForml.mnuSaveClick(Sender: TObject);
begin 
Memol.Lines.SaveToFile(FAYL);
end; 
procedure TForml.mnuSaveAsClick(Sender: TObject); 
 begin 
if SaveDialog1.Execute then 
 begin 
SaveDialog1.FilterIndex: