Notepad v.01

Commenter

Contenu du snippet

Petit logiciel de traitement de texte::::::::::::::::::HAVE A LOT FUN!!!

Source / Exemple : 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    New1: TMenuItem;
    O1: TMenuItem;
    Save1: TMenuItem;
    Saveas1: TMenuItem;
    ExitCtrlF41: TMenuItem;
    Edit1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    ToolBar1: TToolBar;
    Search1: TMenuItem;
    procedure New1Click(Sender: TObject);
    procedure Saveas1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ExitCtrlF41Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FileName : String;

implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
FileName := 'Untitled.txt';
StatusBar1.Panels[0].Text := FileName  ;
end;

procedure TForm1.Saveas1Click(Sender: TObject);
begin
SaveDialog1.InitialDir := ExtractFilePath(Filename);
If SaveDialog1.Execute Then begin
 FileName := SaveDialog1.FileName;
 Memo1.Lines.SaveToFile(FileName);
 StatusBar1.Panels[0].text := FileName;
 End;
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
 if OpenDialog1.Execute Then Begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  StatusBar1.Panels[0].Text := FileName;
  End;
end;

procedure TForm1.Cut1Click(Sender: TObject);
begin
  Memo1.CutToClipboard;
end;

procedure TForm1.Copy1Click(Sender: TObject);
begin
 Memo1.CopyToClipboard;
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FileName:= 'Untitled.txt';
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.ExitCtrlF41Click(Sender: TObject);
begin
close;
end;

procedure TForm1.O1Click(Sender: TObject);
begin
     if OpenDialog1.Execute Then Begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  StatusBar1.Panels[0].Text := FileName;
  End;
end;

end.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (titanium13)