2016-03-05, 20:46
رقم المشاركة : 2
معلومات
العضو
إحصائية
العضو
كود:
unit Bloc;{djelfa.info/vb}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, ExtCtrls, ComCtrls;{djelfa.info/vb}
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;{djelfa.info/vb}
file1: TMenuItem;{djelfa.info/vb}
new1: TMenuItem;{djelfa.info/vb}
open1: TMenuItem;{djelfa.info/vb}
save1: TMenuItem;{djelfa.info/vb}
saveas1: TMenuItem;{djelfa.info/vb}
N1: TMenuItem;{djelfa.info/vb}
exit1: TMenuItem;{djelfa.info/vb}
edit1: TMenuItem;{djelfa.info/vb}
cut1: TMenuItem;{djelfa.info/vb}
copy1: TMenuItem;{djelfa.info/vb}
past1: TMenuItem;{djelfa.info/vb}
N2: TMenuItem;{djelfa.info/vb}
select1: TMenuItem;{djelfa.info/vb}
clear1: TMenuItem;{djelfa.info/vb}
help1: TMenuItem;{djelfa.info/vb}
Memo1: TMemo;{djelfa.info/vb}
OpenDialog1: TOpenDialog;{djelfa.info/vb}
SaveDialog1: TSaveDialog;{djelfa.info/vb}
StatusBar1: TStatusBar;{djelfa.info/vb}
Tools1: TMenuItem;{djelfa.info/vb}
Fonts1: TMenuItem;{djelfa.info/vb}
FontDialog1: TFontDialog;{djelfa.info/vb}
ColorDialog1: TColorDialog;{djelfa.info/vb}
Color1: TMenuItem;{djelfa.info/vb}
N3: TMenuItem;{djelfa.info/vb}
Left1: TMenuItem;{djelfa.info/vb}
Right1: TMenuItem;{djelfa.info/vb}
Center1: TMenuItem;{djelfa.info/vb}
N4: TMenuItem;{djelfa.info/vb}
DateTime1: TMenuItem;{djelfa.info/vb}
procedure new1Click(Sender: TObject);{djelfa.info/vb}
procedure open1Click(Sender: TObject);{djelfa.info/vb}
procedure save1Click(Sender: TObject);{djelfa.info/vb}
procedure saveas1Click(Sender: TObject);{djelfa.info/vb}
procedure exit1Click(Sender: TObject);{djelfa.info/vb}
procedure cut1Click(Sender: TObject);{djelfa.info/vb}
procedure copy1Click(Sender: TObject);{djelfa.info/vb}
procedure past1Click(Sender: TObject);{djelfa.info/vb}
procedure select1Click(Sender: TObject);{djelfa.info/vb}
procedure clear1Click(Sender: TObject);{djelfa.info/vb}
procedure Fonts1Click(Sender: TObject);{djelfa.info/vb}
procedure Color1Click(Sender: TObject);{djelfa.info/vb}
procedure FormCreate(Sender: TObject);{djelfa.info/vb}
procedure FormClose(Sender: TObject;{djelfa.info/vb} var Action: TCloseAction);{djelfa.info/vb}
procedure FormCloseQuery(Sender: TObject;{djelfa.info/vb} var CanClose: Boolean);{djelfa.info/vb}
procedure FormCloseMemos(Sender: TObject;{djelfa.info/vb} var int11: Integer);{djelfa.info/vb}
procedure Left1Click(Sender: TObject);{djelfa.info/vb}
procedure DateTime1Click(Sender: TObject);{djelfa.info/vb}
private
{ Déclarations privées }
PathName1: string;{djelfa.info/vb}
public
{ Déclarations publiques }
procedure Opene1(const BFileName: string);{djelfa.info/vb}
end;{djelfa.info/vb}
const
DefaultFileName1 = 'saad';{djelfa.info/vb}
var
Form1: TForm1;{djelfa.info/vb}
implementation
{$R *.DFM}
procedure TForm1.new1Click(Sender: TObject);{djelfa.info/vb}
var
intc: integer;{djelfa.info/vb}
begin
FormCloseMemos(Sender,intc);{djelfa.info/vb}
Memo1.Clear;{djelfa.info/vb}
Memo1.Modified := false;{djelfa.info/vb}
PathName1 := DefaultFileName1;{djelfa.info/vb}
Caption := PathName1;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.open1Click(Sender: TObject);{djelfa.info/vb}
begin
OpenDialog1.Title := 'فتح';{djelfa.info/vb}
if OpenDialog1.Execute then
Opene1(OpenDialog1.FileName);{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.Opene1(const BFileName: string);{djelfa.info/vb}
begin
PathName1 := BFileName;{djelfa.info/vb}
Caption := ExtractFileName(PathName1);{djelfa.info/vb}
Memo1.Lines.LoadFromFile(PathName1);{djelfa.info/vb}
Memo1.SelStart := 0;{djelfa.info/vb}
Memo1.Modified := false;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.save1Click(Sender: TObject);{djelfa.info/vb}
begin
if PathName1 = DefaultFileName1 then
saveas1Click(Sender)
else
begin
Memo1.Lines.SaveToFile(PathName1);{djelfa.info/vb}
Memo1.Modified := false;{djelfa.info/vb}
end;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.saveas1Click(Sender: TObject);{djelfa.info/vb}
begin
SaveDialog1.Title := 'حفـــظ بإســم';{djelfa.info/vb}
SaveDialog1.FileName := PathName1;{djelfa.info/vb}
if SaveDialog1.Execute then
begin
PathName1 := SaveDialog1.FileName;{djelfa.info/vb}
Caption := ExtractFileName(PathName1);{djelfa.info/vb}
save1Click(Sender);{djelfa.info/vb}
end;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.exit1Click(Sender: TObject);{djelfa.info/vb}
begin
close;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.cut1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.CutToClipboard;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.copy1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.CopyToClipboard;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.past1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.PasteFromClipboard;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.select1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.SelectAll;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.clear1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.ClearSelection;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.Fonts1Click(Sender: TObject);{djelfa.info/vb}
begin
FontDialog1.Font := Memo1.Font;{djelfa.info/vb}
FontDialog1.Font.Color := Memo1.Font.Color;{djelfa.info/vb}
if FontDialog1.Execute then
begin
Memo1.Font := FontDialog1.Font;{djelfa.info/vb}
Memo1.Font.Color := FontDialog1.Font.Color;{djelfa.info/vb}
end;{djelfa.info/vb} //SelAttributes
end;{djelfa.info/vb}
procedure TForm1.Color1Click(Sender: TObject);{djelfa.info/vb}
begin
if ColorDialog1.Execute then
Memo1.Color := ColorDialog1.Color;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.FormCreate(Sender: TObject);{djelfa.info/vb}
begin
PathName1 := DefaultFileName1;{djelfa.info/vb}
Windows.LoadKeyboardLayout('00000401', klf_Activate);{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.FormClose(Sender: TObject;{djelfa.info/vb} var Action: TCloseAction);{djelfa.info/vb}
begin
Action := CaFree;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.FormCloseMemos(Sender: TObject;{djelfa.info/vb} var int11: Integer);{djelfa.info/vb}
const
tWarningText = 'هل تريــــد حفــظ التغييــرات على هـذا الملـف %s?';{djelfa.info/vb}
var
inta: integer;{djelfa.info/vb}
begin
if Memo1.Modified then
begin
inta := MessageDlg(Format(tWarningText, [PathName1]), mtConfirmation,
[mbYes, mbNo, mbCancel], 0);{djelfa.info/vb}
if inta = idYes then Save1Click(Sender);{djelfa.info/vb}
end;{djelfa.info/vb}
int11 := inta;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.FormCloseQuery(Sender: TObject;{djelfa.info/vb} var CanClose: Boolean);{djelfa.info/vb}
var
intb: integer;{djelfa.info/vb}
begin
FormCloseMemos(Sender, intb);{djelfa.info/vb}
if intb = idCancel then CanClose := false;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.Left1Click(Sender: TObject);{djelfa.info/vb}
begin
Left1.Checked := false;{djelfa.info/vb}
Right1.Checked := false;{djelfa.info/vb}
Center1.Checked := false;{djelfa.info/vb}
with Sender as TMenuItem do Checked := true;{djelfa.info/vb}
with Memo1 do
if Left1.Checked then Alignment := taLeftJustify
else if Right1.Checked then Alignment := taRightJustify
else if Center1.Checked then
Alignment := taCenter;{djelfa.info/vb}
end;{djelfa.info/vb}
procedure TForm1.DateTime1Click(Sender: TObject);{djelfa.info/vb}
begin
Memo1.Lines.Add(DateToStr(Date)+' , '+TimeToStr(Time));{djelfa.info/vb}
end;{djelfa.info/vb}
end.