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

mnuSelectAll: TMenuItem;
mnuReset: TMenuItem;
mnuFont: TMenuItem; 
 mnuColor: TMenuItem; 
 PopupMenul: TPopupMenu; 
 mkExit: TMenuItem; 
 mkReset: TMenuItem; 
 mkColor: TMenuItem; 
 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; 
downloaded from KitabYurdu.org

---

233 
implementation
{SR *.DEM} 
procedure TForml.FormActivate(Sender: TObject); 
begin 
OpenDialogl.Title:= ' Mətn faylları '; 
 OpenDialogl.Filter:=“Mətn faylları[*.TXT,*.DOC] 
|*.TXT;*.DOC|Bütün fayllarf*.*]I*.**; 
 OpenDialogl.DefaultExt:= 'TXT';
SaveDialog1.Title:= ' Mətn faylları ';
SaveDialog1.Filter:= ' Mətn faylları*.TXT;*.DOC] 
*.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:=2; 
Memol.Lines.SaveToFile(SaveDialogl.FileName);
end; 
if Memol.Modified then Memol.Modified:=False;
end; 
procedure TForml.mnuExitClick(Sender: TObject); 
downloaded from KitabYurdu.org

---

234 
 Var 
Rez:TModalResult;
begin 
if Memo1.Modified then
begin 
Rez:=MessageDlg (' Dəyişiklik yadda saxlanmayıb) ' 
+#13#10+' Yadda saxlayaq? ',
mtConfirmation,[mbOK,mbNo],0);
if Rez= mrNo then Close; 
if Rez= mrOK then 
begin 
Memol.Lines.SaveToFile(FAYL);
Close; 
 end;
end
else Close;
end; 
procedure TForml.mnuündoClick(Sender: TObject);
begin 
SendMessage(Memol.Handle,EM_UNDO,0,0);