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

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; 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 *.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);
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); end;
procedure TForml .mnuSelectAHClick (Sender: TObject) ; begin
MEmol.HideSelection:=False; Memol.SelectAll; end; procedure TForml.mnuResetClick (Sender: TObject); begin
Memol.Color:= MemoColorYad;
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;