كيفية برمجة محرر بسيط بدلفي

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم
كيفية برمجة محرر بسيط بدلفي

program Bloc_Note;{djelfa.info/vb}

uses
  Forms,
  Bloc in 'Bloc.pas' {Form1};{djelfa.info/vb}

{$R *.RES}

begin
  Application.Initialize;{djelfa.info/vb}
  Application.CreateForm(TForm1, Form1);{djelfa.info/vb}
  Application.Run;{djelfa.info/vb}
end.

[طيباوي ابو علي1]

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.

[طيباوي ابو علي1]

النموذج

الاسم
Bloc.dfm

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  BiDiMode = bdRightToLeft
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000078888888888888888888880800000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FF000000000000000000FF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    F000000FFFFFFF0F000FF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    FFFFFFFFFFFFFFFFFFFFF8080000007FFFFFFFFFFFFFFFFFFFFFF8080000007F
    0FF0FF0FF0FF0FF0FF0FF7080000007F0FF0FF0FF0FF0FF0FF0FF70800000007
    F77F77F77F77F77F77F77F70000000000000000000000000000000000000F000
    001FE000000FC0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007C0000007C0000007C000
    0007C0000007C0000007C0000007C0000007C0000007E000000FF24924BF}
  Menu = MainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 407
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 407
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 128
    Top = 96
    object file1: TMenuItem
      Caption = '&'#1605#1604#1601
      object new1: TMenuItem
        Caption = '&'#1580#1583#1610#1583
        ShortCut = 16462
        OnClick = new1Click
      end
      object open1: TMenuItem
        Caption = '&'#1601#1578#1581
        ShortCut = 16463
        OnClick = open1Click
      end
      object save1: TMenuItem
        Caption = '&'#1581#1601#1592
        ShortCut = 16467
        OnClick = save1Click
      end
      object saveas1: TMenuItem
        Caption = '&'#1581#1601#1592' '#1576#1575#1587#1605
        OnClick = saveas1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object exit1: TMenuItem
        Caption = #1582#1585#1608#1580
        ShortCut = 16499
        OnClick = exit1Click
      end
    end
    object edit1: TMenuItem
      Caption = #1578#1581#1585#1610#1585
      object cut1: TMenuItem
        Caption = '&'#1602#1589
        ShortCut = 16472
        OnClick = cut1Click
      end
      object copy1: TMenuItem
        Caption = '&'#1606#1587#1582
        ShortCut = 16451
        OnClick = copy1Click
      end
      object past1: TMenuItem
        Caption = '&'#1604#1589#1602
        ShortCut = 16470
        OnClick = past1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object select1: TMenuItem
        Caption = #1578#1581#1583#1610#1583
        ShortCut = 16449
        OnClick = select1Click
      end
      object clear1: TMenuItem
        Caption = #1605#1587#1581
        OnClick = clear1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object DateTime1: TMenuItem
        Caption = #1578#1575#1585#1610#1582' '#1608#1575#1604#1608#1602#1578
        OnClick = DateTime1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&'#1575#1593#1600#1600#1600#1583#1575#1583
      object Fonts1: TMenuItem
        Caption = '&'#1582#1600#1600#1600#1591
        OnClick = Fonts1Click
      end
      object Color1: TMenuItem
        Caption = '&'#1604#1600#1600#1600#1608#1606
        OnClick = Color1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Left1: TMenuItem
        Caption = 'Right'
        OnClick = Left1Click
      end
      object Right1: TMenuItem
        Caption = 'Left'
        OnClick = Left1Click
      end
      object Center1: TMenuItem
        Caption = 'Center'
        OnClick = Left1Click
      end
    end
    object help1: TMenuItem
      Caption = #1605#1587#1575#1593#1583#1577
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'fichier texte|*.txt|tout les fichiers|*.*'
    InitialDir = '.'
    Left = 192
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'fichier texte|*.txt|tout les fichiers|*.*'
    InitialDir = '.'
    Left = 224
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 256
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 288
  end
end

[محمد فلاك]

الأحسن أخي رفع الملفات
وليس نسخ الكود ..
تشكر عموما

[mohamed bouzid]

الله يحفظك اخي

[Mr-TNT]

بارك الله فيك