Блокнот в Delphi.
Возьмите один TMemo и дайте имя как: (memNotepad)
Возьмите один TrzOpenDialog (rzopdlgOpenDialog)
- Take one
TrzSaveDialog (rzsvdlgSaveDialog) - Take one
FontDialog (ftdlgFontDialog) - Take one
TMainMenu (mmMainMenu) - добавить пункты меню Файл: Новый, Открыть, Сохранить, Сохранить как, Выйти, Изменить: Вырезать, Копировать, Вставить, Шрифт
Код:
********************************************************************
unit ufrmNotePad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, RzShellDialogs, cxGraphics, cxCustomData,
cxStyles, cxTL, cxControls, cxInplaceContainer, IniFiles;
type
TfrmNotepad = class(TForm)
memNotePad: TMemo;
rzopdlgOpenDialog: TRzOpenDialog;
rzsvdlgSaveDialog: TRzSaveDialog;
mmMainMenu: TMainMenu;
mniFile: TMenuItem;
mniSave: TMenuItem;
mniOpen: TMenuItem;
mniNew: TMenuItem;
mniSaveAs: TMenuItem;
mniEdit: TMenuItem;
mniPaste: TMenuItem;
mniCopy: TMenuItem;
mniCut: TMenuItem;
ftdlgFontDialog: TFontDialog;
mniFont: TMenuItem;
mniExit: TMenuItem;
procedure mniOpenClick(Sender: TObject);
procedure mniSaveClick(Sender: TObject);
procedure mniNewClick(Sender: TObject);
procedure mniSaveAsClick(Sender: TObject);
procedure mniCopyClick(Sender: TObject);
procedure mniPasteClick(Sender: TObject);
procedure mniCutClick(Sender: TObject);
procedure mniFontClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure mniEditClick(Sender: TObject);
procedure mniExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
procedure OpenDialog;
procedure SaveDialog;
procedure NewNotepad;
procedure SaveAS;
procedure Copy;
procedure Cut;
procedure Paste;
procedure Font;
procedure SaveSettingInToFile;
procedure RetrieveSettingFromTheFile;
public
{ Public declarations }
FIniFile : TIniFile;
FFileName : String;
FCount : Integer;
end;
var
frmNotepad : TfrmNotepad;
implementation
{$R *.dfm}
{ Open File from the disk }
{ FCount- helps for save the file, if file is already save then FCount := 1 else FCount := 0}
{ FFileName - helps for store the filename of open filename or saved filename }
procedure TfrmNotepad.OpenDialog;
begin
FCount := 1;
rzopdlgOpenDialog.Title := 'Open File';
rzopdlgOpenDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';
if rzsvdlgSaveDialog.FileName = FFileName then
begin
if rzopdlgOpenDialog.Execute then
memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);
end
{ if any file already opened and without saving the file try to open new file
then message dialog box appears on the screen for save the file or save modification of the file }
else if (memNotePad.Modified) then
begin
ModalResult := MessageDlg('Do you want to save Changes to untitled?',mtConfirmation,mbYesNoCancel,0);
if (ModalResult = mrYes) then
begin
if rzsvdlgSaveDialog.Execute then
memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
memNotePad.Clear;
memNotePad.Modified := False;
end
else if (ModalResult = mrNo) then
begin
if rzopdlgOpenDialog.Execute then
begin
memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);
FFileName := rzopdlgOpenDialog.FileName;
end;
end;
end
else if rzopdlgOpenDialog.Execute then
begin
memNotePad.Lines.LoadFromFile(rzopdlgOpenDialog.FileName);
FFileName := rzopdlgOpenDialog.FileName;
end;
Caption := rzopdlgOpenDialog.FileName + ' - Delphi Notepad';
end;
{ Saving the file }
procedure TfrmNotepad.SaveDialog;
begin
rzsvdlgSaveDialog.Title := 'Save';
rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';
{ if file already exist and after modification we try to save then it directly save into the file without opening the save dialog box }
if FCount = 1 then
begin
{ filename store in the FFileName is compare with the save dialog box filename
if it matches then modification dirctly save into that file without opening the save dialog box }
if rzsvdlgSaveDialog.FileName = FFileName then
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')
{ filename store in the FFileName is compare with the open dialog box filename
if it matches then modification dirctly save into that file without opening the save dialog box }
else if rzopdlgOpenDialog.FileName = FFileName then
begin
rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);
end;
end
{ else file already not save then Save Dialog box open }
else
begin
if rzsvdlgSaveDialog.Execute then
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
Caption := rzsvdlgSaveDialog.FileName + ' - Delphi Notepad';
FCount := 1;
end;
FFileName := rzsvdlgSaveDialog.FileName;
end;
{ New Notepad }
procedure TfrmNotepad.NewNotepad;
begin
if FCount = 1 then
begin
memNotePad.Clear;
Caption := 'UnNamed Delphi Notepad';
end
else if not (memNotePad.Modified) then
begin
memNotePad.Clear;
Caption := 'UnNamed Delphi Notepad';
end
{ without saving the modification's of file if try to click on new then
message dialog box appears on the screen for saving the modification's }
else if (memNotePad.Modified) then
begin
ModalResult := MessageDlg('Do you want to save Changes',mtConfirmation,mbYesNoCancel,0);
if (ModalResult = mrYes) then
begin
if rzsvdlgSaveDialog.Execute then
memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
memNotePad.Clear;
memNotePad.Modified := False;
end
else if (ModalResult = mrNo) then
begin
memNotePad.Clear;
memNotePad.Modified := False;
end;
end;
FFileName := rzsvdlgSaveDialog.FileName;
FCount := 1;
end;
{ Save As }
procedure TfrmNotepad.SaveAS;
begin
rzsvdlgSaveDialog.Title := 'Save As';
rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';
if rzsvdlgSaveDialog.Execute then
memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
memNotePad.Clear;
memNotePad.Modified := False;
end;
{ Cut text }
procedure TfrmNotepad.Cut;
begin
memNotePad.CutToClipboard;
end;
{ Copy text }
procedure TfrmNotepad.Copy;
begin
memNotePad.CopyToClipboard;
end;
{ Paste }
procedure TfrmNotepad.Paste;
begin
memNotePad.PasteFromClipboard;
end;
{ Font Dialog is assign to memo }
procedure TfrmNotepad.Font;
begin
if ftdlgFontDialog.Execute then
memNotePad.Font := ftdlgFontDialog.Font;
end;
{ Save the setting of font in to Ini file }
procedure TfrmNotepad.SaveSettingInToFile;
var
LColorName : String;
begin
FIniFile.WriteString('Setting', 'FontName', memNotePad.Font.Name);
FIniFile.WriteString('Setting', 'FontSize', IntToStr(memNotePad.Font.Size));
LColorName := ColorToString(memNotePad.Font.Color);
FIniFile.WriteString('Setting', 'FontColor', LColorName);
end;
{ Retrieve the setting of font from Ini file }
procedure TfrmNotepad.RetrieveSettingFromTheFile;
var
LFontName, LFontSize, LFontColor: String;
begin
FIniFile := TIniFile.Create('FontSettings.ini');
LFontName := FIniFile.ReadString('Setting', 'FontName', 'Arial');
memNotePad.Font.Name := LFontName;
LFontSize := FIniFile.ReadString('Setting', 'FontSize', '8');
memNotePad.Font.Size := StrToInt(LFontSize);
LFontColor := FIniFile.ReadString('Setting', 'FontColor',
ColorToString(clBlack));
memNotePad.Font.Color := StringToColor(LFonTColor);
ftdlgFontDialog.Font := memNotePad.Font;
end;
procedure TfrmNotepad.mniOpenClick(Sender: TObject);
begin
OpenDialog;
end;
procedure TfrmNotepad.mniSaveClick(Sender: TObject);
begin
SaveDialog;
end;
procedure TfrmNotepad.mniNewClick(Sender: TObject);
begin
NewNotepad;
end;
procedure TfrmNotepad.mniSaveAsClick(Sender: TObject);
begin
SaveAS;
end;
{ Exit from Notepad }
procedure TfrmNotepad.mniExitClick(Sender: TObject);
begin
{ While exit if the modification in file is not save then then message dialog appear on the screen }
if (memNotePad.Modified) then
begin
ModalResult := MessageDlg('Do you want to save
Changes',mtConfirmation,mbYesNoCancel,0);
if (ModalResult = mrYes) then
begin
if rzsvdlgSaveDialog.FileName = FFileName then
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')
else if rzopdlgOpenDialog.FileName = FFileName then
begin
rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);
end
else if rzsvdlgSaveDialog.Execute then
memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
memNotePad.Clear;
memNotePad.Modified := False;
Close;
end
else if (ModalResult = mrNo) then
begin
memNotePad.Clear;
memNotePad.Modified := False;
Close;
end;
end;
{ call method for saving the font setting into Ini file }
SaveSettingInToFile;
end;
procedure TfrmNotepad.mniCutClick(Sender: TObject);
begin
Cut;
end;
procedure TfrmNotepad.mniCopyClick(Sender: TObject);
begin
Copy;
end;
procedure TfrmNotepad.mniPasteClick(Sender: TObject);
begin
Paste;
end;
procedure TfrmNotepad.mniFontClick(Sender: TObject);
begin
Font;
end;
procedure TfrmNotepad.FormCreate(Sender: TObject);
begin
FCount := 0;
FFileName := 'ok';
{ call method for retrieve the font setting from Ini file }
RetrieveSettingFromTheFile;
end;
procedure TfrmNotepad.FormDestroy(Sender: TObject);
begin
{ call method for saving the font setting into Ini file }
SaveSettingInToFile;
end;
{ when text is selected on notepad, only then the copy & cut are enabled else disabled }
procedure TfrmNotepad.mniEditClick(Sender: TObject);
begin
mniCopy.Enabled := memNotePad.SelLength > 0;
mniCut.Enabled := memNotePad.SelLength > 0;
end;
procedure TfrmNotepad.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
{ While Destroying the form if the modification in file is not save then then
message dialog appear on the screen }
rzsvdlgSaveDialog.Filter := 'Text Files|*.txt; RTF Files|*.rtf';
if (memNotePad.Modified) then
begin
ModalResult := MessageDlg('Do you want to save
Changes',mtConfirmation,mbYesNoCancel,0);
if (ModalResult = mrYes) then
begin
if rzsvdlgSaveDialog.FileName = FFileName then
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt')
else if rzopdlgOpenDialog.FileName = FFileName then
begin
rzsvdlgSaveDialog.FileName := rzopdlgOpenDialog.FileName;
memNotePad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName);
end
else if rzsvdlgSaveDialog.Execute then
memNotepad.Lines.SaveToFile(rzsvdlgSaveDialog.FileName + '.txt');
memNotePad.Clear;
memNotePad.Modified := False;
end
else if (ModalResult = mrNo) then
begin
memNotePad.Clear;
memNotePad.Modified := False;
end;
end;
CanClose := True;
end;
end.