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

end; 
procedure TForml .mnuSelectAHClick (Sender: TObject) ;
begin 
MEmol.HideSelection:=False;
Memol.SelectAll; 
 end; 
procedure TForml.mnuResetClick (Sender: TObject);
begin 
Memol.Color:= MemoColorYad; 
downloaded from KitabYurdu.org

---

235 
 Forml.Color:= FormColorYad;
end; 
procedure TForml.mnuColorClick(Sender: TObject); 
 begin 
if ColorDialogl.Execute then 
Memol.Color:= ColorDialogl.Color; 
end; 
procedure TForml.FormClose(Sender:TObject;
var Action:TCloseAction); 
begin 
if Memol.Modified then 
if MessageDlgC (Fayl dəyişmişdir! '+#13#10+ 
' Çıxırsımzmı? ,mtConfirmation, 
[mbYes, mbNo], 0) = mrYes then 
Begin 
if Memol.Modified then
begin 
Memol.Lines.SaveToFile (FAYL); 
Action: = caFree; 
end; 
end 
else Action:=caNone; 
end; 
downloaded from KitabYurdu.org